[Home] [Help]
1: PACKAGE BODY PER_QP_INVOCATIONS as
2: /* $Header: ffqti01t.pkb 115.6 2002/12/23 14:15:02 arashid ship $ */
3: --
4: function get_qp_session_id return NUMBER is
5: --
39: l_exists varchar2(1);
40: --
41: begin
42: --
43: hr_utility.set_location('per_qp_invocations.pre_insert_checks',1);
44: --
45: open c;
46: fetch c into l_exists;
47: if c%found then
100: and a.effective_end_date;
101: --
102: begin
103: --
104: hr_utility.set_location('per_qp_invocations.populate_fields',1);
105: --
106: open c1;
107: fetch c1 into p_qp_report_name;
108: close c1;
198: l_eol VARCHAR2(1) := '';
199: --
200: Begin
201: --
202: hr_utility.set_location('per_qp_invocations.load_result',1);
203: --
204: open c;
205: loop
206: --
241: and t.qp_invocation_id = p_qp_invocation_id);
242: --
243: begin
244: --
245: hr_utility.set_location('per_qp_invocations.get_assignment',1);
246: --
247: open c;
248: fetch c into p_full_name,p_user_person_type,p_assignment_number;
249: close c;
267: l_exists varchar2(30);
268: --
269: begin
270: --
271: hr_utility.set_location('per_qp_invocations.init_cust',1);
272: --
273: p_restrict_empapl := 'N';
274: open restriction('EMP_APL');
275: fetch restriction into l_exists;
328: l_invocation_context NUMBER;
329: --
330: begin
331: --
332: hr_utility.set_location('per_qp_invocations.validate_assignment',1);
333: --
334: open c;
335: fetch c into l_invocation_context;
336: if c%notfound then
350: procedure delete_quickpaints(p_qp_session_id NUMBER) is
351: --
352: begin
353: --
354: hr_utility.set_location('per_qp_invocations.delete_quickpaints',1);
355: --
356: delete from per_quickpaint_invocations
357: where qp_session_id = p_qp_session_id;
358: --
399: end if;
400: --
401: end print_result;
402: --
403: END PER_QP_INVOCATIONS;