1 Package per_pdm_bus AUTHID CURRENT_USER as
2 /* $Header: pepdmrhi.pkh 120.0 2005/05/31 13:05:01 appldev noship $ */
3 --
4 --
5 -- The following two global variables are only to be
6 -- used by the return_legislation_code function.
7 --
8 g_legislation_code varchar2(150) default null;
9 g_delivery_method_id number default null;
10 g_called_from_form boolean := false; -- Global flag set to true by forms
11 -- code calling the RH.
12 --
13 --
14 -- ----------------------------------------------------------------------------
15 -- |---------------------------< insert_validate >----------------------------|
16 -- ----------------------------------------------------------------------------
17 -- {Start Of Comments}
18 --
19 -- Description:
20 -- This procedure controls the execution of all insert business rules
21 -- validation.
22 --
23 -- Prerequisites:
24 -- This private procedure is called from ins procedure.
25 --
26 -- In Parameters:
27 -- A Pl/Sql record structre.
28 --
29 -- Post Success:
30 -- Processing continues.
31 --
32 -- Post Failure:
33 -- If a business rules fails the error will not be handled by this procedure
34 -- unless explicity coded.
35 --
36 -- Developer Implementation Notes:
37 -- For insert, your business rules should be executed from this procedure and
38 -- should ideally (unless really necessary) just be straight procedure or
39 -- function calls. Try and avoid using conditional branching logic.
40 --
41 -- Access Status:
42 -- Internal Row Handler Use Only.
43 --
44 -- {End Of Comments}
45 -- ----------------------------------------------------------------------------
46 Procedure insert_validate(p_rec in per_pdm_shd.g_rec_type
47 ,p_effective_date in date);
48 --
49 -- ----------------------------------------------------------------------------
50 -- |---------------------------< update_validate >----------------------------|
51 -- ----------------------------------------------------------------------------
52 -- {Start Of Comments}
53 --
54 -- Description:
55 -- This procedure controls the execution of all update business rules
56 -- validation.
57 --
58 -- Prerequisites:
59 -- This private procedure is called from upd procedure.
60 --
61 -- In Parameters:
62 -- A Pl/Sql record structre.
63 --
64 -- Post Success:
65 -- Processing continues.
66 --
67 -- Post Failure:
68 -- If a business rules fails the error will not be handled by this procedure
69 -- unless explicity coded.
70 --
71 -- Developer Implementation Notes:
72 -- For update, your business rules should be executed from this procedure and
73 -- should ideally (unless really necessary) just be straight procedure or
74 -- function calls. Try and avoid using conditional branching logic.
75 --
76 -- Access Status:
77 -- Internal Row Handler Use Only.
78 --
79 -- {End Of Comments}
80 -- ----------------------------------------------------------------------------
81 Procedure update_validate(p_rec in per_pdm_shd.g_rec_type
82 ,p_effective_date in date);
83 --
84 -- ----------------------------------------------------------------------------
85 -- |---------------------------< delete_validate >----------------------------|
86 -- ----------------------------------------------------------------------------
87 -- {Start Of Comments}
88 --
89 -- Description:
90 -- This procedure controls the execution of all delete business rules
91 -- validation.
92 --
93 -- Prerequisites:
94 -- This private procedure is called from del procedure.
95 --
96 -- In Parameters:
97 -- A Pl/Sql record structre.
98 --
99 -- Post Success:
100 -- Processing continues.
101 --
102 -- Post Failure:
103 -- If a business rules fails the error will not be handled by this procedure
104 -- unless explicity coded.
105 --
106 -- Developer Implementation Notes:
107 -- For delete, your business rules should be executed from this procedure and
108 -- should ideally (unless really necessary) just be straight procedure or
109 -- function calls. Try and avoid using conditional branching logic.
110 --
111 -- Access Status:
112 -- Internal Row Handler Use Only.
113 --
114 -- {End Of Comments}
115 -- ----------------------------------------------------------------------------
116 Procedure delete_validate(p_rec in per_pdm_shd.g_rec_type);
117 --
118 --
119 -- ---------------------------------------------------------------------------
120 -- |---------------------< return_legislation_code >-------------------------|
121 -- ---------------------------------------------------------------------------
122 --
123 function return_legislation_code
124 (p_delivery_method_id in number
125 ) return varchar2 ;
126 -- ----------------------------------------------------------------------------
127 -- |-------------------------< set_called_from_form >-------------------------|
128 -- ----------------------------------------------------------------------------
129 -- {Start Of Comments}
130 --
131 -- Description:
132 -- This procedure is used to set the global g_called_from_form which controls
133 -- the execution of the preferred_flag check routine
134 --
135 -- Pre Conditions:
136 -- This is a public function
137 --
138 -- In Parameters:
139 --
140 -- Post Success:
141 -- The global variable is set.
142 --
143 -- Post Failure:
144 -- No failure condition exists.
145 --
146 -- Developer Implementation Notes:
147 -- None.
148 --
149 -- Access Status:
150 -- Internal Development Use Only.
151 --
152 -- {End Of Comments}
153 -- ----------------------------------------------------------------------------
154 Procedure set_called_from_form
155 ( p_flag in boolean );
156 --
157 end per_pdm_bus;