[Home] [Help]
PACKAGE BODY: APPS.IEM_RT_PREPROC_EMAILS_PVT
Source
1 PACKAGE BODY iem_Rt_preproc_emails_pvt as
2 /* $Header: iemprepb.pls 120.0 2005/06/02 14:04:07 appldev noship $ */
3
4 G_PKG_NAME CONSTANT varchar2(30) :='iem_Rt_preproc_emails_pvt ';
5
6 PROCEDURE create_item (p_api_version_number IN NUMBER,
7 p_init_msg_list IN VARCHAR2 ,
8 p_commit IN VARCHAR2 ,
9 p_message_id IN NUMBER,
10 p_email_account_id IN NUMBER,
11 p_priority IN number,
12 p_received_date IN DATE,
13 x_return_status OUT NOCOPY VARCHAR2,
14 x_msg_count OUT NOCOPY NUMBER,
15 x_msg_data OUT NOCOPY VARCHAR2
16 ) is
17 l_api_name VARCHAR2(255):='create_item';
18 l_api_version_number NUMBER:=1.0;
19 l_seq_id number;
20 l_grp_cnt number;
21 l_message_id number;
22 l_CREATED_BY NUMBER := TO_NUMBER(FND_PROFILE.VALUE('USER_ID'));
23 l_creation_date date := SYSDATE;
24 l_LAST_UPDATED_BY NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('USER_ID')) ;
25 l_LAST_UPDATE_DATE DATE:=SYSDATE;
26 l_LAST_UPDATE_LOGIN NUMBER:=TO_NUMBER (FND_PROFILE.VALUE('LOGIN_ ID')) ;
27
28 BEGIN
29 -- Standard call to check for call compatibility.
30 IF NOT FND_API.Compatible_API_Call (l_api_version_number,
31 p_api_version_number,
32 l_api_name,
33 G_PKG_NAME)
34 THEN
35 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
36 END IF;
37 x_return_status := FND_API.G_RET_STS_SUCCESS;
38 INSERT INTO IEM_RT_PREPROC_EMAILS (
39 MESSAGE_ID ,
40 email_account_id ,
41 PRIORITY ,
42 RECEIVED_DATE,
43 CREATED_BY ,
44 CREATION_DATE ,
45 LAST_UPDATED_BY ,
46 LAST_UPDATE_DATE ,
47 LAST_UPDATE_LOGIN
48 )
49 VALUES
50 (
51 p_message_id,
52 p_email_account_id,
53 p_priority,
54 p_received_date,
55 decode(l_CREATED_BY,null,-1,l_CREATED_BY),
56 sysdate,
57 decode(l_LAST_UPDATED_BY,null,-1,l_LAST_UPDATED_BY),
58 sysdate,
59 decode(l_LAST_UPDATE_LOGIN,null,-1,l_LAST_UPDATE_LOGIN)
60 );
61
62 -- Standard Check Of p_commit.
63 IF p_commit='T' THEN
64 COMMIT WORK;
65 END IF;
66 -- Standard callto get message count and if count is 1, get message info.
67 FND_MSG_PUB.Count_And_Get
68 ( p_count => x_msg_count,
69 p_data => x_msg_data
70 );
71 EXCEPTION
72 WHEN FND_API.G_EXC_ERROR THEN
73 x_return_status := FND_API.G_RET_STS_ERROR ;
74 FND_MSG_PUB.Count_And_Get
75 ( p_count => x_msg_count,
76 p_data => x_msg_data
77 );
78 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
79 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
80 FND_MSG_PUB.Count_And_Get
81 ( p_count => x_msg_count,
82 p_data => x_msg_data
83 );
84 WHEN OTHERS THEN
85 x_return_status := FND_API.G_RET_STS_ERROR;
86 IF FND_MSG_PUB.Check_Msg_Level
87 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
88 THEN
89 FND_MSG_PUB.Add_Exc_Msg
90 ( G_PKG_NAME ,
91 l_api_name
92 );
93 END IF;
94 FND_MSG_PUB.Count_And_Get
95 ( p_count => x_msg_count ,
96 p_data => x_msg_data
97 );
98
99 END create_item;
100
101 PROCEDURE delete_item (p_api_version_number IN NUMBER,
102 p_init_msg_list IN VARCHAR2 ,
103 p_commit IN VARCHAR2 ,
104 p_message_id in number,
105 x_return_status OUT NOCOPY VARCHAR2,
106 x_msg_count OUT NOCOPY NUMBER,
107 x_msg_data OUT NOCOPY VARCHAR2
108 ) is
109 l_api_name VARCHAR2(255):='delete_item';
110 l_api_version_number NUMBER:=1.0;
111
112 BEGIN
113 -- Standard call to check for call compatibility.
114 IF NOT FND_API.Compatible_API_Call (l_api_version_number,
115 p_api_version_number,
116 l_api_name,
117 G_PKG_NAME)
118 THEN
119 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
120 END IF;
121 x_return_status := FND_API.G_RET_STS_SUCCESS;
122 delete from IEM_RT_PREPROC_EMAILS
123 where message_id=p_message_id;
124
125 -- Standard Check Of p_commit.
126 IF p_commit='T' THEN
127 COMMIT WORK;
128 END IF;
129 -- Standard callto get message count and if count is 1, get message info.
130 FND_MSG_PUB.Count_And_Get
131 ( p_count => x_msg_count,
132 p_data => x_msg_data
133 );
134 EXCEPTION
135 WHEN FND_API.G_EXC_ERROR THEN
136 ROLLBACK TO delete_item_PVT;
137 x_return_status := FND_API.G_RET_STS_ERROR ;
138 FND_MSG_PUB.Count_And_Get
139 ( p_count => x_msg_count,
140 p_data => x_msg_data
141 );
142 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
143 ROLLBACK TO delete_item_PVT;
144 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
145 FND_MSG_PUB.Count_And_Get
146 ( p_count => x_msg_count,
147 p_data => x_msg_data
148 );
149 WHEN OTHERS THEN
150 ROLLBACK TO delete_item_PVT;
151 x_return_status := FND_API.G_RET_STS_ERROR;
152 IF FND_MSG_PUB.Check_Msg_Level
153 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
154 THEN
155 FND_MSG_PUB.Add_Exc_Msg
156 ( G_PKG_NAME ,
157 l_api_name
158 );
159 END IF;
160 FND_MSG_PUB.Count_And_Get
161 ( p_count => x_msg_count ,
162 p_data => x_msg_data
163 );
164
165 END delete_item;
166 END iem_Rt_preproc_emails_pvt ;