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