1 Package Body per_apl_flex as
2 /* $Header: peaplfli.pkb 115.0 99/07/17 18:31:33 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_apl_flex.'; -- Global package name
9 --
10 --
11 -- ----------------------------------------------------------------------------
12 -- |-------------------------------< df >-------------------------------------|
13 -- ----------------------------------------------------------------------------
14 procedure df
15 (p_rec in per_apl_shd.g_rec_type) is
16 --
17 l_proc varchar2(72) := g_package||'df';
18 l_error exception;
19 --
20 Begin
21 hr_utility.set_location('Entering:'||l_proc, 5);
22 --
23 /*
24 -- Check for value of reference field an then
25 -- call relevant validation procedure.
26 --
27 if <reference field value> is not null then
28 --
29 if <reference field value> is <value> then
30 --
31 -- Call suitable validation procedure
32 --
33 elsif <reference field value> is <value> then
34 --
35 -- Call suitable validation procedure
36 --
37 else
38 --
39 -- Reference field values is not supported
40 --
41 hr_utility.set_message(801, 'HR_7438_FLEX_INV_REF_FIELD_VAL');
42 hr_utility.raise_error;
43 end if;
44 else
45 */
46 --
47 -- When the reference field is null, check
48 -- that none of the attribute fields have
49 -- been set
50 --
51 if p_rec.appl_attribute1 is not null then
52 raise l_error;
53 elsif p_rec.appl_attribute2 is not null then
54 raise l_error;
55 elsif p_rec.appl_attribute3 is not null then
56 raise l_error;
57 elsif p_rec.appl_attribute4 is not null then
58 raise l_error;
59 elsif p_rec.appl_attribute5 is not null then
60 raise l_error;
61 elsif p_rec.appl_attribute6 is not null then
62 raise l_error;
63 elsif p_rec.appl_attribute7 is not null then
64 raise l_error;
65 elsif p_rec.appl_attribute8 is not null then
66 raise l_error;
67 elsif p_rec.appl_attribute9 is not null then
68 raise l_error;
69 elsif p_rec.appl_attribute10 is not null then
70 raise l_error;
71 elsif p_rec.appl_attribute11 is not null then
72 raise l_error;
73 elsif p_rec.appl_attribute12 is not null then
74 raise l_error;
75 elsif p_rec.appl_attribute13 is not null then
76 raise l_error;
77 elsif p_rec.appl_attribute14 is not null then
78 raise l_error;
79 elsif p_rec.appl_attribute15 is not null then
80 raise l_error;
81 elsif p_rec.appl_attribute16 is not null then
82 raise l_error;
83 elsif p_rec.appl_attribute17 is not null then
84 raise l_error;
85 elsif p_rec.appl_attribute18 is not null then
86 raise l_error;
87 elsif p_rec.appl_attribute19 is not null then
88 raise l_error;
89 elsif p_rec.appl_attribute20 is not null then
90 raise l_error;
91 end if;
92 /*
93 end if;
94 */
95 --
96 hr_utility.set_location(' Leaving:'||l_proc, 10);
97 exception
98 when l_error then
99 hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
100 hr_utility.raise_error;
101 hr_utility.set_location(' Leaving:'||l_proc, 10);
102 end df;
103 --
104 end per_apl_flex;