1 PACKAGE per_pce_bus AUTHID CURRENT_USER as
2 /* $Header: pepcerhi.pkh 120.0 2005/05/31 12:56:18 appldev noship $ */
3 --
4 -- ---------------------------------------------------------------------------
5 -- |----------------------< set_security_group_id >--------------------------|
6 -- ---------------------------------------------------------------------------
7 -- {Start Of Comments}
8 --
9 -- Description:
10 -- Sets the security_group_id IN CLIENT_INFO for the appropriate business
11 -- group context.
12 --
13 -- Prerequisites:
14 -- The primary key identified by p_cagr_entitlement_id
15 -- already exists.
16 --
17 -- In Arguments:
18 -- p_cagr_entitlement_id
19 --
20 --
21 -- Post Success:
22 -- The security_group_id will be set IN CLIENT_INFO.
23 --
24 -- Post Failure:
25 -- An error is raised if the value does not exist.
26 --
27 -- Access Status:
28 -- Internal Development Use Only.
29 --
30 -- {End Of Comments}
31 -- ---------------------------------------------------------------------------
32 PROCEDURE set_security_group_id
33 (p_cagr_entitlement_id IN NUMBER
34 ,p_collective_agreement_id IN per_cagr_entitlements.collective_agreement_ID%TYPE
35 );
36 --
37 --
38 -- ---------------------------------------------------------------------------
39 -- |---------------------< return_legislation_code >-------------------------|
40 -- ---------------------------------------------------------------------------
41 -- {Start Of Comments}
42 --
43 -- Description:
44 -- RETURN the legislation code for a specific primary key value
45 --
46 -- Prerequisites:
47 -- The primary key identified by p_cagr_entitlement_id
48 -- already exists.
49 --
50 -- In Arguments:
51 -- p_cagr_entitlement_id
52 --
53 --
54 -- Post Success:
55 -- The business group's legislation code will be returned.
56 --
57 -- Post Failure:
58 -- An error is raised if the value does not exist.
59 --
60 -- Access Status:
61 -- Internal Development Use Only.
62 --
63 -- {End Of Comments}
64 -- ---------------------------------------------------------------------------
65 FUNCTION return_legislation_code
66 (p_cagr_entitlement_id IN NUMBER
67 ,p_collective_agreement_id IN per_cagr_entitlements.collective_agreement_ID%TYPE
68 )
69 RETURN VARCHAR2 ;
70 --
71 --
72 -- ----------------------------------------------------------------------------
73 -- |---------------------------< insert_validate >----------------------------|
74 -- ----------------------------------------------------------------------------
75 -- {Start of comments}
76 --
77 -- Description:
78 -- This procedure controls the execution of all insert business rules
79 -- validation.
80 --
81 -- Prerequisites:
82 -- This private procedure is called from ins procedure.
83 --
84 -- In Parameters:
85 -- A Pl/Sql record structure.
86 --
87 -- Post Success:
88 -- Processing continues.
89 --
90 -- Post Failure:
91 -- If a business rules fails the error will not be handled by this procedure
92 -- unless explicity coded.
93 --
94 -- Developer Implementation Notes:
95 -- For insert, your business rules should be executed from this procedure
96 -- and should ideally (unless really necessary) just be straight procedure
97 -- or function calls. Try and avoid using conditional branching logic.
98 --
99 -- Access Status:
100 -- Internal Row Handler Use Only.
101 --
102 -- {End of comments}
103 -- ----------------------------------------------------------------------------
104 PROCEDURE insert_validate
105 (p_effective_date IN DATE
106 ,p_rec IN per_pce_shd.g_rec_type
107 );
108 --
109 -- ----------------------------------------------------------------------------
110 -- |---------------------------< update_validate >----------------------------|
111 -- ----------------------------------------------------------------------------
112 -- {Start Of Comments}
113 --
114 -- Description:
115 -- This procedure controls the execution of all update business rules
116 -- validation.
117 --
118 -- Prerequisites:
119 -- This private procedure is called from upd procedure.
120 --
121 -- In Parameters:
122 -- A Pl/Sql record structure.
123 --
124 -- Post Success:
125 -- Processing continues.
126 --
127 -- Post Failure:
128 -- If a business rules fails the error will not be handled by this procedure
129 -- unless explicity coded.
130 --
131 -- Access Status:
132 -- Internal Row Handler Use Only.
133 --
134 -- {End Of Comments}
135 -- ----------------------------------------------------------------------------
136 PROCEDURE update_validate
137 (p_effective_date IN DATE
138 ,p_rec IN per_pce_shd.g_rec_type
139 );
140 --
141 -- ----------------------------------------------------------------------------
142 -- |---------------------------< delete_validate >----------------------------|
143 -- ----------------------------------------------------------------------------
144 -- {Start Of Comments}
145 --
146 -- Description:
147 -- This procedure controls the execution of all delete business rules
148 -- validation.
149 --
150 -- Prerequisites:
151 -- This private procedure is called from del procedure.
152 --
153 -- In Parameters:
154 -- A Pl/Sql record structure.
155 --
156 -- Post Success:
157 -- Processing continues.
158 --
159 -- Post Failure:
160 -- If a business rules fails the error will not be handled by this procedure
161 -- unless explicity coded.
162 --
163 -- Developer Implementation Notes:
164 -- For delete, your business rules should be executed from this procedure
165 -- and should ideally (unless really necessary) just be straight procedure
166 -- or function calls. Try and avoid using conditional branching logic.
167 --
168 -- Access Status:
169 -- Internal Row Handler Use Only.
170 --
171 -- {End Of Comments}
172 -- ----------------------------------------------------------------------------
173 PROCEDURE delete_validate
174 (p_rec IN per_pce_shd.g_rec_type
175 );
176 --
177 -- ----------------------------------------------------------------------------
178 -- |----------------------------< chk_start_date >----------------------------|
179 -- ----------------------------------------------------------------------------
180 -- {Start Of Comments}
181 --
182 -- Description:
183 -- This procedure is used to validate the start date
184 --
185 -- Prerequisites:
186 -- This is a private function and can only be called from the ins or upd
187 -- attribute processes.
188 --
189 -- In Parameters:
190 --
191 -- Post Success:
192 -- A returning record structure will be returned.
193 --
194 -- Post Failure:
195 -- If the validation fails a error message will be raised.
196 --
197 -- Developer Implementation Notes:
198 -- None.
199 --
200 -- Access Status:
201 -- Internal Development Use Only.
202 --
203 -- {End Of Comments}
204 -- ----------------------------------------------------------------------------
205 --
206 PROCEDURE chk_start_date
207 (p_cagr_entitlement_id IN per_cagr_entitlements.cagr_entitlement_id%TYPE
208 ,p_start_date IN per_cagr_entitlements.start_date%TYPE
209 ,p_end_date IN per_cagr_entitlements.end_date%TYPE
210 ,p_collective_Agreement_id IN per_cagr_entitlements.collective_agreement_id%TYPE
211 );
212 --
213 -- ----------------------------------------------------------------------------
214 -- |-----------------------------< chk_end_date >-----------------------------|
215 -- ----------------------------------------------------------------------------
216 -- {Start Of Comments}
217 --
218 -- Description:
219 -- This procedure is used to validate the end date
220 --
221 -- Prerequisites:
222 -- This is a private function and can only be called from the ins or upd
223 -- attribute processes.
224 --
225 -- In Parameters:
226 --
227 -- Post Success:
228 -- A returning record structure will be returned.
229 --
230 -- Post Failure:
231 -- If the validation fails a error message will be raised.
232 --
233 -- Developer Implementation Notes:
234 -- None.
235 --
236 -- Access Status:
237 -- Internal Development Use Only.
238 --
239 -- {End Of Comments}
240 -- ----------------------------------------------------------------------------
241 PROCEDURE chk_end_date
242 (p_cagr_entitlement_id IN per_cagr_entitlements.cagr_entitlement_id%TYPE
243 ,p_start_date IN per_cagr_entitlements.start_date%TYPE
244 ,p_end_date IN per_cagr_entitlements.end_date%TYPE
245 ,p_effective_date IN DATE
246 );
247 END per_pce_bus;