1: PACKAGE BODY HXT_HT AS
2: /* $Header: hxttkdml.pkb 115.0 99/07/16 14:30:54 porting ship $ */
3:
4: procedure insert_HXT_TASKS(
5: p_rowid IN OUT VARCHAR2,
6: p_id NUMBER,
7: p_pro_id NUMBER,
8: p_name VARCHAR2,
19: p_task_number VARCHAR2
20: ) is
21:
22: cursor c2 is select rowid
23: from HXT_TASKS
24: where id = p_id;
25:
26: begin
27:
24: where id = p_id;
25:
26: begin
27:
28: insert into HXT_TASKS(
29: id,
30: pro_id,
31: name,
32: date_from,
60: fetch c2 into p_rowid;
61: close c2;
62: null;
63:
64: end insert_HXT_TASKS;
65:
66:
67: procedure update_HXT_TASKS(
68: p_rowid IN VARCHAR2,
63:
64: end insert_HXT_TASKS;
65:
66:
67: procedure update_HXT_TASKS(
68: p_rowid IN VARCHAR2,
69: p_id NUMBER,
70: p_pro_id NUMBER,
71: p_name VARCHAR2,
83: ) is
84:
85: begin
86:
87: update HXT_TASKS
88: set
89: pro_id = p_pro_id,
90: name = p_name,
91: date_from = p_date_from,
100: last_update_login = p_last_update_login,
101: task_number = p_task_number
102: where rowid = p_rowid;
103:
104: end update_HXT_TASKS;
105:
106:
107: procedure delete_HXT_TASKS(p_rowid VARCHAR2) is
108: begin
103:
104: end update_HXT_TASKS;
105:
106:
107: procedure delete_HXT_TASKS(p_rowid VARCHAR2) is
108: begin
109: delete from HXT_TASKS
110: where rowid = chartorowid(p_rowid);
111: end delete_HXT_TASKS;
105:
106:
107: procedure delete_HXT_TASKS(p_rowid VARCHAR2) is
108: begin
109: delete from HXT_TASKS
110: where rowid = chartorowid(p_rowid);
111: end delete_HXT_TASKS;
112:
113: procedure lock_HXT_TASKS(p_rowid VARCHAR2) is
107: procedure delete_HXT_TASKS(p_rowid VARCHAR2) is
108: begin
109: delete from HXT_TASKS
110: where rowid = chartorowid(p_rowid);
111: end delete_HXT_TASKS;
112:
113: procedure lock_HXT_TASKS(p_rowid VARCHAR2) is
114: vnull number;
115: begin
109: delete from HXT_TASKS
110: where rowid = chartorowid(p_rowid);
111: end delete_HXT_TASKS;
112:
113: procedure lock_HXT_TASKS(p_rowid VARCHAR2) is
114: vnull number;
115: begin
116: if p_rowid is not null then
117: select ID into vnull
114: vnull number;
115: begin
116: if p_rowid is not null then
117: select ID into vnull
118: from HXT_TASKS
119: where rowid = p_rowid
120: for update of HXT_TASKS.ID nowait;
121:
122: end if;
116: if p_rowid is not null then
117: select ID into vnull
118: from HXT_TASKS
119: where rowid = p_rowid
120: for update of HXT_TASKS.ID nowait;
121:
122: end if;
123: end lock_HXT_TASKS;
124:
119: where rowid = p_rowid
120: for update of HXT_TASKS.ID nowait;
121:
122: end if;
123: end lock_HXT_TASKS;
124:
125: end HXT_HT;