PACKAGE BODY: APPS.HXT_HWS

Source

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,
9 p_seq_no                     NUMBER,
10 p_early_start                NUMBER,
11 p_late_stop                  NUMBER,
12 p_created_by                 NUMBER,
13 p_creation_date              DATE,
14 p_last_updated_by            NUMBER,
15 p_last_update_date           DATE,
16 p_last_update_login          NUMBER,
17 p_off_shift_prem_id          NUMBER,
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 
27 insert into HXT_WORK_SHIFTS(
28 sht_id,
29 tws_id,
30 week_day,
31 seq_no,
32 early_start,
33 late_stop,
34 created_by,
35 creation_date,
36 last_updated_by,
37 last_update_date,
38 last_update_login,
39 off_shift_prem_id,
40 shift_diff_ovrrd_id)
41 VALUES(
42 p_sht_id,
43 p_tws_id,
44 p_week_day,
45 p_seq_no,
46 p_early_start,
47 p_late_stop,
48 p_created_by,
49 p_creation_date,
50 p_last_updated_by,
51 p_last_update_date,
52 p_last_update_login,
53 p_off_shift_prem_id,
54 p_shift_diff_ovrrd_id);
55 
56 open c2;
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,
66 p_sht_id                     NUMBER,
67 p_tws_id                     NUMBER,
68 p_week_day                   VARCHAR2,
69 p_seq_no                     NUMBER,
70 p_early_start                NUMBER,
71 p_late_stop                  NUMBER,
72 p_created_by                 NUMBER,
73 p_creation_date              DATE,
74 p_last_updated_by            NUMBER,
75 p_last_update_date           DATE,
76 p_last_update_login          NUMBER,
77 p_off_shift_prem_id          NUMBER,
78 p_shift_diff_ovrrd_id        NUMBER
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,
88 seq_no = p_seq_no,
89 early_start = p_early_start,
90 late_stop = p_late_stop,
91 created_by = p_created_by,
92 creation_date = p_creation_date,
93 last_updated_by = p_last_updated_by,
94 last_update_date = p_last_update_date,
95 last_update_login = p_last_update_login,
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
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
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 
121 end HXT_HWS;