[Home] [Help]
PACKAGE BODY: APPS.PAY_BACM
Source
1 PACKAGE BODY pay_bacm AS
2 /* $Header: pybacsmd.pkb 115.0 99/07/17 05:43:43 porting ship $ */
3 FUNCTION is_date_valid( ass_act_id in number ,
4 ov_rid_date IN DATE,
5 per_pro_date IN DATE)
6 RETURN VARCHAR IS
7 --
8 assign_act_id number := ass_act_id;
9 ov_date DATE := ov_rid_date;
10 p_proc_date DATE := per_pro_date;
11 rr_date varchar(11):= '01-01-1900';
12 --
13 BEGIN
14 select prrv.result_value into rr_date
15 from
16 pay_element_types pet,
17 pay_input_values piv,
18 pay_run_result_values prrv,
19 pay_run_results prr
20 where prr.assignment_action_id
21 = assign_act_id
22 and prrv.run_result_id
23 = prr.run_result_id
24 and pet.element_type_id
25 = prr.element_type_id
26 and pet.element_name
27 = 'BACS Process Date'
28 and piv.input_value_id
29 = prrv.input_value_id
30 and piv.name
31 = 'Process Date';
32 --
33 if to_date(rr_date, 'DD-MON-YYYY') = per_pro_date then
34 Return 'TRUE';
35 elsif (to_date(rr_date, 'DD-MON-YYYY') < per_pro_date and
36 per_pro_date = ov_rid_date) then
37 return 'TRUE';
38 else
39 return 'FALSE';
40 end if;
41 --
42 EXCEPTION
43 WHEN NO_DATA_FOUND THEN
44 return 'FALSE';
45 WHEN OTHERS THEN
46 return 'FALSE';
47 END is_date_valid;
48 END pay_bacm;