[Home] [Help]
PACKAGE BODY: APPS.IEU_NONMEDIA_ACTION_PVT
Source
1 PACKAGE BODY IEU_NonMedia_Action_PVT AS
2 /* $Header: IEUNMAB.pls 115.0 2003/08/25 16:17:53 gpagadal noship $ */
3
4 -- ===============================================================
5 -- Start of Comments
6 -- Package name
7 -- IEU_NonMedia_Action_PVT
8 -- Purpose
9 -- To provide easy to use apis for Nonmedia action admin.
10 -- History
11 -- 22-Aug-2003 gpagadal Created.
12 -- NOTE
13 --
14 -- End of Comments
15 -- ===============================================================
16 PROCEDURE Create_NMediaAction( x_return_status OUT NOCOPY VARCHAR2,
17 x_msg_count OUT NOCOPY NUMBER,
18 x_msg_data OUT NOCOPY VARCHAR2,
19 p_docname IN VARCHAR2,
20 p_resp_id IN NUMBER,
21 p_tflag IN VARCHAR2,
22 p_mdef_id IN NUMBER
23 )as
24 l_language VARCHAR2(4);
25
26 l_source_lang VARCHAR2(4);
27
28 l_return_status VARCHAR2(4);
29
30 l_msg_count NUMBER(2);
31
32 l_nmedia_id IEU_UWQ_NONMEDIA_ACTIONS.NONMEDIA_ACTION_ID%type;
33 l_temp_str varchar2(80);
34
35 BEGIN
36
37
38 fnd_msg_pub.delete_msg();
39 x_return_status := fnd_api.g_ret_sts_success;
40 FND_MSG_PUB.initialize;
41 l_language := FND_GLOBAL.CURRENT_LANGUAGE;
42 l_source_lang :=FND_GLOBAL.BASE_LANGUAGE;
43 x_msg_data := '';
44 x_msg_count := 0;
45 l_temp_str := null;
46
47
48 select IEU_UWQ_NONMEDIA_ACTIONS_S1.nextval into l_nmedia_id from dual;
49
50 EXECUTE immediate 'INSERT INTO IEU_UWQ_NONMEDIA_ACTIONS '||
51 '( NONMEDIA_ACTION_ID, ' ||
52 ' CREATED_BY, ' ||
53 ' CREATION_DATE, ' ||
54 ' LAST_UPDATED_BY,' ||
55 ' LAST_UPDATE_DATE, ' ||
56 ' LAST_UPDATE_LOGIN, ' ||
57 ' ACTION_OBJECT_CODE, ' ||
58 ' MACTION_DEF_ID, ' ||
59 ' APPLICATION_ID, ' ||
60 ' RESPONSIBILITY_ID, ' ||
61 ' SOURCE_FOR_TASK_FLAG, ' ||
62 ' OBJECT_VERSION_NUMBER,' ||
63 ' SECURITY_GROUP_ID ' ||
64 ' )VALUES ' ||
65 '(:1 ,' ||
66 ' :2, '||
67 ' :3, '||
68 ' :4, '||
69 ' :5, '||
70 ' :6, '||
71 ' :7, '||
72 ' :8, '||
73 ' :9, '||
74 ' :10, '||
75 ' :11, '||
76 ' :12, '||
77 ' :13 '||
78 ') '
79 USING l_nmedia_id,
80 FND_GLOBAL.USER_ID,
81 SYSDATE,
82 FND_GLOBAL.USER_ID,
83 SYSDATE,
84 FND_GLOBAL.LOGIN_ID,
85 LTRIM(RTRIM(p_docname)),
86 p_mdef_id,
87 696,
88 p_resp_id,
89 p_tflag,
90 0,
91 0;
92
93 COMMIT;
94
95 EXCEPTION
96 WHEN fnd_api.g_exc_error THEN
97 -- DBMS_OUTPUT.PUT_LINE('Error : '||sqlerrm);
98 ROLLBACK;
99 x_return_status := fnd_api.g_ret_sts_error;
100
101 WHEN fnd_api.g_exc_unexpected_error THEN
102 -- DBMS_OUTPUT.PUT_LINE('unexpected Error : '||sqlerrm);
103 ROLLBACK;
104 x_return_status := fnd_api.g_ret_sts_unexp_error;
105
106 WHEN OTHERS THEN
107 -- DBMS_OUTPUT.PUT_LINE('other Error : '||sqlerrm);
108
109 ROLLBACK;
110 x_return_status := fnd_api.g_ret_sts_unexp_error;
111
112 END Create_NMediaAction;
113
114
115 PROCEDURE Update_NMediaAction( x_return_status OUT NOCOPY VARCHAR2,
116 x_msg_count OUT NOCOPY NUMBER,
117 x_msg_data OUT NOCOPY VARCHAR2,
118 p_nmedia_id IN NUMBER,
119 p_docname IN VARCHAR2,
120 p_resp_id IN NUMBER,
121 p_tflag IN VARCHAR2,
122 p_mdef_id IN NUMBER
123 )as
124 l_language VARCHAR2(4);
125
126 l_source_lang VARCHAR2(4);
127
128 l_return_status VARCHAR2(4);
129
130 l_msg_count NUMBER(2);
131
132 l_nmedia_id IEU_UWQ_NONMEDIA_ACTIONS.NONMEDIA_ACTION_ID%type;
133 l_temp_str varchar2(80);
134
135 BEGIN
136
137
138 fnd_msg_pub.delete_msg();
139 x_return_status := fnd_api.g_ret_sts_success;
140 FND_MSG_PUB.initialize;
141 l_language := FND_GLOBAL.CURRENT_LANGUAGE;
142 l_source_lang :=FND_GLOBAL.BASE_LANGUAGE;
143 x_msg_data := '';
144 x_msg_count := 0;
145 l_temp_str := null;
146
147
148 update IEU_UWQ_NONMEDIA_ACTIONS set
149 LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
150 LAST_UPDATE_DATE = SYSDATE,
151 LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
152 MACTION_DEF_ID = p_mdef_id,
153 RESPONSIBILITY_ID = p_resp_id,
154 SOURCE_FOR_TASK_FLAG = p_tflag,
155 ACTION_OBJECT_CODE= p_docname
156 where
157 NONMEDIA_ACTION_ID = p_nmedia_id;
158
159 if (SQL%NOTFOUND OR (SQL%ROWCOUNT <= 0)) then
160
161
162 select IEU_UWQ_NONMEDIA_ACTIONS_S1.nextval into l_nmedia_id from dual;
163
164 EXECUTE immediate 'INSERT INTO IEU_UWQ_NONMEDIA_ACTIONS '||
165 '( NONMEDIA_ACTION_ID, ' ||
166 ' CREATED_BY, ' ||
167 ' CREATION_DATE, ' ||
168 ' LAST_UPDATED_BY,' ||
169 ' LAST_UPDATE_DATE, ' ||
170 ' LAST_UPDATE_LOGIN, ' ||
171 ' ACTION_OBJECT_CODE, ' ||
172 ' MACTION_DEF_ID, ' ||
173 ' APPLICATION_ID, ' ||
174 ' RESPONSIBILITY_ID, ' ||
175 ' SOURCE_FOR_TASK_FLAG, ' ||
176 ' OBJECT_VERSION_NUMBER,' ||
177 ' SECURITY_GROUP_ID ' ||
178 ' )VALUES ' ||
179 '(:1 ,' ||
180 ' :2, '||
181 ' :3, '||
182 ' :4, '||
183 ' :5, '||
184 ' :6, '||
185 ' :7, '||
186 ' :8, '||
187 ' :9, '||
188 ' :10, '||
189 ' :11, '||
190 ' :12, '||
191 ' :13 '||
192 ') '
193 USING l_nmedia_id,
194 FND_GLOBAL.USER_ID,
195 SYSDATE,
196 FND_GLOBAL.USER_ID,
197 SYSDATE,
198 FND_GLOBAL.LOGIN_ID,
199 LTRIM(RTRIM(p_docname)),
200 p_mdef_id,
201 696,
202 p_resp_id,
203 p_tflag,
204 0,
205 0;
206
207
208
209 end if;
210
211 COMMIT;
212
213 EXCEPTION
214 WHEN fnd_api.g_exc_error THEN
215 -- DBMS_OUTPUT.PUT_LINE('Error : '||sqlerrm);
216 ROLLBACK;
217 x_return_status := fnd_api.g_ret_sts_error;
218
219 WHEN fnd_api.g_exc_unexpected_error THEN
220 -- DBMS_OUTPUT.PUT_LINE('unexpected Error : '||sqlerrm);
221 ROLLBACK;
222 x_return_status := fnd_api.g_ret_sts_unexp_error;
223
224 WHEN OTHERS THEN
225 -- DBMS_OUTPUT.PUT_LINE('other Error : '||sqlerrm);
226
227 ROLLBACK;
228 x_return_status := fnd_api.g_ret_sts_unexp_error;
229
230 END Update_NMediaAction;
231
232 PROCEDURE Delete_NMediaAction( x_return_status OUT NOCOPY VARCHAR2,
233 x_msg_count OUT NOCOPY NUMBER,
234 x_msg_data OUT NOCOPY VARCHAR2,
235 x_nmedia_id IN NUMBER
236 )as
237 l_language VARCHAR2(4);
238
239 l_source_lang VARCHAR2(4);
240
241 l_return_status VARCHAR2(4);
242
243 l_msg_count NUMBER(2);
244
245 l_nmedia_id IEU_UWQ_NONMEDIA_ACTIONS.NONMEDIA_ACTION_ID%type;
246 l_temp_str varchar2(80);
247
248 BEGIN
249
250
251 fnd_msg_pub.delete_msg();
252 x_return_status := fnd_api.g_ret_sts_success;
253 FND_MSG_PUB.initialize;
254 l_language := FND_GLOBAL.CURRENT_LANGUAGE;
255 l_source_lang :=FND_GLOBAL.BASE_LANGUAGE;
256 x_msg_data := '';
257 x_msg_count := 0;
258 l_temp_str := null;
259
260 EXECUTE immediate
261 'delete from IEU_UWQ_NONMEDIA_ACTIONS '||
262 ' where NONMEDIA_ACTION_ID = :1'
263 USING x_nmedia_id;
264
265 if (sql%notfound) then
266 null;
267 end if;
268
269 COMMIT;
270
271 EXCEPTION
272 WHEN fnd_api.g_exc_error THEN
273 -- DBMS_OUTPUT.PUT_LINE('Error : '||sqlerrm);
274 ROLLBACK;
275 x_return_status := fnd_api.g_ret_sts_error;
276
277 WHEN fnd_api.g_exc_unexpected_error THEN
278 -- DBMS_OUTPUT.PUT_LINE('unexpected Error : '||sqlerrm);
279 ROLLBACK;
280 x_return_status := fnd_api.g_ret_sts_unexp_error;
281
282 WHEN OTHERS THEN
283 -- DBMS_OUTPUT.PUT_LINE('other Error : '||sqlerrm);
284
285 ROLLBACK;
286 x_return_status := fnd_api.g_ret_sts_unexp_error;
287
288 END Delete_NMediaAction;
289
290 END IEU_NonMedia_Action_PVT;