1 Package ben_cpg_bus as
2 /* $Header: becpgrhi.pkh 120.0 2005/05/28 01:13 appldev noship $ */
3 /* commented
4 --
5 -- ---------------------------------------------------------------------------
6 -- |----------------------< set_security_group_id >--------------------------|
7 -- ---------------------------------------------------------------------------
8 -- {Start Of Comments}
9 --
10 -- Description:
11 -- Sets the security_group_id in CLIENT_INFO for the appropriate business
12 -- group context.
13 --
14 -- Prerequisites:
15 -- The primary key identified by p_group_per_in_ler_id
16 -- p_group_pl_id
17 -- p_group_oipl_id
18 -- already exists.
19 --
20 -- In Arguments:
21 -- p_group_per_in_ler_id
22 -- p_group_pl_id
23 -- p_group_oipl_id
24 --
25 --
26 -- Post Success:
27 -- The security_group_id will be set in CLIENT_INFO.
28 --
29 -- Post Failure:
30 -- An error is raised if the value does not exist.
31 --
32 -- Access Status:
33 -- Internal Development Use Only.
34 --
35 -- {End Of Comments}
36 -- ---------------------------------------------------------------------------
37 procedure set_security_group_id
38 (p_group_per_in_ler_id in number
39 ,p_group_pl_id in number
40 ,p_group_oipl_id in number
41 ,p_associated_column1 in varchar2 default null
42 ,p_associated_column2 in varchar2 default null
43 ,p_associated_column3 in varchar2 default null
44 );
45 --
46 --
47 -- ---------------------------------------------------------------------------
48 -- |---------------------< return_legislation_code >-------------------------|
49 -- ---------------------------------------------------------------------------
50 -- {Start Of Comments}
51 --
52 -- Description:
53 -- Return the legislation code for a specific primary key value
54 --
55 -- Prerequisites:
56 -- The primary key identified by p_group_per_in_ler_id
57 -- p_group_pl_id
58 -- p_group_oipl_id
59 -- already exists.
60 --
61 -- In Arguments:
62 -- p_group_per_in_ler_id
63 -- p_group_pl_id
64 -- p_group_oipl_id
65 --
66 --
67 -- Post Success:
68 -- The business group's legislation code will be returned.
69 --
70 -- Post Failure:
71 -- An error is raised if the value does not exist.
72 --
73 -- Access Status:
74 -- Internal Development Use Only.
75 --
76 -- {End Of Comments}
77 -- ---------------------------------------------------------------------------
78 FUNCTION return_legislation_code
79 (p_group_per_in_ler_id in number
80 ,p_group_pl_id in number
81 ,p_group_oipl_id in number
82 ) RETURN varchar2;
83
84 End of commented code*/
85 --
86 --
87 -- ----------------------------------------------------------------------------
88 -- |---------------------------< insert_validate >----------------------------|
89 -- ----------------------------------------------------------------------------
90 -- {Start of comments}
91 --
92 -- Description:
93 -- This procedure controls the execution of all insert business rules
94 -- validation.
95 --
96 -- Prerequisites:
97 -- This private procedure is called from ins procedure.
98 --
99 -- In Parameters:
100 -- A Pl/Sql record structure.
101 --
102 -- Post Success:
103 -- Processing continues.
104 --
105 -- Post Failure:
106 -- If a business rules fails the error will not be handled by this procedure
107 -- unless explicity coded.
108 --
109 -- Developer Implementation Notes:
110 -- For insert, your business rules should be executed from this procedure
111 -- and should ideally (unless really necessary) just be straight procedure
112 -- or function calls. Try and avoid using conditional branching logic.
113 --
114 -- Access Status:
115 -- Internal Row Handler Use Only.
116 --
117 -- {End of comments}
118 -- ----------------------------------------------------------------------------
119 Procedure insert_validate
120 (p_rec in ben_cpg_shd.g_rec_type
121 );
122 --
123 -- ----------------------------------------------------------------------------
124 -- |---------------------------< update_validate >----------------------------|
125 -- ----------------------------------------------------------------------------
126 -- {Start Of Comments}
127 --
128 -- Description:
129 -- This procedure controls the execution of all update business rules
130 -- validation.
131 --
132 -- Prerequisites:
133 -- This private procedure is called from upd procedure.
134 --
135 -- In Parameters:
136 -- A Pl/Sql record structure.
137 --
138 -- Post Success:
139 -- Processing continues.
140 --
141 -- Post Failure:
142 -- If a business rules fails the error will not be handled by this procedure
143 -- unless explicity coded.
144 --
145 -- Access Status:
146 -- Internal Row Handler Use Only.
147 --
148 -- {End Of Comments}
149 -- ----------------------------------------------------------------------------
150 Procedure update_validate
151 (p_rec in ben_cpg_shd.g_rec_type
152 );
153 --
154 -- ----------------------------------------------------------------------------
155 -- |---------------------------< delete_validate >----------------------------|
156 -- ----------------------------------------------------------------------------
157 -- {Start Of Comments}
158 --
159 -- Description:
160 -- This procedure controls the execution of all delete business rules
161 -- validation.
162 --
163 -- Prerequisites:
164 -- This private procedure is called from del procedure.
165 --
166 -- In Parameters:
167 -- A Pl/Sql record structure.
168 --
169 -- Post Success:
170 -- Processing continues.
171 --
172 -- Post Failure:
173 -- If a business rules fails the error will not be handled by this procedure
174 -- unless explicity coded.
175 --
176 -- Developer Implementation Notes:
177 -- For delete, your business rules should be executed from this procedure
178 -- and should ideally (unless really necessary) just be straight procedure
179 -- or function calls. Try and avoid using conditional branching logic.
180 --
181 -- Access Status:
182 -- Internal Row Handler Use Only.
183 --
184 -- {End Of Comments}
185 -- ----------------------------------------------------------------------------
186 Procedure delete_validate
187 (p_rec in ben_cpg_shd.g_rec_type
188 );
189 --
190 end ben_cpg_bus;