1 Package Body per_phn_flex as
2 /* $Header: pephnfli.pkb 115.0 99/07/18 14:18:02 porting ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_phn_flex.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |--------------------------< val_phn_type >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start of Comments}
14 --
15 -- Description:
16 -- This procedure performs the descriptive flexfield validation for the
17 -- reference field.
18 --
19 -- Pre Conditions:
20 -- None
21 --
22 -- In Arguments:
23 -- p_rec
24 --
25 -- Post Success:
26 -- Processing of per_phn_flex continues.
27 --
28 -- Post failure:
29 -- Processing will be suspended if the descriptive flexfield validation
30 -- fails.
31 --
32 -- Developer Implementation Notes:
33 -- Customer defined.
34 --
35 -- Access Status:
36 -- From df procedure only.
37 --
38 -- {End of Comments}
39 -- ----------------------------------------------------------------------------
40 Procedure val_phn_type
41 (p_rec in per_phn_shd.g_rec_type) is
42 --
43 l_proc varchar2(72) := g_package||'val_phn_type';
44 --
45 begin
46 hr_utility.set_location('Entering:'||l_proc, 1);
47 --
48 -- Enter procedure code here
49 --
50 hr_utility.set_location(' Leaving:'||l_proc, 2);
51 end val_phn_type;
52 --
53 --
54 -- ----------------------------------------------------------------------------
55 -- |-------------------------------< df >-------------------------------------|
56 -- ----------------------------------------------------------------------------
57 procedure df
58 (p_rec in per_phn_shd.g_rec_type) is
59 --
60 l_proc varchar2(72) := g_package||'df';
61 l_error exception;
62 --
63 Begin
64 hr_utility.set_location('Entering:'||l_proc, 5);
65 --
66 /*
67 -- Check for value of reference field an then
68 -- call relevant validation procedure.
69 --
70 if <reference field value> is not null then
71 --
72 --
73 if <reference field value> is <value> then
74 val_phn_type(p_rec => p_rec);
75 else
76 --
77 -- Reference field values is not supported
78 --
79 hr_utility.set_message(801, 'HR_7438_FLEX_INV_REF_FIELD_VAL');
80 hr_utility.raise_error;
81 end if;
82 else
83 */
84 --
85 -- When the reference field is null, check
86 -- that none of the attribute fields have
87 -- been set
88 --
89 if p_rec.attribute1 is not null then
90 raise l_error;
91 elsif p_rec.attribute2 is not null then
92 raise l_error;
93 elsif p_rec.attribute3 is not null then
94 raise l_error;
95 elsif p_rec.attribute4 is not null then
96 raise l_error;
97 elsif p_rec.attribute5 is not null then
98 raise l_error;
99 elsif p_rec.attribute6 is not null then
100 raise l_error;
101 elsif p_rec.attribute7 is not null then
102 raise l_error;
103 elsif p_rec.attribute8 is not null then
104 raise l_error;
105 elsif p_rec.attribute9 is not null then
106 raise l_error;
107 elsif p_rec.attribute10 is not null then
108 raise l_error;
109 elsif p_rec.attribute11 is not null then
110 raise l_error;
111 elsif p_rec.attribute12 is not null then
112 raise l_error;
113 elsif p_rec.attribute13 is not null then
114 raise l_error;
115 elsif p_rec.attribute14 is not null then
116 raise l_error;
117 elsif p_rec.attribute15 is not null then
118 raise l_error;
119 elsif p_rec.attribute16 is not null then
120 raise l_error;
121 elsif p_rec.attribute17 is not null then
122 raise l_error;
123 elsif p_rec.attribute18 is not null then
124 raise l_error;
125 elsif p_rec.attribute19 is not null then
126 raise l_error;
127 elsif p_rec.attribute20 is not null then
128 raise l_error;
129 elsif p_rec.attribute21 is not null then
130 raise l_error;
131 elsif p_rec.attribute22 is not null then
132 raise l_error;
133 elsif p_rec.attribute23 is not null then
134 raise l_error;
135 elsif p_rec.attribute24 is not null then
136 raise l_error;
137 elsif p_rec.attribute25 is not null then
138 raise l_error;
139 elsif p_rec.attribute26 is not null then
140 raise l_error;
141 elsif p_rec.attribute27 is not null then
142 raise l_error;
143 elsif p_rec.attribute28 is not null then
144 raise l_error;
145 elsif p_rec.attribute29 is not null then
146 raise l_error;
147 elsif p_rec.attribute30 is not null then
148 raise l_error;
149 end if;
150 /*
151 end if;
152 */
153 --
154 hr_utility.set_location(' Leaving:'||l_proc, 10);
155 exception
156 when l_error then
157 hr_utility.set_message(801, 'HR_7439_FLEX_INV_ATTRIBUTE_ARG');
158 hr_utility.raise_error;
159 hr_utility.set_location(' Leaving:'||l_proc, 10);
160 end df;
161 --
162 end per_phn_flex;