1 package body pay_pgp_flex as
2 /* $Header: pypgpfli.pkb 115.0 99/07/17 06:21:49 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_pgp_flex.'; -- Global package name
9 -- ----------------------------------------------------------------------------
10 -- |-------------------------------< kf >-------------------------------------|
11 -- ----------------------------------------------------------------------------
12 procedure kf
13 (p_rec in pay_pgp_shd.g_rec_type) is
14 --
15 l_proc varchar2(72) := g_package||'kf';
16 l_legislation_code per_business_groups.legislation_code%type;
17 l_error exception;
18 --
19 begin
20 hr_utility.set_location('Entering:'||l_proc, 5);
21 --
22 -- Ensure that p_rec.id_flex_num is mandatory
23 --
24 hr_api.mandatory_arg_error
25 (p_api_name => l_proc,
26 p_argument => 'P_ID_FLEX_NUM',
27 p_argument_value => p_rec.id_flex_num);
28 --
29 -- branch on id_flex_num. this will be modified by users.
30 --
31 if p_rec.id_flex_num is not null then
32 --
33 -- If segment values are not null then
34 -- an error must be flagged until user
35 -- defined key flex validation has
36 -- been entered
37 --
38 if p_rec.segment1 is not null then
39 raise l_error;
40 elsif p_rec.segment2 is not null then
41 raise l_error;
42 elsif p_rec.segment3 is not null then
43 raise l_error;
44 elsif p_rec.segment4 is not null then
45 raise l_error;
46 elsif p_rec.segment5 is not null then
47 raise l_error;
48 elsif p_rec.segment6 is not null then
49 raise l_error;
50 elsif p_rec.segment7 is not null then
51 raise l_error;
52 elsif p_rec.segment8 is not null then
53 raise l_error;
54 elsif p_rec.segment9 is not null then
55 raise l_error;
56 elsif p_rec.segment10 is not null then
57 raise l_error;
58 elsif p_rec.segment11 is not null then
59 raise l_error;
60 elsif p_rec.segment12 is not null then
61 raise l_error;
62 elsif p_rec.segment13 is not null then
63 raise l_error;
64 elsif p_rec.segment14 is not null then
65 raise l_error;
66 elsif p_rec.segment15 is not null then
67 raise l_error;
68 elsif p_rec.segment16 is not null then
69 raise l_error;
70 elsif p_rec.segment17 is not null then
71 raise l_error;
72 elsif p_rec.segment18 is not null then
73 raise l_error;
74 elsif p_rec.segment19 is not null then
75 raise l_error;
76 elsif p_rec.segment20 is not null then
77 raise l_error;
78 elsif p_rec.segment21 is not null then
79 raise l_error;
80 elsif p_rec.segment22 is not null then
81 raise l_error;
82 elsif p_rec.segment23 is not null then
83 raise l_error;
84 elsif p_rec.segment24 is not null then
85 raise l_error;
86 elsif p_rec.segment25 is not null then
87 raise l_error;
88 elsif p_rec.segment26 is not null then
89 raise l_error;
90 elsif p_rec.segment27 is not null then
91 raise l_error;
92 elsif p_rec.segment28 is not null then
93 raise l_error;
94 elsif p_rec.segment29 is not null then
95 raise l_error;
96 elsif p_rec.segment30 is not null then
97 raise l_error;
98 end if;
99 --
100 end if;
101 --
102 exception
103 when l_error then
104 hr_utility.set_message(801, 'HR_51337_PGP_KEY_FLEX_SEG_ARG');
105 hr_utility.raise_error;
106 hr_utility.set_location(' Leaving:'||l_proc, 10);
107 end kf;
108 --
109 end pay_pgp_flex;