[Home] [Help]
PACKAGE BODY: APPS.HR_ASSIGNMENT_BEP
Source
1 package body hr_assignment_beP as
2 --Code generated on 30/03/2009 04:47:03
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure delete_assignment_a (
5 p_effective_date date,
6 p_assignment_id number,
7 p_datetrack_mode varchar2,
8 p_loc_change_tax_issues boolean,
9 p_delete_asg_budgets boolean,
10 p_org_now_no_manager_warning boolean,
11 p_element_salary_warning boolean,
12 p_element_entries_warning boolean,
13 p_spp_warning boolean,
14 p_cost_warning boolean,
15 p_life_events_exists boolean,
16 p_cobra_coverage_elements boolean,
17 p_assgt_term_elements boolean) is
18 l_event_key number;
19 l_event_data clob;
20 l_event_name varchar2(250);
21 l_text varchar2(2000);
22 l_message varchar2(10);
23 --
24 cursor get_seq is
25 select per_wf_events_s.nextval from dual;
26 --
27 l_proc varchar2(72):=' hr_assignment_beP.delete_assignment_a';
28 begin
29 hr_utility.set_location('Entering: '||l_proc,10);
30 -- check the status of the business event
31 l_event_name:='oracle.apps.per.api.assignment.delete_assignment';
32 l_message:=wf_event.test(l_event_name);
33 --
34 if (l_message='MESSAGE') then
35 hr_utility.set_location(l_proc,20);
36 --
37 -- get a key for the event
38 --
39 open get_seq;
40 fetch get_seq into l_event_key;
41 close get_seq;
42 --
43 -- build the xml data for the event
44 --
45 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
46 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
47 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
48 l_text:='<assignment>';
49 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
50 --
51 l_text:='<effective_date>';
52 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
53 l_text:=l_text||'</effective_date>';
54 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
55 l_text:='<assignment_id>';
56 l_text:=l_text||fnd_number.number_to_canonical(p_assignment_id);
57 l_text:=l_text||'</assignment_id>';
58 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
59 l_text:='<datetrack_mode>';
60 l_text:=l_text||irc_utilities_pkg.removeTags(p_datetrack_mode);
61 l_text:=l_text||'</datetrack_mode>';
62 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
63 l_text:='<loc_change_tax_issues>';
64 if(P_LOC_CHANGE_TAX_ISSUES) then
65 l_text:=l_text||'TRUE';
66 else
67 l_text:=l_text||'FALSE';
68 end if;
69 l_text:=l_text||'</loc_change_tax_issues>';
70 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
71 l_text:='<delete_asg_budgets>';
72 if(P_DELETE_ASG_BUDGETS) then
73 l_text:=l_text||'TRUE';
74 else
75 l_text:=l_text||'FALSE';
76 end if;
77 l_text:=l_text||'</delete_asg_budgets>';
78 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
79 l_text:='<org_now_no_manager_warning>';
80 if(P_ORG_NOW_NO_MANAGER_WARNING) then
81 l_text:=l_text||'TRUE';
82 else
83 l_text:=l_text||'FALSE';
84 end if;
85 l_text:=l_text||'</org_now_no_manager_warning>';
86 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
87 l_text:='<element_salary_warning>';
88 if(P_ELEMENT_SALARY_WARNING) then
89 l_text:=l_text||'TRUE';
90 else
91 l_text:=l_text||'FALSE';
92 end if;
93 l_text:=l_text||'</element_salary_warning>';
94 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
95 l_text:='<element_entries_warning>';
96 if(P_ELEMENT_ENTRIES_WARNING) then
97 l_text:=l_text||'TRUE';
98 else
99 l_text:=l_text||'FALSE';
100 end if;
101 l_text:=l_text||'</element_entries_warning>';
102 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
103 l_text:='<spp_warning>';
104 if(P_SPP_WARNING) then
105 l_text:=l_text||'TRUE';
106 else
107 l_text:=l_text||'FALSE';
108 end if;
109 l_text:=l_text||'</spp_warning>';
110 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
111 l_text:='<cost_warning>';
112 if(P_COST_WARNING) then
113 l_text:=l_text||'TRUE';
114 else
115 l_text:=l_text||'FALSE';
116 end if;
117 l_text:=l_text||'</cost_warning>';
118 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
119 l_text:='<life_events_exists>';
120 if(P_LIFE_EVENTS_EXISTS) then
121 l_text:=l_text||'TRUE';
122 else
123 l_text:=l_text||'FALSE';
124 end if;
125 l_text:=l_text||'</life_events_exists>';
126 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
127 l_text:='<cobra_coverage_elements>';
128 if(P_COBRA_COVERAGE_ELEMENTS) then
129 l_text:=l_text||'TRUE';
130 else
131 l_text:=l_text||'FALSE';
132 end if;
133 l_text:=l_text||'</cobra_coverage_elements>';
134 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
135 l_text:='<assgt_term_elements>';
136 if(P_ASSGT_TERM_ELEMENTS) then
137 l_text:=l_text||'TRUE';
138 else
139 l_text:=l_text||'FALSE';
140 end if;
141 l_text:=l_text||'</assgt_term_elements>';
142 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
143 l_text:='</assignment>';
144 --
145 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
146 --
147 -- raise the event with the event data
148 wf_event.raise(p_event_name=>l_event_name
149 ,p_event_key=>l_event_key
150 ,p_event_data=>l_event_data);
151 elsif (l_message='KEY') then
152 hr_utility.set_location(l_proc,30);
153 -- get a key for the event
154 open get_seq;
155 fetch get_seq into l_event_key;
156 close get_seq;
157 -- this is a key event, so just raise the event
158 -- without the event data
159 wf_event.raise(p_event_name=>l_event_name
160 ,p_event_key=>l_event_key);
161 elsif (l_message='NONE') then
162 hr_utility.set_location(l_proc,40);
163 -- no event is required, so do nothing
164 null;
165 end if;
166 hr_utility.set_location('Leaving: '||l_proc,50);
167 end delete_assignment_a;
168 end hr_assignment_beP;