PACKAGE BODY: APPS.HXT_HEP

Source

1 PACKAGE BODY HXT_HEP AS
2 /* $Header: hxtepdml.pkb 120.0 2005/05/29 06:02:55 appldev noship $ */
3 
4 procedure insert_HXT_EARNING_POLICIES(
5 p_rowid                      IN OUT NOCOPY VARCHAR2,
6 p_id                         NUMBER,
7 p_hcl_id                     NUMBER,
8 p_fcl_earn_type              VARCHAR2,
9 p_name                       VARCHAR2,
10 p_business_group_id          NUMBER,  --HXT11i1
11 p_effective_start_date       DATE,
12 p_pip_id                     NUMBER,
13 p_pep_id                     NUMBER,
14 p_egt_id                     NUMBER,
15 p_description                VARCHAR2,
16 p_effective_end_date         DATE,
17 p_created_by                 NUMBER,
18 p_creation_date              DATE,
19 p_last_updated_by            NUMBER,
20 p_last_update_date           DATE,
21 p_last_update_login          NUMBER,
22 p_organization_id            NUMBER,
23 p_round_up                   NUMBER,
24 p_min_tcard_intvl            NUMBER,
25 p_use_points_assigned        VARCHAR2
26 ) is
27 
28 cursor c2 is select rowid
29             from   HXT_EARNING_POLICIES
30             where  effective_start_date = p_effective_start_date
31             and    effective_end_date = p_effective_end_date
32             and    id = p_id;
33 
34 begin
35 
36 insert into HXT_EARNING_POLICIES
37 (id
38 ,hcl_id
39 ,fcl_earn_type
40 ,name
41 ,business_group_id  --HXT11i1
42 ,effective_start_date
43 ,pip_id
44 ,pep_id
45 ,egt_id
46 ,description
47 ,effective_end_date
48 ,created_by
49 ,creation_date
50 ,last_updated_by
51 ,last_update_date
52 ,last_update_login
53 ,organization_id
54 ,round_up
55 ,min_tcard_intvl
56 ,use_points_assigned
57 )
58 VALUES
59 (p_id
60 ,p_hcl_id
61 ,p_fcl_earn_type
62 ,p_name
63 ,p_business_group_id  --HXT11i1
64 ,p_effective_start_date
65 ,p_pip_id
66 ,p_pep_id
67 ,p_egt_id
68 ,p_description
69 ,p_effective_end_date
70 ,p_created_by
71 ,p_creation_date
72 ,p_last_updated_by
73 ,p_last_update_date
74 ,p_last_update_login
75 ,p_organization_id
76 ,p_round_up
77 ,p_min_tcard_intvl
78 ,p_use_points_assigned
79 );
80 
81 open c2;
82 fetch c2 into p_rowid;
83 close c2;
84 null;
85 
86 end insert_HXT_EARNING_POLICIES;
87 
88 
89 procedure update_HXT_EARNING_POLICIES
90 (p_rowid                      IN VARCHAR2
91 ,p_id                         NUMBER
92 ,p_hcl_id                     NUMBER
93 ,p_fcl_earn_type              VARCHAR2
94 ,p_name                       VARCHAR2
95 ,p_business_group_id          NUMBER  --HXT11i1
96 ,p_effective_start_date       DATE
97 ,p_pip_id                     NUMBER
98 ,p_pep_id                     NUMBER
99 ,p_egt_id                     NUMBER
100 ,p_description                VARCHAR2
101 ,p_effective_end_date         DATE
102 ,p_created_by                 NUMBER
103 ,p_creation_date              DATE
104 ,p_last_updated_by            NUMBER
105 ,p_last_update_date           DATE
106 ,p_last_update_login          NUMBER
107 ,p_organization_id            NUMBER
108 ,p_round_up                   NUMBER
109 ,p_min_tcard_intvl            NUMBER
110 ,p_use_points_assigned        VARCHAR2
111 ) is
112 
113 begin
114 
115 UPDATE HXT_EARNING_POLICIES
116 SET
117 hcl_id               = p_hcl_id,
118 fcl_earn_type        = p_fcl_earn_type,
119 name                 = p_name,
120 business_group_id    = p_business_group_id,  --HXT11i1
121 effective_start_date = p_effective_start_date,
122 pip_id               = p_pip_id,
123 pep_id               = p_pep_id,
124 egt_id               = p_egt_id,
125 description          = p_description,
126 effective_end_date   = p_effective_end_date,
127 created_by           = p_created_by,
128 creation_date        = p_creation_date,
129 last_updated_by      = p_last_updated_by,
130 last_update_date     = p_last_update_date,
131 last_update_login    = p_last_update_login,
132 organization_id      = p_organization_id,
133 round_up             = p_round_up,
134 min_tcard_intvl      = p_min_tcard_intvl,
135 use_points_assigned  = p_use_points_assigned
136 where rowid          = p_rowid;
137 
138 end update_HXT_EARNING_POLICIES;
139 
140 
141 procedure delete_HXT_EARNING_POLICIES(p_rowid VARCHAR2) is
142 begin
143    delete from HXT_EARNING_POLICIES
144    where rowid = chartorowid(p_rowid);
145 end delete_HXT_EARNING_POLICIES;
146 
147 procedure lock_HXT_EARNING_POLICIES(p_rowid VARCHAR2) is
148 vnull number;
149 begin
150 if p_rowid is not null then
151    select ID into vnull
152    from HXT_EARNING_POLICIES
153    where rowid = p_rowid
154    for update of HXT_EARNING_POLICIES.ID nowait;
155 
156 end if;
157 end lock_HXT_EARNING_POLICIES;
158 
159 end HXT_HEP;