[Home] [Help]
PACKAGE BODY: APPS.IRC_DOCUMENT_BE2
Source
1 package body irc_document_be2 as
2 --Code generated on 27/11/2012 03:53:08
3 /* $Header: hrapiwfe.pkb 120.11 2011/12/24 13:28:35 vboggava ship $*/
4 procedure update_document_a (
5 p_effective_date date,
6 p_document_id number,
7 p_type varchar2,
8 p_mime_type varchar2,
9 p_file_name varchar2,
10 p_description varchar2,
11 p_object_version_number number) is
12 l_event_key number;
13 l_event_data clob;
14 l_event_name varchar2(250);
15 l_text varchar2(2000);
16 l_message varchar2(10);
17 --
18 cursor get_seq is
19 select per_wf_events_s.nextval from dual;
20 --
21 l_proc varchar2(72):=' irc_document_be2.update_document_a';
22 begin
23 hr_utility.set_location('Entering: '||l_proc,10);
24 -- check the status of the business event
25 l_event_name:='oracle.apps.per.irc.api.document.update_document';
26 l_message:=wf_event.test(l_event_name);
27 --
28 if (l_message='MESSAGE') then
29 hr_utility.set_location(l_proc,20);
30 --
31 -- get a key for the event
32 --
33 open get_seq;
34 fetch get_seq into l_event_key;
35 close get_seq;
36 --
37 -- build the xml data for the event
38 --
39 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
40 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
41 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
42 l_text:='<document>';
43 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
44 --
45 l_text:='<effective_date>';
46 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
47 l_text:=l_text||'</effective_date>';
48 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
49 l_text:='<document_id>';
50 l_text:=l_text||fnd_number.number_to_canonical(p_document_id);
51 l_text:=l_text||'</document_id>';
52 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
53 l_text:='<type>';
54 l_text:=l_text||irc_utilities_pkg.removeTags(p_type);
55 l_text:=l_text||'</type>';
56 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
57 l_text:='<mime_type>';
58 l_text:=l_text||irc_utilities_pkg.removeTags(p_mime_type);
59 l_text:=l_text||'</mime_type>';
60 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
61 l_text:='<file_name>';
62 l_text:=l_text||irc_utilities_pkg.removeTags(p_file_name);
63 l_text:=l_text||'</file_name>';
64 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
65 l_text:='<description>';
66 l_text:=l_text||irc_utilities_pkg.removeTags(p_description);
67 l_text:=l_text||'</description>';
68 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
69 l_text:='<object_version_number>';
70 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
71 l_text:=l_text||'</object_version_number>';
72 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
73 l_text:='</document>';
74 --
75 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
76 --
77 -- raise the event with the event data
78 wf_event.raise(p_event_name=>l_event_name
79 ,p_event_key=>l_event_key
80 ,p_event_data=>l_event_data);
81 elsif (l_message='KEY') then
82 hr_utility.set_location(l_proc,30);
83 -- get a key for the event
84 open get_seq;
85 fetch get_seq into l_event_key;
86 close get_seq;
87 -- this is a key event, so just raise the event
88 -- without the event data
89 wf_event.raise(p_event_name=>l_event_name
90 ,p_event_key=>l_event_key);
91 elsif (l_message='NONE') then
92 hr_utility.set_location(l_proc,40);
93 -- no event is required, so do nothing
94 null;
95 end if;
96 hr_utility.set_location('Leaving: '||l_proc,50);
97 end update_document_a;
98 end irc_document_be2;