PACKAGE BODY: APPS.HXT_HWWS

Source

1 PACKAGE BODY HXT_HWWS AS
2 /* $Header: hxtwwsdm.pkb 120.0 2005/05/29 06:06:32 appldev noship $ */
3 
4 procedure insert_HXT_WEEKLY_WORK_SCHEDUL(
5 p_rowid                      IN OUT NOCOPY VARCHAR2,
6 p_id                         NUMBER,
7 p_name                       VARCHAR2,
8 p_business_group_id          NUMBER,
9 p_start_day                  VARCHAR2,
10 p_date_from                  DATE,
11 p_description                VARCHAR2,
12 p_date_to                    DATE,
13 p_created_by                 NUMBER,
14 p_creation_date              DATE,
15 p_last_updated_by            NUMBER,
16 p_last_update_date           DATE,
17 p_last_update_login          NUMBER
18 ) is
19 
20 cursor c2 is select rowid
21             from   HXT_WEEKLY_WORK_SCHEDULES
22             where  id = p_id;
23 
24 begin
25 
26 insert into HXT_WEEKLY_WORK_SCHEDULES(
27 id,
28 name,
29 business_group_id,
30 start_day,
31 date_from,
32 description,
33 date_to,
34 created_by,
35 creation_date,
36 last_updated_by,
37 last_update_date,
38 last_update_login
39 )
40 VALUES(
41 p_id,
42 p_name,
43 p_business_group_id,
44 p_start_day,
45 p_date_from,
46 p_description,
47 p_date_to,
48 p_created_by,
49 p_creation_date,
50 p_last_updated_by,
51 p_last_update_date,
52 p_last_update_login);
53 
54 open c2;
55 fetch c2 into p_rowid;
56 close c2;
57 null;
58 
59 end insert_HXT_WEEKLY_WORK_SCHEDUL;
60 
61 
62 procedure update_HXT_WEEKLY_WORK_SCHEDUL(
63 p_rowid                      IN VARCHAR2,
64 p_id                         NUMBER,
65 p_name                       VARCHAR2,
66 p_business_group_id          NUMBER,
67 p_start_day                  VARCHAR2,
68 p_date_from                  DATE,
69 p_description                VARCHAR2,
70 p_date_to                    DATE,
71 p_created_by                 NUMBER,
72 p_creation_date              DATE,
73 p_last_updated_by            NUMBER,
74 p_last_update_date           DATE,
75 p_last_update_login          NUMBER
76 ) is
77 
78 begin
79 
80 update HXT_WEEKLY_WORK_SCHEDULES
81 set
82 name = p_name,
83 business_group_id = p_business_group_id,
84 start_day = p_start_day,
85 date_from = p_date_from,
86 description = p_description,
87 date_to = p_date_to,
88 created_by = p_created_by,
89 creation_date = p_creation_date,
90 last_updated_by = p_last_updated_by,
91 last_update_date = p_last_update_date,
92 last_update_login = p_last_update_login
93 where rowid = p_rowid;
94 
95 end update_HXT_WEEKLY_WORK_SCHEDUL;
96 
97 
98 procedure delete_HXT_WEEKLY_WORK_SCHEDUL(p_rowid VARCHAR2) is
99 begin
100    delete from HXT_WEEKLY_WORK_SCHEDULES
101    where rowid = chartorowid(p_rowid);
102 end delete_HXT_WEEKLY_WORK_SCHEDUL;
103 
104 procedure lock_HXT_WEEKLY_WORK_SCHEDULES(p_rowid VARCHAR2) is
105 vnull number;
106 begin
107 if p_rowid is not null then
108    select ID into vnull
109    from HXT_WEEKLY_WORK_SCHEDULES
110    where rowid = p_rowid
111    for update of HXT_WEEKLY_WORK_SCHEDULES.ID nowait;
112 
113 end if;
114 end lock_HXT_WEEKLY_WORK_SCHEDULES;
115 
116 end HXT_HWWS;