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,
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:
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
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
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
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,
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
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;
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
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
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
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;
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:
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;