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;