PACKAGE BODY: APPS.HXT_HDR

Source

1 PACKAGE BODY HXT_HDR AS
2 /* $Header: hxthdrdm.pkb 115.0 99/07/16 14:28:49 porting ship $ */
3 
4 procedure insert_HXT_HOUR_DEDUCTION_RULE(
5 p_rowid                      IN OUT VARCHAR2,
6 p_hdp_id                     NUMBER,
7 p_fcl_deduction_type         VARCHAR2,
8 p_effective_start_date       DATE,
9 p_hours                      NUMBER,
10 p_time_period                NUMBER,
11 p_effective_end_date         DATE,
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 ) is
18 
19 cursor c2 is select rowid
20             from   HXT_HOUR_DEDUCTION_RULES
21             where  effective_start_date = p_effective_start_date
22             and    effective_end_date = p_effective_end_date
23             and    hdp_id = p_hdp_id;
24 
25 begin
26 
27 insert into HXT_HOUR_DEDUCTION_RULES(
28 hdp_id,
29 fcl_deduction_type,
30 effective_start_date,
31 hours,
32 time_period,
33 effective_end_date,
34 created_by,
35 creation_date,
36 last_updated_by,
37 last_update_date,
38 last_update_login)
39 VALUES(
40 p_hdp_id,
41 p_fcl_deduction_type,
42 p_effective_start_date,
43 p_hours,
44 p_time_period,
45 p_effective_end_date,
46 p_created_by,
47 p_creation_date,
48 p_last_updated_by,
49 p_last_update_date,
50 p_last_update_login);
51 
52 open c2;
53 fetch c2 into p_rowid;
54 close c2;
55 null;
56 
57 end insert_HXT_HOUR_DEDUCTION_RULE;
58 
59 
60 procedure update_HXT_HOUR_DEDUCTION_RULE(
61 p_rowid                      IN VARCHAR2,
62 p_hdp_id                     NUMBER,
63 p_fcl_deduction_type         VARCHAR2,
64 p_effective_start_date       DATE,
65 p_hours                      NUMBER,
66 p_time_period                NUMBER,
67 p_effective_end_date         DATE,
68 p_created_by                 NUMBER,
69 p_creation_date              DATE,
70 p_last_updated_by            NUMBER,
71 p_last_update_date           DATE,
72 p_last_update_login          NUMBER
73 ) is
74 
75 begin
76 
77 update HXT_HOUR_DEDUCTION_RULES
78 set
79 fcl_deduction_type = p_fcl_deduction_type,
80 effective_start_date = p_effective_start_date,
81 hours = p_hours,
82 time_period = p_time_period,
83 effective_end_date = p_effective_end_date,
84 created_by = p_created_by,
85 creation_date = p_creation_date,
86 last_updated_by = p_last_updated_by,
87 last_update_date = p_last_update_date,
88 last_update_login = p_last_update_login
89 where rowid = p_rowid;
90 
91 end update_HXT_HOUR_DEDUCTION_RULE;
92 
93 
94 procedure delete_HXT_HOUR_DEDUCTION_RULE(p_rowid VARCHAR2) is
95 begin
96    delete from HXT_HOUR_DEDUCTION_RULES
97    where rowid = chartorowid(p_rowid);
98 end delete_HXT_HOUR_DEDUCTION_RULE;
99 
100 procedure lock_HXT_HOUR_DEDUCTION_RULES(p_rowid VARCHAR2) is
101 vnull number;
102 begin
103 if p_rowid is not null then
104    select HDP_ID into vnull
105    from HXT_HOUR_DEDUCTION_RULES
106    where rowid = p_rowid
107    for update of HXT_HOUR_DEDUCTION_RULES.HDP_ID nowait;
108 
109 end if;
110 end lock_HXT_HOUR_DEDUCTION_RULES;
111 
112 end HXT_HDR;