PACKAGE BODY: APPS.HXT_HER

Source

1 PACKAGE BODY HXT_HER AS
2 /* $Header: hxterdml.pkb 115.2 99/07/16 13:39:47 porting ship $ */
3 
4 procedure insert_HXT_EARNING_RULES(
5 p_rowid                      IN OUT VARCHAR2,
6 p_id                         NUMBER,
7 p_element_type_id            NUMBER,
8 p_egp_id                     NUMBER,
9 p_seq_no                     NUMBER,
10 p_name                       VARCHAR2,
11 p_egr_type                   VARCHAR2,
12 p_hours                      NUMBER,
13 p_effective_start_date       DATE,
14 p_days                       NUMBER,
15 p_effective_end_date         DATE,
16 p_created_by                 NUMBER,
17 p_creation_date              DATE,
18 p_last_updated_by            NUMBER,
19 p_last_update_date           DATE,
20 p_last_update_login          NUMBER
21 ) is
22 
23 cursor c2 is select rowid
24             from   HXT_EARNING_RULES
25             where  effective_start_date = p_effective_start_date
26             and    effective_end_date = p_effective_end_date
27             and    id = p_id;
28 
29 begin
30 
31 insert into HXT_EARNING_RULES(
32 id,
33 element_type_id,
34 egp_id,
35 seq_no,
36 name,
37 egr_type,
38 hours,
39 effective_start_date,
40 days,
41 effective_end_date,
42 created_by,
43 creation_date,
44 last_updated_by,
45 last_update_date,
46 last_update_login)
47 VALUES(
48 p_id,
49 p_element_type_id,
50 p_egp_id,
51 p_seq_no,
52 p_name,
53 p_egr_type,
54 p_hours,
55 p_effective_start_date,
56 p_days,
57 p_effective_end_date,
58 p_created_by,
59 p_creation_date,
60 p_last_updated_by,
61 p_last_update_date,
62 p_last_update_login);
63 
64 open c2;
65 fetch c2 into p_rowid;
66 close c2;
67 null;
68 
69 end insert_HXT_EARNING_RULES;
70 
71 
72 procedure update_HXT_EARNING_RULES(
73 p_rowid                      IN VARCHAR2,
74 p_id                         NUMBER,
75 p_element_type_id            NUMBER,
76 p_egp_id                     NUMBER,
77 p_seq_no                     NUMBER,
78 p_name                       VARCHAR2,
79 p_egr_type                   VARCHAR2,
80 p_hours                      NUMBER,
81 p_effective_start_date       DATE,
82 p_days                       NUMBER,
83 p_effective_end_date         DATE,
84 p_created_by                 NUMBER,
85 p_creation_date              DATE,
86 p_last_updated_by            NUMBER,
87 p_last_update_date           DATE,
88 p_last_update_login          NUMBER
89 ) is
90 
91 begin
92 
93 update HXT_EARNING_RULES
94 set
95 element_type_id = p_element_type_id,
96 egp_id = p_egp_id,
97 seq_no = p_seq_no,
98 name = p_name,
99 egr_type = p_egr_type,
100 hours = p_hours,
101 effective_start_date = p_effective_start_date,
102 days = p_days,
103 effective_end_date = p_effective_end_date,
104 created_by = p_created_by,
105 creation_date = p_creation_date,
106 last_updated_by = p_last_updated_by,
107 last_update_date = p_last_update_date,
108 last_update_login = p_last_update_login
109 where rowid = p_rowid;
110 
111 end update_HXT_EARNING_RULES;
112 
113 
114 procedure delete_HXT_EARNING_RULES(p_rowid VARCHAR2) is
115 begin
116    delete from HXT_EARNING_RULES
117    where rowid = chartorowid(p_rowid);
118 end delete_HXT_EARNING_RULES;
119 
120 procedure lock_HXT_EARNING_RULES(p_rowid VARCHAR2) is
121 vnull number;
122 begin
123 if p_rowid is not null then
124    select ID into vnull
125    from HXT_EARNING_RULES
126    where rowid = p_rowid
127    for update of HXT_EARNING_RULES.ID nowait;
128 
129 end if;
130 end lock_HXT_EARNING_RULES;
131 
132 end HXT_HER;