DBA Data[Home] [Help]

PACKAGE BODY: APPS.IRC_TEMPLATE_ASSOCIATION_BE2

Source


1 package body irc_template_association_be2 as 
2 --Code generated on 06/11/2008 12:45:50
3 /* $Header: hrapiwfe.pkb 120.4 2008/02/15 06:27:49 viviswan ship $*/
4 procedure update_template_association_a (
5 p_template_association_id      number,
6 p_template_id                  number,
7 p_effective_date               date,
8 p_default_association          varchar2,
9 p_job_id                       number,
10 p_position_id                  number,
11 p_organization_id              number,
12 p_start_date                   date,
13 p_end_date                     date) is
14   l_event_key number;
15   l_event_data clob;
16   l_event_name varchar2(250);
17   l_text varchar2(2000);
18   l_message varchar2(10);
19   --
20   cursor get_seq is
21   select per_wf_events_s.nextval from dual;
22   --
23   l_proc varchar2(72):='  irc_template_association_be2.update_template_association_a';
24 begin
25   hr_utility.set_location('Entering: '||l_proc,10);
26   -- check the status of the business event
27   l_event_name:='oracle.apps.per.irc.api.template_association.update_template_association';
28   l_message:=wf_event.test(l_event_name);
29   --
30   if (l_message='MESSAGE') then
31     hr_utility.set_location(l_proc,20);
32     --
33     -- get a key for the event
34     --
35     open get_seq;
36     fetch get_seq into l_event_key;
37     close get_seq;
38     --
39     -- build the xml data for the event
40     --
41     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
42     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
43     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
44     l_text:='<template_association>';
45     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
46     --
47     l_text:='<template_association_id>';
48     l_text:=l_text||fnd_number.number_to_canonical(p_template_association_id);
49     l_text:=l_text||'</template_association_id>';
50     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
51     l_text:='<template_id>';
52     l_text:=l_text||fnd_number.number_to_canonical(p_template_id);
53     l_text:=l_text||'</template_id>';
54     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
55     l_text:='<effective_date>';
56     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
57     l_text:=l_text||'</effective_date>';
58     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
59     l_text:='<default_association>';
60     l_text:=l_text||irc_utilities_pkg.removeTags(p_default_association);
61     l_text:=l_text||'</default_association>';
62     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
63     l_text:='<job_id>';
64     l_text:=l_text||fnd_number.number_to_canonical(p_job_id);
65     l_text:=l_text||'</job_id>';
66     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
67     l_text:='<position_id>';
68     l_text:=l_text||fnd_number.number_to_canonical(p_position_id);
69     l_text:=l_text||'</position_id>';
70     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
71     l_text:='<organization_id>';
72     l_text:=l_text||fnd_number.number_to_canonical(p_organization_id);
73     l_text:=l_text||'</organization_id>';
74     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
75     l_text:='<start_date>';
76     l_text:=l_text||fnd_date.date_to_canonical(p_start_date);
77     l_text:=l_text||'</start_date>';
78     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
79     l_text:='<end_date>';
80     l_text:=l_text||fnd_date.date_to_canonical(p_end_date);
81     l_text:=l_text||'</end_date>';
82     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
83     l_text:='</template_association>';
84     --
85     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
86     --
87     -- raise the event with the event data
88     wf_event.raise(p_event_name=>l_event_name
89                   ,p_event_key=>l_event_key
90                   ,p_event_data=>l_event_data);
91     --
92   elsif (l_message='KEY') then
93     hr_utility.set_location(l_proc,30);
94     -- get a key for the event
95     open get_seq;
96     fetch get_seq into l_event_key;
97     close get_seq;
98     -- this is a key event, so just raise the event
99     -- without the event data
100     wf_event.raise(p_event_name=>l_event_name
101                   ,p_event_key=>l_event_key);
102     --
103   elsif (l_message='NONE') then
104     hr_utility.set_location(l_proc,40);
105     -- no event is required, so do nothing
106     null;
107   end if;
108     hr_utility.set_location('Leaving: '||l_proc,50);
109 end update_template_association_a;
110 end irc_template_association_be2;