[Home] [Help]
PACKAGE BODY: APPS.JTM_NOTES_VUHK
Source
1 PACKAGE BODY JTM_NOTES_VUHK AS
2 /* $Header: jtmhkntb.pls 120.1 2005/08/24 02:13:23 saradhak noship $ */
3
4 Cursor Get_hook_info(p_processing_type in varchar2, p_api_name in varchar2) is
5 Select HOOK_PACKAGE, HOOK_API , EXECUTE_FLAG, PRODUCT_CODE
6 from JTF_HOOKS_DATA
7 Where package_name = 'JTM_NOTES_PUB' and
8 upper(api_name) = upper(p_api_name) and
9 processing_type = p_processing_type and
10 execute_flag = 'Y' and
11 hook_type = 'V';
12
13 /* Verticals Procedure for pre processing in case of create note */
14
15 PROCEDURE create_note_pre
16 ( p_parent_note_id IN NUMBER
17 , p_api_version IN NUMBER
18 , p_init_msg_list IN VARCHAR2
19 , p_commit IN VARCHAR2
20 , p_validation_level IN NUMBER
21 , x_msg_count OUT NOCOPY NUMBER
22 , x_msg_data OUT NOCOPY VARCHAR2
23 , p_org_id IN NUMBER
24 , p_source_object_id IN NUMBER
25 , p_source_object_code IN VARCHAR2
26 , p_notes IN VARCHAR2
27 , p_notes_detail IN VARCHAR2
28 , p_note_status IN VARCHAR2
29 , p_entered_by IN NUMBER
30 , p_entered_date IN DATE
31 , x_jtf_note_id OUT NOCOPY NUMBER
32 , p_last_update_date IN DATE
33 , p_last_updated_by IN NUMBER
34 , p_creation_date IN DATE
35 , p_created_by IN NUMBER
36 , p_last_update_login IN NUMBER
37 , p_attribute1 IN VARCHAR2
38 , p_attribute2 IN VARCHAR2
39 , p_attribute3 IN VARCHAR2
40 , p_attribute4 IN VARCHAR2
41 , p_attribute5 IN VARCHAR2
42 , p_attribute6 IN VARCHAR2
43 , p_attribute7 IN VARCHAR2
44 , p_attribute8 IN VARCHAR2
45 , p_attribute9 IN VARCHAR2
46 , p_attribute10 IN VARCHAR2
47 , p_attribute11 IN VARCHAR2
48 , p_attribute12 IN VARCHAR2
49 , p_attribute13 IN VARCHAR2
50 , p_attribute14 IN VARCHAR2
51 , p_attribute15 IN VARCHAR2
52 , p_context IN VARCHAR2
53 , p_note_type IN VARCHAR2
54 , p_jtf_note_contexts_tab IN jtf_notes_pub.jtf_note_contexts_tbl_type
55 , x_return_status OUT NOCOPY VARCHAR2
56 ) is
57 begin
58 x_return_status := FND_API.G_RET_STS_SUCCESS;
59 end create_note_pre;
60
61
62 /* Verticals Procedure for post processing in case of create note */
63
64 PROCEDURE create_note_post
65 ( p_parent_note_id IN NUMBER
66 , p_api_version IN NUMBER
67 , p_init_msg_list IN VARCHAR2
68 , p_commit IN VARCHAR2
69 , p_validation_level IN NUMBER
70 , x_msg_count OUT NOCOPY NUMBER
71 , x_msg_data OUT NOCOPY VARCHAR2
72 , p_org_id IN NUMBER
73 , p_source_object_id IN NUMBER
74 , p_source_object_code IN VARCHAR2
75 , p_notes IN VARCHAR2
76 , p_notes_detail IN VARCHAR2
77 , p_note_status IN VARCHAR2
78 , p_entered_by IN NUMBER
79 , p_entered_date IN DATE
80 , x_jtf_note_id OUT NOCOPY NUMBER
81 , p_last_update_date IN DATE
82 , p_last_updated_by IN NUMBER
83 , p_creation_date IN DATE
84 , p_created_by IN NUMBER
85 , p_last_update_login IN NUMBER
86 , p_attribute1 IN VARCHAR2
87 , p_attribute2 IN VARCHAR2
88 , p_attribute3 IN VARCHAR2
89 , p_attribute4 IN VARCHAR2
90 , p_attribute5 IN VARCHAR2
91 , p_attribute6 IN VARCHAR2
92 , p_attribute7 IN VARCHAR2
93 , p_attribute8 IN VARCHAR2
94 , p_attribute9 IN VARCHAR2
95 , p_attribute10 IN VARCHAR2
96 , p_attribute11 IN VARCHAR2
97 , p_attribute12 IN VARCHAR2
98 , p_attribute13 IN VARCHAR2
99 , p_attribute14 IN VARCHAR2
100 , p_attribute15 IN VARCHAR2
101 , p_context IN VARCHAR2
102 , p_note_type IN VARCHAR2
103 --, p_jtf_note_contexts_tab IN jtf_notes_pub.jtf_note_contexts_tbl_type
104 , x_return_status OUT NOCOPY VARCHAR2
105 , p_jtf_note_id IN NUMBER
106 ) is
107 l_enable_flag varchar2(20);
108 l_cursorid INTEGER;
109 l_strBuffer VARCHAR2(2000);
110 l_execute_status INTEGER;
111
112 begin
113 x_return_status := FND_API.G_RET_STS_SUCCESS;
114
115 FOR Csr1 in Get_hook_info('A', 'CREATE_NOTE') LOOP
116
117 /* check execute flag */
118 l_enable_flag := Csr1.EXECUTE_FLAG;
119
120 /* use profile for checking */
121 l_enable_flag := JTM_PROFILE_UTL_PKG.Get_enable_flag_at_resp
122 (p_app_short_name => Csr1.PRODUCT_CODE);
123
124 if (l_enable_flag = 'Y') then
125 l_cursorid := DBMS_SQL.open_cursor;
126 l_strBuffer :=
127 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
128 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
129 ' exception ' ||
130 ' when others then ' ||
131 ' null; ' ||
132 ' end; ';
133 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
134 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
135 DBMS_SQL.bind_variable (l_cursorid, ':2', p_init_msg_list);
136 DBMS_SQL.bind_variable (l_cursorid, ':3', p_commit);
137 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
138 DBMS_SQL.bind_variable (l_cursorid, ':5', x_msg_count);
139 DBMS_SQL.bind_variable (l_cursorid, ':6', x_msg_data);
140 DBMS_SQL.bind_variable (l_cursorid, ':7', x_return_status);
141 DBMS_SQL.bind_variable (l_cursorid, ':8', p_jtf_note_id);
142 /*
143 l_strBuffer :=
144 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
145 '(:1,:2,:3,:4,:5,:6,:7,:8' ||
146 ' ,:9,:10,:11,:12,:13,:14,:15,:16,:17,:18,:19,:20,' ||
147 ' :21,:22,:23,:24,:25,:26,:27,:28,:29,:30,' ||
148 ' :31,:32,:33,:34,:35,:36,:37,:38,:40,:41' ||
149 '); ' ||
150 ' exception ' ||
151 ' when others then ' ||
152 ' null; ' ||
153 ' end; ';
154 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
155 DBMS_SQL.bind_variable (l_cursorid, ':1', p_parent_note_id);
156 DBMS_SQL.bind_variable (l_cursorid, ':2', p_api_version);
157 DBMS_SQL.bind_variable (l_cursorid, ':3', p_init_msg_list);
158 DBMS_SQL.bind_variable (l_cursorid, ':4', p_commit);
159 DBMS_SQL.bind_variable (l_cursorid, ':5', p_validation_level);
160 DBMS_SQL.bind_variable (l_cursorid, ':6', x_msg_count);
161 DBMS_SQL.bind_variable (l_cursorid, ':7', x_msg_data);
162 DBMS_SQL.bind_variable (l_cursorid, ':8', p_jtf_note_id);
163 DBMS_SQL.bind_variable (l_cursorid, ':8', p_org_id);
164 DBMS_SQL.bind_variable (l_cursorid, ':9', p_source_object_id);
165 DBMS_SQL.bind_variable (l_cursorid, ':10', p_source_object_code);
166 DBMS_SQL.bind_variable (l_cursorid, ':11', p_notes);
167 DBMS_SQL.bind_variable (l_cursorid, ':12', p_notes_detail);
168 DBMS_SQL.bind_variable (l_cursorid, ':13', p_note_status);
169 DBMS_SQL.bind_variable (l_cursorid, ':14', p_entered_by);
170 DBMS_SQL.bind_variable (l_cursorid, ':15', p_entered_date);
171 DBMS_SQL.bind_variable (l_cursorid, ':16', x_jtf_note_id);
172 DBMS_SQL.bind_variable (l_cursorid, ':17', p_last_update_date);
173 DBMS_SQL.bind_variable (l_cursorid, ':18', p_last_updated_by);
174 DBMS_SQL.bind_variable (l_cursorid, ':19', p_creation_date);
175 DBMS_SQL.bind_variable (l_cursorid, ':20', p_created_by);
176 DBMS_SQL.bind_variable (l_cursorid, ':21', p_last_update_login);
177 DBMS_SQL.bind_variable (l_cursorid, ':22', p_attribute1);
178 DBMS_SQL.bind_variable (l_cursorid, ':23', p_attribute2);
179 DBMS_SQL.bind_variable (l_cursorid, ':24', p_attribute3);
180 DBMS_SQL.bind_variable (l_cursorid, ':25', p_attribute4);
181 DBMS_SQL.bind_variable (l_cursorid, ':26', p_attribute5);
182 DBMS_SQL.bind_variable (l_cursorid, ':27', p_attribute6);
183 DBMS_SQL.bind_variable (l_cursorid, ':28', p_attribute7);
184 DBMS_SQL.bind_variable (l_cursorid, ':29', p_attribute8);
185 DBMS_SQL.bind_variable (l_cursorid, ':30', p_attribute9);
186 DBMS_SQL.bind_variable (l_cursorid, ':31', p_attribute10);
187 DBMS_SQL.bind_variable (l_cursorid, ':32', p_attribute11);
188 DBMS_SQL.bind_variable (l_cursorid, ':33', p_attribute12);
189 DBMS_SQL.bind_variable (l_cursorid, ':34', p_attribute13);
190 DBMS_SQL.bind_variable (l_cursorid, ':35', p_attribute14);
191 DBMS_SQL.bind_variable (l_cursorid, ':36', p_attribute15);
192 DBMS_SQL.bind_variable (l_cursorid, ':37', p_context);
193 DBMS_SQL.bind_variable (l_cursorid, ':38', p_note_type);
194 --DBMS_SQL.BIND_VARIABLE_RAW (l_cursorid, ':39', p_jtf_note_contexts_tab);
195 DBMS_SQL.bind_variable (l_cursorid, ':40', x_return_status);
196 DBMS_SQL.bind_variable (l_cursorid, ':41', p_jtf_note_id);
197 */
198 begin
199 l_execute_status := DBMS_SQL.execute (l_cursorid);
200 exception
201 when others then
202 null;
203 end;
204 DBMS_SQL.close_cursor (l_cursorid);
205
206 end if;
207
208 END LOOP;
209
210 EXCEPTION WHEN OTHERS THEN
211 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212 end create_note_post;
213
214
215 /* Verticals Procedure for pre processing in case of update note */
216
217 PROCEDURE update_note_pre
218 ( p_api_version IN NUMBER
219 , p_init_msg_list IN VARCHAR2
220 , p_commit IN VARCHAR2
221 , p_validation_level IN NUMBER
222 , x_msg_count OUT NOCOPY NUMBER
223 , x_msg_data OUT NOCOPY VARCHAR2
224 , p_jtf_note_id IN NUMBER
225 , p_entered_by IN NUMBER
226 , p_last_updated_by IN NUMBER
227 , p_last_update_date IN DATE
228 , p_last_update_login IN NUMBER
229 , p_notes IN VARCHAR2
230 , p_notes_detail IN VARCHAR2
231 , p_append_flag IN VARCHAR2
232 , p_note_status IN VARCHAR2
233 , p_note_type IN VARCHAR2
234 --, p_jtf_note_contexts_tab IN jtf_notes_pub.jtf_note_contexts_tbl_type
235 , x_return_status OUT NOCOPY VARCHAR2
236 ) IS
237 l_enable_flag varchar2(20);
238 l_cursorid INTEGER;
239 l_strBuffer VARCHAR2(2000);
240 l_execute_status INTEGER;
241
242 BEGIN
243 x_return_status := FND_API.G_RET_STS_SUCCESS;
244
245 FOR Csr1 in Get_hook_info('B', 'UPDATE_NOTE') LOOP
246
247 /* user execute flag */
248 l_enable_flag := Csr1.EXECUTE_FLAG;
249
250 /* use profile for checking */
251 l_enable_flag := JTM_PROFILE_UTL_PKG.Get_enable_flag_at_resp
252 (p_app_short_name => Csr1.PRODUCT_CODE);
253
254 if (l_enable_flag = 'Y') then
255 l_cursorid := DBMS_SQL.open_cursor;
256 l_strBuffer :=
257 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
258 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
259 ' exception ' ||
260 ' when others then ' ||
261 ' null; ' ||
262 ' end; ';
263 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
264 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
265 DBMS_SQL.bind_variable (l_cursorid, ':2', p_init_msg_list);
266 DBMS_SQL.bind_variable (l_cursorid, ':3', p_commit);
267 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
268 DBMS_SQL.bind_variable (l_cursorid, ':5', x_msg_count);
269 DBMS_SQL.bind_variable (l_cursorid, ':6', x_msg_data);
270 DBMS_SQL.bind_variable (l_cursorid, ':7', x_return_status);
271 DBMS_SQL.bind_variable (l_cursorid, ':8', p_jtf_note_id);
272
273 /*
274 l_strBuffer :=
275 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
276 '(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,' ||
277 ' :11,:12,:13,:14,:15,:16,:17); ' ||
278 ' exception ' ||
279 ' when others then ' ||
280 ' null; ' ||
281 ' end; ';
282 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
283 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
284 DBMS_SQL.bind_variable (l_cursorid, ':2', p_init_msg_list);
285 DBMS_SQL.bind_variable (l_cursorid, ':3', p_commit);
286 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
287 DBMS_SQL.bind_variable (l_cursorid, ':5', x_msg_count);
288 DBMS_SQL.bind_variable (l_cursorid, ':6', x_msg_data);
289 DBMS_SQL.bind_variable (l_cursorid, ':7', p_jtf_note_id);
290 DBMS_SQL.bind_variable (l_cursorid, ':8', p_entered_by);
291 DBMS_SQL.bind_variable (l_cursorid, ':9', p_last_updated_by);
292 DBMS_SQL.bind_variable (l_cursorid, ':10', p_last_update_date);
293 DBMS_SQL.bind_variable (l_cursorid, ':11', p_last_update_login);
294 DBMS_SQL.bind_variable (l_cursorid, ':12', p_notes);
295 DBMS_SQL.bind_variable (l_cursorid, ':13', p_notes_detail);
296 DBMS_SQL.bind_variable (l_cursorid, ':14', p_append_flag);
297 DBMS_SQL.bind_variable (l_cursorid, ':15', p_note_status);
298 DBMS_SQL.bind_variable (l_cursorid, ':16', p_note_type);
299 DBMS_SQL.bind_variable (l_cursorid, ':17', x_return_status);
300 */
301 begin
302 l_execute_status := DBMS_SQL.execute (l_cursorid);
303 exception
304 when others then
305 null;
306 end;
307 DBMS_SQL.close_cursor (l_cursorid);
308 end if;
309
310 END LOOP;
311
312 EXCEPTION WHEN OTHERS THEN
313 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314 end update_note_pre;
315
316
317 /* Vertical Procedure for post processing in case of update note */
318
319 PROCEDURE update_note_post
320 ( p_api_version IN NUMBER
321 , p_init_msg_list IN VARCHAR2
322 , p_commit IN VARCHAR2
323 , p_validation_level IN NUMBER
324 , x_msg_count OUT NOCOPY NUMBER
325 , x_msg_data OUT NOCOPY VARCHAR2
326 , p_jtf_note_id IN NUMBER
327 , p_entered_by IN NUMBER
328 , p_last_updated_by IN NUMBER
329 , p_last_update_date IN DATE
330 , p_last_update_login IN NUMBER
331 , p_notes IN VARCHAR2
332 , p_notes_detail IN VARCHAR2
333 , p_append_flag IN VARCHAR2
334 , p_note_status IN VARCHAR2
335 , p_note_type IN VARCHAR2
336 --, p_jtf_note_contexts_tab IN jtf_notes_pub.jtf_note_contexts_tbl_type
337 , x_return_status OUT NOCOPY VARCHAR2
338 ) IS
339
340 l_enable_flag varchar2(20);
341 l_cursorid INTEGER;
342 l_strBuffer VARCHAR2(2000);
343 l_execute_status INTEGER;
344
345 BEGIN
346 x_return_status := FND_API.G_RET_STS_SUCCESS;
347
348 FOR Csr1 in Get_hook_info('A', 'UPDATE_NOTE') LOOP
349
350 /* user execute flag */
351 l_enable_flag := Csr1.EXECUTE_FLAG;
352
353 /* use profile for checking */
354 l_enable_flag := JTM_PROFILE_UTL_PKG.Get_enable_flag_at_resp
355 (p_app_short_name => Csr1.PRODUCT_CODE);
356
357 if (l_enable_flag = 'Y') then
358 l_cursorid := DBMS_SQL.open_cursor;
359 l_strBuffer :=
360 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
361 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
362 ' exception ' ||
363 ' when others then ' ||
364 ' null; ' ||
365 ' end; ';
366 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
367 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
368 DBMS_SQL.bind_variable (l_cursorid, ':2', p_init_msg_list);
369 DBMS_SQL.bind_variable (l_cursorid, ':3', p_commit);
370 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
371 DBMS_SQL.bind_variable (l_cursorid, ':5', x_msg_count);
372 DBMS_SQL.bind_variable (l_cursorid, ':6', x_msg_data);
373 DBMS_SQL.bind_variable (l_cursorid, ':7', x_return_status);
374 DBMS_SQL.bind_variable (l_cursorid, ':8', p_jtf_note_id);
375
376 /*
377 l_strBuffer :=
378 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
379 '(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,' ||
380 ' :11,:12,:13,:14,:15,:16,:17); ' ||
381 ' exception ' ||
382 ' when others then ' ||
383 ' null; ' ||
384 ' end; ';
385 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
386 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
387 DBMS_SQL.bind_variable (l_cursorid, ':2', p_init_msg_list);
388 DBMS_SQL.bind_variable (l_cursorid, ':3', p_commit);
389 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
390 DBMS_SQL.bind_variable (l_cursorid, ':5', x_msg_count);
391 DBMS_SQL.bind_variable (l_cursorid, ':6', x_msg_data);
392 DBMS_SQL.bind_variable (l_cursorid, ':7', p_jtf_note_id);
393 DBMS_SQL.bind_variable (l_cursorid, ':8', p_entered_by);
394 DBMS_SQL.bind_variable (l_cursorid, ':9', p_last_updated_by);
395 DBMS_SQL.bind_variable (l_cursorid, ':10', p_last_update_date);
396 DBMS_SQL.bind_variable (l_cursorid, ':11', p_last_update_login);
397 DBMS_SQL.bind_variable (l_cursorid, ':12', p_notes);
398 DBMS_SQL.bind_variable (l_cursorid, ':13', p_notes_detail);
399 DBMS_SQL.bind_variable (l_cursorid, ':14', p_append_flag);
400 DBMS_SQL.bind_variable (l_cursorid, ':15', p_note_status);
401 DBMS_SQL.bind_variable (l_cursorid, ':16', p_note_type);
402 DBMS_SQL.bind_variable (l_cursorid, ':17', x_return_status);
403 */
404 begin
405 l_execute_status := DBMS_SQL.execute (l_cursorid);
406 exception
407 when others then
408 null;
409 end;
410 DBMS_SQL.close_cursor (l_cursorid);
411 end if;
412
413 END LOOP;
414
415 EXCEPTION WHEN OTHERS THEN
416 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
417
418 END;
419
420 FUNCTION Ok_to_generate_msg
421 ( p_parent_note_id IN NUMBER
422 , p_api_version IN NUMBER
423 , p_init_msg_list IN VARCHAR2
424 , p_commit IN VARCHAR2
425 , p_validation_level IN NUMBER
426 , x_msg_count OUT NOCOPY NUMBER
427 , x_msg_data OUT NOCOPY VARCHAR2
428 , p_org_id IN NUMBER
429 , p_source_object_id IN NUMBER
430 , p_source_object_code IN VARCHAR2
431 , p_notes IN VARCHAR2
432 , p_notes_detail IN VARCHAR2
433 , p_note_status IN VARCHAR2
434 , p_entered_by IN NUMBER
435 , p_entered_date IN DATE
436 , x_jtf_note_id OUT NOCOPY NUMBER
437 , p_last_update_date IN DATE
438 , p_last_updated_by IN NUMBER
439 , p_creation_date IN DATE
440 , p_created_by IN NUMBER
441 , p_last_update_login IN NUMBER
442 , p_attribute1 IN VARCHAR2
443 , p_attribute2 IN VARCHAR2
444 , p_attribute3 IN VARCHAR2
445 , p_attribute4 IN VARCHAR2
446 , p_attribute5 IN VARCHAR2
447 , p_attribute6 IN VARCHAR2
448 , p_attribute7 IN VARCHAR2
449 , p_attribute8 IN VARCHAR2
450 , p_attribute9 IN VARCHAR2
451 , p_attribute10 IN VARCHAR2
452 , p_attribute11 IN VARCHAR2
453 , p_attribute12 IN VARCHAR2
454 , p_attribute13 IN VARCHAR2
455 , p_attribute14 IN VARCHAR2
456 , p_attribute15 IN VARCHAR2
457 , p_context IN VARCHAR2
458 , p_note_type IN VARCHAR2
459 , p_jtf_note_contexts_tab IN jtf_notes_pub.jtf_note_contexts_tbl_type
460 )RETURN BOOLEAN
461 IS
462 BEGIN
463 RETURN TRUE;
464 END;
465
466 END JTM_notes_vuhk;