[Home] [Help]
PACKAGE BODY: APPS.PER_CANCEL_PLACEMENT_BE1
Source
1 package body per_cancel_placement_be1 as
2 --Code generated on 30/03/2009 04:46:23
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure cancel_placement_a (
5 p_business_group_id number,
6 p_person_id number,
7 p_effective_date date,
8 p_supervisor_warning boolean,
9 p_recruiter_warning boolean,
10 p_event_warning boolean,
11 p_interview_warning boolean,
12 p_review_warning boolean,
13 p_vacancy_warning boolean,
14 p_requisition_warning boolean,
15 p_budget_warning boolean,
16 p_payment_warning boolean) is
17 l_event_key number;
18 l_event_data clob;
19 l_event_name varchar2(250);
20 l_text varchar2(2000);
21 l_message varchar2(10);
22 --
23 cursor get_seq is
24 select per_wf_events_s.nextval from dual;
25 --
26 l_proc varchar2(72):=' per_cancel_placement_be1.cancel_placement_a';
27 begin
28 hr_utility.set_location('Entering: '||l_proc,10);
29 -- check the status of the business event
30 l_event_name:='oracle.apps.per.api.cancel_placement.cancel_placement';
31 l_message:=wf_event.test(l_event_name);
32 --
33 if (l_message='MESSAGE') then
34 hr_utility.set_location(l_proc,20);
35 --
36 -- get a key for the event
37 --
38 open get_seq;
39 fetch get_seq into l_event_key;
40 close get_seq;
41 --
42 -- build the xml data for the event
43 --
44 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
45 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
46 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
47 l_text:='<cancel_placement>';
48 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
49 --
50 l_text:='<business_group_id>';
51 l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
52 l_text:=l_text||'</business_group_id>';
53 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
54 l_text:='<person_id>';
55 l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
56 l_text:=l_text||'</person_id>';
57 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
58 l_text:='<effective_date>';
59 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
60 l_text:=l_text||'</effective_date>';
61 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
62 l_text:='<supervisor_warning>';
63 if(P_SUPERVISOR_WARNING) then
64 l_text:=l_text||'TRUE';
65 else
66 l_text:=l_text||'FALSE';
67 end if;
68 l_text:=l_text||'</supervisor_warning>';
69 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
70 l_text:='<recruiter_warning>';
71 if(P_RECRUITER_WARNING) then
72 l_text:=l_text||'TRUE';
73 else
74 l_text:=l_text||'FALSE';
75 end if;
76 l_text:=l_text||'</recruiter_warning>';
77 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
78 l_text:='<event_warning>';
79 if(P_EVENT_WARNING) then
80 l_text:=l_text||'TRUE';
81 else
82 l_text:=l_text||'FALSE';
83 end if;
84 l_text:=l_text||'</event_warning>';
85 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
86 l_text:='<interview_warning>';
87 if(P_INTERVIEW_WARNING) then
88 l_text:=l_text||'TRUE';
89 else
90 l_text:=l_text||'FALSE';
91 end if;
92 l_text:=l_text||'</interview_warning>';
93 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
94 l_text:='<review_warning>';
95 if(P_REVIEW_WARNING) then
96 l_text:=l_text||'TRUE';
97 else
98 l_text:=l_text||'FALSE';
99 end if;
100 l_text:=l_text||'</review_warning>';
101 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
102 l_text:='<vacancy_warning>';
103 if(P_VACANCY_WARNING) then
104 l_text:=l_text||'TRUE';
105 else
106 l_text:=l_text||'FALSE';
107 end if;
108 l_text:=l_text||'</vacancy_warning>';
109 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
110 l_text:='<requisition_warning>';
111 if(P_REQUISITION_WARNING) then
112 l_text:=l_text||'TRUE';
113 else
114 l_text:=l_text||'FALSE';
115 end if;
116 l_text:=l_text||'</requisition_warning>';
117 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
118 l_text:='<budget_warning>';
119 if(P_BUDGET_WARNING) then
120 l_text:=l_text||'TRUE';
121 else
122 l_text:=l_text||'FALSE';
123 end if;
124 l_text:=l_text||'</budget_warning>';
125 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
126 l_text:='<payment_warning>';
127 if(P_PAYMENT_WARNING) then
128 l_text:=l_text||'TRUE';
129 else
130 l_text:=l_text||'FALSE';
131 end if;
132 l_text:=l_text||'</payment_warning>';
133 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
134 l_text:='</cancel_placement>';
135 --
136 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
137 --
138 -- raise the event with the event data
139 wf_event.raise(p_event_name=>l_event_name
140 ,p_event_key=>l_event_key
141 ,p_event_data=>l_event_data);
142 elsif (l_message='KEY') then
143 hr_utility.set_location(l_proc,30);
144 -- get a key for the event
145 open get_seq;
146 fetch get_seq into l_event_key;
147 close get_seq;
148 -- this is a key event, so just raise the event
149 -- without the event data
150 wf_event.raise(p_event_name=>l_event_name
151 ,p_event_key=>l_event_key);
152 elsif (l_message='NONE') then
153 hr_utility.set_location(l_proc,40);
154 -- no event is required, so do nothing
155 null;
156 end if;
157 hr_utility.set_location('Leaving: '||l_proc,50);
158 end cancel_placement_a;
159 end per_cancel_placement_be1;