PACKAGE BODY: APPS.HXT_HT

Source

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,
9 p_date_from                  DATE,
10 p_description                VARCHAR2,
11 p_estimated_time             NUMBER,
12 p_fcl_units                  VARCHAR2,
13 p_date_to                    DATE,
14 p_created_by                 NUMBER,
15 p_creation_date              DATE,
16 p_last_updated_by            NUMBER,
17 p_last_update_date           DATE,
18 p_last_update_login          NUMBER,
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 
28 insert into HXT_TASKS(
29 id,
30 pro_id,
31 name,
32 date_from,
33 description,
34 estimated_time,
35 fcl_units,
36 date_to,
37 created_by,
38 creation_date,
39 last_updated_by,
40 last_update_date,
41 last_update_login,
42 task_number)
43 VALUES(
44 p_id,
45 p_pro_id,
46 p_name,
47 p_date_from,
48 p_description,
49 p_estimated_time,
50 p_fcl_units,
51 p_date_to,
52 p_created_by,
53 p_creation_date,
54 p_last_updated_by,
55 p_last_update_date,
56 p_last_update_login,
57 p_task_number);
58 
59 open c2;
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,
69 p_id                         NUMBER,
70 p_pro_id                     NUMBER,
71 p_name                       VARCHAR2,
72 p_date_from                  DATE,
73 p_description                VARCHAR2,
74 p_estimated_time             NUMBER,
75 p_fcl_units                  VARCHAR2,
76 p_date_to                    DATE,
77 p_created_by                 NUMBER,
78 p_creation_date              DATE,
79 p_last_updated_by            NUMBER,
80 p_last_update_date           DATE,
81 p_last_update_login          NUMBER,
82 p_task_number                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,
92 description = p_description,
93 estimated_time = p_estimated_time,
94 fcl_units = p_fcl_units,
95 date_to = p_date_to,
96 created_by = p_created_by,
97 creation_date = p_creation_date,
98 last_updated_by = p_last_updated_by,
99 last_update_date = p_last_update_date,
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
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
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 
125 end HXT_HT;