[Home] [Help]
PACKAGE BODY: APPS.IEM_TEMP_STORES_PVT
Source
1 PACKAGE BODY iem_temp_stores_pvt as
2 /* $Header: iemvmigb.pls 120.1 2005/07/07 16:57:15 appldev noship $ */
3
4 G_PKG_NAME CONSTANT varchar2(30) :='iem_temp_stores_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_folder_name in varchar2,
12 p_from_str in varchar2,
13 p_rfc822 in varchar2,
14 p_reply_to in varchar2,
15 p_to in varchar2,
16 p_cc in varchar2,
17 p_bcc in varchar2,
18 p_sent_date in varchar2,
19 p_subject IN varchar2,
20 p_message_size IN number,
21 p_mig_status IN varchar2,
22 p_mig_error_text IN DATE,
23 p_message_text in varchar2,
24 p_message_content in BLOB,
25 x_return_status OUT NOCOPY VARCHAR2,
26 x_msg_count OUT NOCOPY NUMBER,
27 x_msg_data OUT NOCOPY VARCHAR2
28 ) is
29 l_api_name VARCHAR2(255):='create_item';
30 l_api_version_number NUMBER:=1.0;
31 l_seq_id number;
32 l_grp_cnt number;
33 l_message_id number;
34
35 BEGIN
36 -- Standard call to check for call compatibility.
37 IF NOT FND_API.Compatible_API_Call (l_api_version_number,
38 p_api_version_number,
39 l_api_name,
40 G_PKG_NAME)
41 THEN
42 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
43 END IF;
44 x_return_status := FND_API.G_RET_STS_SUCCESS;
45 /*
46 INSERT INTO iem_temp_stores (
47 MESSAGE_ID ,
48 email_account_id ,
49 FOLDER_NAME,
50 FROM_STR ,
51 RFC822_MESSAGE_ID,
52 REPLY_TO_STR ,
53 TO_STR ,
54 CC_STR ,
55 BCC_STR ,
56 SENT_DATE ,
57 SUBJECT ,
58 MESSAGE_SIZE ,
59 MIG_STATUS ,
60 MIG_ERROR_TEXT ,
61 MESSAGE_TEXT ,
62 MESSAGE_CONTENT
63 )
64 VALUES
65 (
66 p_message_id,
67 p_email_account_id,
68 p_FOLDER_NAME,
69 p_FROM_STR ,
70 p_RFC822,
71 p_REPLY_TO ,
72 p_TO ,
73 p_CC ,
74 p_BCC ,
75 p_SENT_DATE ,
76 p_SUBJECT ,
77 p_MESSAGE_SIZE ,
78 p_MIG_STATUS ,
79 p_MIG_ERROR_TEXT ,
80 p_MESSAGE_TEXT ,
81 p_MESSAGE_CONTENT
82 );
83
84 -- Standard Check Of p_commit.
85 IF p_commit='T' THEN
86 COMMIT WORK;
87 END IF;
88 -- Standard callto get message count and if count is 1, get message info.
89 FND_MSG_PUB.Count_And_Get
90 ( p_count => x_msg_count,
91 p_data => x_msg_data
92 );
93 EXCEPTION
94 WHEN FND_API.G_EXC_ERROR THEN
95 x_return_status := FND_API.G_RET_STS_ERROR ;
96 FND_MSG_PUB.Count_And_Get
97 ( p_count => x_msg_count,
98 p_data => x_msg_data
99 );
100 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
101 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
102 FND_MSG_PUB.Count_And_Get
103 ( p_count => x_msg_count,
104 p_data => x_msg_data
105 );
106 WHEN OTHERS THEN
107 x_return_status := FND_API.G_RET_STS_ERROR;
108 IF FND_MSG_PUB.Check_Msg_Level
109 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
110 THEN
111 FND_MSG_PUB.Add_Exc_Msg
112 ( G_PKG_NAME ,
113 l_api_name
114 );
115 END IF;
116 FND_MSG_PUB.Count_And_Get
117 ( p_count => x_msg_count ,
118 p_data => x_msg_data
119 );
120 */
121 END create_item;
122
123 PROCEDURE delete_item (p_api_version_number IN NUMBER,
124 p_init_msg_list IN VARCHAR2 ,
125 p_commit IN VARCHAR2 ,
126 p_message_id in number,
127 x_return_status OUT NOCOPY VARCHAR2,
128 x_msg_count OUT NOCOPY NUMBER,
129 x_msg_data OUT NOCOPY VARCHAR2
130 ) is
131 l_api_name VARCHAR2(255):='delete_item';
132 l_api_version_number NUMBER:=1.0;
133
134 BEGIN
135 null;
136 /*
137 -- Standard call to check for call compatibility.
138 IF NOT FND_API.Compatible_API_Call (l_api_version_number,
139 p_api_version_number,
140 l_api_name,
141 G_PKG_NAME)
142 THEN
143 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
144 END IF;
145 x_return_status := FND_API.G_RET_STS_SUCCESS;
146 delete from iem_temp_stores
147 where message_id=p_message_id;
148
149 -- Standard Check Of p_commit.
150 IF p_commit='T' THEN
151 COMMIT WORK;
152 END IF;
153 -- Standard callto get message count and if count is 1, get message info.
154 FND_MSG_PUB.Count_And_Get
155 ( p_count => x_msg_count,
156 p_data => x_msg_data
157 );
158 EXCEPTION
159 WHEN FND_API.G_EXC_ERROR THEN
160 ROLLBACK TO delete_item_PVT;
161 x_return_status := FND_API.G_RET_STS_ERROR ;
162 FND_MSG_PUB.Count_And_Get
163 ( p_count => x_msg_count,
164 p_data => x_msg_data
165 );
166 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167 ROLLBACK TO delete_item_PVT;
168 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
169 FND_MSG_PUB.Count_And_Get
170 ( p_count => x_msg_count,
171 p_data => x_msg_data
172 );
173 WHEN OTHERS THEN
174 ROLLBACK TO delete_item_PVT;
175 x_return_status := FND_API.G_RET_STS_ERROR;
176 IF FND_MSG_PUB.Check_Msg_Level
177 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
178 THEN
179 FND_MSG_PUB.Add_Exc_Msg
180 ( G_PKG_NAME ,
181 l_api_name
182 );
183 END IF;
184 FND_MSG_PUB.Count_And_Get
185 ( p_count => x_msg_count ,
186 p_data => x_msg_data
187 );
188 */
189 END delete_item;
190 END iem_temp_stores_pvt ;