[Home] [Help]
PACKAGE BODY: APPS.HXT_HEP
Source
1 PACKAGE BODY HXT_HEP AS
2 /* $Header: hxtepdml.pkb 120.0 2005/05/29 06:02:55 appldev noship $ */
3
4 procedure insert_HXT_EARNING_POLICIES(
5 p_rowid IN OUT NOCOPY VARCHAR2,
6 p_id NUMBER,
7 p_hcl_id NUMBER,
8 p_fcl_earn_type VARCHAR2,
9 p_name VARCHAR2,
10 p_business_group_id NUMBER, --HXT11i1
11 p_effective_start_date DATE,
12 p_pip_id NUMBER,
13 p_pep_id NUMBER,
14 p_egt_id NUMBER,
15 p_description VARCHAR2,
16 p_effective_end_date DATE,
17 p_created_by NUMBER,
18 p_creation_date DATE,
19 p_last_updated_by NUMBER,
20 p_last_update_date DATE,
21 p_last_update_login NUMBER,
22 p_organization_id NUMBER,
23 p_round_up NUMBER,
24 p_min_tcard_intvl NUMBER,
25 p_use_points_assigned VARCHAR2
26 ) is
27
28 cursor c2 is select rowid
29 from HXT_EARNING_POLICIES
30 where effective_start_date = p_effective_start_date
31 and effective_end_date = p_effective_end_date
32 and id = p_id;
33
34 begin
35
36 insert into HXT_EARNING_POLICIES
37 (id
38 ,hcl_id
39 ,fcl_earn_type
40 ,name
41 ,business_group_id --HXT11i1
42 ,effective_start_date
43 ,pip_id
44 ,pep_id
45 ,egt_id
46 ,description
47 ,effective_end_date
48 ,created_by
49 ,creation_date
50 ,last_updated_by
51 ,last_update_date
52 ,last_update_login
53 ,organization_id
54 ,round_up
55 ,min_tcard_intvl
56 ,use_points_assigned
57 )
58 VALUES
59 (p_id
60 ,p_hcl_id
61 ,p_fcl_earn_type
62 ,p_name
63 ,p_business_group_id --HXT11i1
64 ,p_effective_start_date
65 ,p_pip_id
66 ,p_pep_id
67 ,p_egt_id
68 ,p_description
69 ,p_effective_end_date
70 ,p_created_by
71 ,p_creation_date
72 ,p_last_updated_by
73 ,p_last_update_date
74 ,p_last_update_login
75 ,p_organization_id
76 ,p_round_up
77 ,p_min_tcard_intvl
78 ,p_use_points_assigned
79 );
80
81 open c2;
82 fetch c2 into p_rowid;
83 close c2;
84 null;
85
86 end insert_HXT_EARNING_POLICIES;
87
88
89 procedure update_HXT_EARNING_POLICIES
90 (p_rowid IN VARCHAR2
91 ,p_id NUMBER
92 ,p_hcl_id NUMBER
93 ,p_fcl_earn_type VARCHAR2
94 ,p_name VARCHAR2
95 ,p_business_group_id NUMBER --HXT11i1
96 ,p_effective_start_date DATE
97 ,p_pip_id NUMBER
98 ,p_pep_id NUMBER
99 ,p_egt_id NUMBER
100 ,p_description VARCHAR2
101 ,p_effective_end_date DATE
102 ,p_created_by NUMBER
103 ,p_creation_date DATE
104 ,p_last_updated_by NUMBER
105 ,p_last_update_date DATE
106 ,p_last_update_login NUMBER
107 ,p_organization_id NUMBER
108 ,p_round_up NUMBER
109 ,p_min_tcard_intvl NUMBER
110 ,p_use_points_assigned VARCHAR2
111 ) is
112
113 begin
114
115 UPDATE HXT_EARNING_POLICIES
116 SET
117 hcl_id = p_hcl_id,
118 fcl_earn_type = p_fcl_earn_type,
119 name = p_name,
120 business_group_id = p_business_group_id, --HXT11i1
121 effective_start_date = p_effective_start_date,
122 pip_id = p_pip_id,
123 pep_id = p_pep_id,
124 egt_id = p_egt_id,
125 description = p_description,
126 effective_end_date = p_effective_end_date,
127 created_by = p_created_by,
128 creation_date = p_creation_date,
129 last_updated_by = p_last_updated_by,
130 last_update_date = p_last_update_date,
131 last_update_login = p_last_update_login,
132 organization_id = p_organization_id,
133 round_up = p_round_up,
134 min_tcard_intvl = p_min_tcard_intvl,
135 use_points_assigned = p_use_points_assigned
136 where rowid = p_rowid;
137
138 end update_HXT_EARNING_POLICIES;
139
140
141 procedure delete_HXT_EARNING_POLICIES(p_rowid VARCHAR2) is
142 begin
143 delete from HXT_EARNING_POLICIES
144 where rowid = chartorowid(p_rowid);
145 end delete_HXT_EARNING_POLICIES;
146
147 procedure lock_HXT_EARNING_POLICIES(p_rowid VARCHAR2) is
148 vnull number;
149 begin
150 if p_rowid is not null then
151 select ID into vnull
152 from HXT_EARNING_POLICIES
153 where rowid = p_rowid
154 for update of HXT_EARNING_POLICIES.ID nowait;
155
156 end if;
157 end lock_HXT_EARNING_POLICIES;
158
159 end HXT_HEP;