1: PACKAGE BODY HXT_HWS AS
2: /* $Header: hxtwsdml.pkb 115.0 99/07/16 14:31:53 porting ship $ */
3:
4: procedure insert_HXT_WORK_SHIFTS(
5: p_rowid IN OUT VARCHAR2,
6: p_sht_id NUMBER,
7: p_tws_id NUMBER,
8: p_week_day VARCHAR2,
18: p_shift_diff_ovrrd_id NUMBER
19: ) is
20:
21: cursor c2 is select rowid
22: from HXT_WORK_SHIFTS
23: where sht_id = p_sht_id;
24:
25: begin
26:
23: where sht_id = p_sht_id;
24:
25: begin
26:
27: insert into HXT_WORK_SHIFTS(
28: sht_id,
29: tws_id,
30: week_day,
31: seq_no,
57: fetch c2 into p_rowid;
58: close c2;
59: null;
60:
61: end insert_HXT_WORK_SHIFTS;
62:
63:
64: procedure update_HXT_WORK_SHIFTS(
65: p_rowid IN VARCHAR2,
60:
61: end insert_HXT_WORK_SHIFTS;
62:
63:
64: procedure update_HXT_WORK_SHIFTS(
65: p_rowid IN VARCHAR2,
66: p_sht_id NUMBER,
67: p_tws_id NUMBER,
68: p_week_day VARCHAR2,
79: ) is
80:
81: begin
82:
83: update HXT_WORK_SHIFTS
84: set
85: sht_id = p_sht_id,
86: tws_id = p_tws_id,
87: week_day = p_week_day,
96: off_shift_prem_id = p_off_shift_prem_id,
97: shift_diff_ovrrd_id = p_shift_diff_ovrrd_id
98: where rowid = p_rowid;
99:
100: end update_HXT_WORK_SHIFTS;
101:
102:
103: procedure delete_HXT_WORK_SHIFTS(p_rowid VARCHAR2) is
104: begin
99:
100: end update_HXT_WORK_SHIFTS;
101:
102:
103: procedure delete_HXT_WORK_SHIFTS(p_rowid VARCHAR2) is
104: begin
105: delete from HXT_WORK_SHIFTS
106: where rowid = chartorowid(p_rowid);
107: end delete_HXT_WORK_SHIFTS;
101:
102:
103: procedure delete_HXT_WORK_SHIFTS(p_rowid VARCHAR2) is
104: begin
105: delete from HXT_WORK_SHIFTS
106: where rowid = chartorowid(p_rowid);
107: end delete_HXT_WORK_SHIFTS;
108:
109: procedure lock_HXT_WORK_SHIFTS(p_rowid VARCHAR2) is
103: procedure delete_HXT_WORK_SHIFTS(p_rowid VARCHAR2) is
104: begin
105: delete from HXT_WORK_SHIFTS
106: where rowid = chartorowid(p_rowid);
107: end delete_HXT_WORK_SHIFTS;
108:
109: procedure lock_HXT_WORK_SHIFTS(p_rowid VARCHAR2) is
110: vnull number;
111: begin
105: delete from HXT_WORK_SHIFTS
106: where rowid = chartorowid(p_rowid);
107: end delete_HXT_WORK_SHIFTS;
108:
109: procedure lock_HXT_WORK_SHIFTS(p_rowid VARCHAR2) is
110: vnull number;
111: begin
112: if p_rowid is not null then
113: select SHT_ID into vnull
110: vnull number;
111: begin
112: if p_rowid is not null then
113: select SHT_ID into vnull
114: from HXT_WORK_SHIFTS
115: where rowid = p_rowid
116: for update of HXT_WORK_SHIFTS.SHT_ID nowait;
117:
118: end if;
112: if p_rowid is not null then
113: select SHT_ID into vnull
114: from HXT_WORK_SHIFTS
115: where rowid = p_rowid
116: for update of HXT_WORK_SHIFTS.SHT_ID nowait;
117:
118: end if;
119: end lock_HXT_WORK_SHIFTS;
120:
115: where rowid = p_rowid
116: for update of HXT_WORK_SHIFTS.SHT_ID nowait;
117:
118: end if;
119: end lock_HXT_WORK_SHIFTS;
120:
121: end HXT_HWS;