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