PACKAGE BODY: APPS.PAY_BALANCE_FEED_DEL_PKG

Source

1 PACKAGE BODY PAY_BALANCE_FEED_DEL_PKG as
2 /* $Header: pyscd.pkb 120.0.12010000.1 2008/10/07 11:53:37 pvelugul noship $ */
3 /*
4  Copyright (c) Oracle Corporation 1991,1992,1993. All rights reserved
5 --
6 /*
7 --
8  Name         : PAY_BALANCE_FEED_DEL_PKG
9  Author       : $Author: pvelugul $
10  Synopsis     : Purging Process - Balance Feeds.
11  Contents     : sub_class_del_proc
12                 bal_feed_main_proc
13 
14 Change List
15  -----------
16  Date        Name          Vers    Bug No     Description
17  -----------+-------------+-------+----------+-------------------------------+
18  05-Aug-2008 salogana      115.1  6595092     Added hr_general call to get
19                                               the default start,end date.
20  */
21 g_val_start_date date;
22 g_val_end_date date;
23 g_dt_mode varchar2(10) default 'ZAP';      --Default Mode ZAP
24 
25 /* Procedure which handles purging of sub classification rule id's */
26 PROCEDURE sub_class_del_proc(p_sub_classification_rule_id in number) is
27 sub_rowid rowid;
28 begin
29 g_val_start_date:=hr_general.start_of_time; --For ZAP val_start_date val_end_date wont change.
30 g_val_end_date:=hr_general.end_of_time;
31 select rowid into sub_rowid from pay_sub_classification_rules_f
32 where SUB_CLASSIFICATION_RULE_ID=p_sub_classification_rule_id;
33 
34 pay_sub_class_rules_pkg.delete_row (
35 sub_rowid,
36 p_sub_classification_rule_id,
37 g_dt_mode,
38 g_val_start_date,
39 g_val_end_date);
40 
41 end sub_class_del_proc;
42 
43 /* Procedure which calls the sub_class_del_proc procedure for purging */
44 PROCEDURE bal_feed_main_proc(
45 	errbug out nocopy varchar2,
46 	retcode out nocopy number,
47 	c_element_type_id in number,
48 	c_sub_class_id in number default null) is
49 begin
50 sub_class_del_proc(c_sub_class_id);
51 commit;
52 end bal_feed_main_proc;
53 
54 end PAY_BALANCE_FEED_DEL_PKG;