9: --
10: -- ----------------------------------------------------------------------------
11: -- |-----------------------------< convert_defs >-----------------------------|
12: -- ----------------------------------------------------------------------------
13: Procedure convert_defs(p_rec in out NOCOPY per_anc_shd.g_rec_type) is
14: --
15: l_proc varchar2(72) := g_package||'convert_defs';
16: --
17: Begin
24: -- is being used then we must set to the 'current' argument value.
25: --
26: If (p_rec.request_id = hr_api.g_number) then
27: p_rec.request_id :=
28: per_anc_shd.g_old_rec.request_id;
29: End If;
30: If (p_rec.program_application_id = hr_api.g_number) then
31: p_rec.program_application_id :=
32: per_anc_shd.g_old_rec.program_application_id;
28: per_anc_shd.g_old_rec.request_id;
29: End If;
30: If (p_rec.program_application_id = hr_api.g_number) then
31: p_rec.program_application_id :=
32: per_anc_shd.g_old_rec.program_application_id;
33: End If;
34: If (p_rec.program_id = hr_api.g_number) then
35: p_rec.program_id :=
36: per_anc_shd.g_old_rec.program_id;
32: per_anc_shd.g_old_rec.program_application_id;
33: End If;
34: If (p_rec.program_id = hr_api.g_number) then
35: p_rec.program_id :=
36: per_anc_shd.g_old_rec.program_id;
37: End If;
38: If (p_rec.program_update_date = hr_api.g_date) then
39: p_rec.program_update_date :=
40: per_anc_shd.g_old_rec.program_update_date;
36: per_anc_shd.g_old_rec.program_id;
37: End If;
38: If (p_rec.program_update_date = hr_api.g_date) then
39: p_rec.program_update_date :=
40: per_anc_shd.g_old_rec.program_update_date;
41: End If;
42: If (p_rec.id_flex_num = hr_api.g_number) then
43: p_rec.id_flex_num :=
44: per_anc_shd.g_old_rec.id_flex_num;
40: per_anc_shd.g_old_rec.program_update_date;
41: End If;
42: If (p_rec.id_flex_num = hr_api.g_number) then
43: p_rec.id_flex_num :=
44: per_anc_shd.g_old_rec.id_flex_num;
45: End If;
46: If (p_rec.summary_flag = hr_api.g_varchar2) then
47: p_rec.summary_flag :=
48: per_anc_shd.g_old_rec.summary_flag;
44: per_anc_shd.g_old_rec.id_flex_num;
45: End If;
46: If (p_rec.summary_flag = hr_api.g_varchar2) then
47: p_rec.summary_flag :=
48: per_anc_shd.g_old_rec.summary_flag;
49: End If;
50: If (p_rec.enabled_flag = hr_api.g_varchar2) then
51: p_rec.enabled_flag :=
52: per_anc_shd.g_old_rec.enabled_flag;
48: per_anc_shd.g_old_rec.summary_flag;
49: End If;
50: If (p_rec.enabled_flag = hr_api.g_varchar2) then
51: p_rec.enabled_flag :=
52: per_anc_shd.g_old_rec.enabled_flag;
53: End If;
54: If (p_rec.start_date_active = hr_api.g_date) then
55: p_rec.start_date_active :=
56: per_anc_shd.g_old_rec.start_date_active;
52: per_anc_shd.g_old_rec.enabled_flag;
53: End If;
54: If (p_rec.start_date_active = hr_api.g_date) then
55: p_rec.start_date_active :=
56: per_anc_shd.g_old_rec.start_date_active;
57: End If;
58: If (p_rec.end_date_active = hr_api.g_date) then
59: p_rec.end_date_active :=
60: per_anc_shd.g_old_rec.end_date_active;
56: per_anc_shd.g_old_rec.start_date_active;
57: End If;
58: If (p_rec.end_date_active = hr_api.g_date) then
59: p_rec.end_date_active :=
60: per_anc_shd.g_old_rec.end_date_active;
61: End If;
62: If (p_rec.segment1 = hr_api.g_varchar2) then
63: p_rec.segment1 :=
64: per_anc_shd.g_old_rec.segment1;
60: per_anc_shd.g_old_rec.end_date_active;
61: End If;
62: If (p_rec.segment1 = hr_api.g_varchar2) then
63: p_rec.segment1 :=
64: per_anc_shd.g_old_rec.segment1;
65: End If;
66: If (p_rec.segment2 = hr_api.g_varchar2) then
67: p_rec.segment2 :=
68: per_anc_shd.g_old_rec.segment2;
64: per_anc_shd.g_old_rec.segment1;
65: End If;
66: If (p_rec.segment2 = hr_api.g_varchar2) then
67: p_rec.segment2 :=
68: per_anc_shd.g_old_rec.segment2;
69: End If;
70: If (p_rec.segment3 = hr_api.g_varchar2) then
71: p_rec.segment3 :=
72: per_anc_shd.g_old_rec.segment3;
68: per_anc_shd.g_old_rec.segment2;
69: End If;
70: If (p_rec.segment3 = hr_api.g_varchar2) then
71: p_rec.segment3 :=
72: per_anc_shd.g_old_rec.segment3;
73: End If;
74: If (p_rec.segment4 = hr_api.g_varchar2) then
75: p_rec.segment4 :=
76: per_anc_shd.g_old_rec.segment4;
72: per_anc_shd.g_old_rec.segment3;
73: End If;
74: If (p_rec.segment4 = hr_api.g_varchar2) then
75: p_rec.segment4 :=
76: per_anc_shd.g_old_rec.segment4;
77: End If;
78: If (p_rec.segment5 = hr_api.g_varchar2) then
79: p_rec.segment5 :=
80: per_anc_shd.g_old_rec.segment5;
76: per_anc_shd.g_old_rec.segment4;
77: End If;
78: If (p_rec.segment5 = hr_api.g_varchar2) then
79: p_rec.segment5 :=
80: per_anc_shd.g_old_rec.segment5;
81: End If;
82: If (p_rec.segment6 = hr_api.g_varchar2) then
83: p_rec.segment6 :=
84: per_anc_shd.g_old_rec.segment6;
80: per_anc_shd.g_old_rec.segment5;
81: End If;
82: If (p_rec.segment6 = hr_api.g_varchar2) then
83: p_rec.segment6 :=
84: per_anc_shd.g_old_rec.segment6;
85: End If;
86: If (p_rec.segment7 = hr_api.g_varchar2) then
87: p_rec.segment7 :=
88: per_anc_shd.g_old_rec.segment7;
84: per_anc_shd.g_old_rec.segment6;
85: End If;
86: If (p_rec.segment7 = hr_api.g_varchar2) then
87: p_rec.segment7 :=
88: per_anc_shd.g_old_rec.segment7;
89: End If;
90: If (p_rec.segment8 = hr_api.g_varchar2) then
91: p_rec.segment8 :=
92: per_anc_shd.g_old_rec.segment8;
88: per_anc_shd.g_old_rec.segment7;
89: End If;
90: If (p_rec.segment8 = hr_api.g_varchar2) then
91: p_rec.segment8 :=
92: per_anc_shd.g_old_rec.segment8;
93: End If;
94: If (p_rec.segment9 = hr_api.g_varchar2) then
95: p_rec.segment9 :=
96: per_anc_shd.g_old_rec.segment9;
92: per_anc_shd.g_old_rec.segment8;
93: End If;
94: If (p_rec.segment9 = hr_api.g_varchar2) then
95: p_rec.segment9 :=
96: per_anc_shd.g_old_rec.segment9;
97: End If;
98: If (p_rec.segment10 = hr_api.g_varchar2) then
99: p_rec.segment10 :=
100: per_anc_shd.g_old_rec.segment10;
96: per_anc_shd.g_old_rec.segment9;
97: End If;
98: If (p_rec.segment10 = hr_api.g_varchar2) then
99: p_rec.segment10 :=
100: per_anc_shd.g_old_rec.segment10;
101: End If;
102: If (p_rec.segment11 = hr_api.g_varchar2) then
103: p_rec.segment11 :=
104: per_anc_shd.g_old_rec.segment11;
100: per_anc_shd.g_old_rec.segment10;
101: End If;
102: If (p_rec.segment11 = hr_api.g_varchar2) then
103: p_rec.segment11 :=
104: per_anc_shd.g_old_rec.segment11;
105: End If;
106: If (p_rec.segment12 = hr_api.g_varchar2) then
107: p_rec.segment12 :=
108: per_anc_shd.g_old_rec.segment12;
104: per_anc_shd.g_old_rec.segment11;
105: End If;
106: If (p_rec.segment12 = hr_api.g_varchar2) then
107: p_rec.segment12 :=
108: per_anc_shd.g_old_rec.segment12;
109: End If;
110: If (p_rec.segment13 = hr_api.g_varchar2) then
111: p_rec.segment13 :=
112: per_anc_shd.g_old_rec.segment13;
108: per_anc_shd.g_old_rec.segment12;
109: End If;
110: If (p_rec.segment13 = hr_api.g_varchar2) then
111: p_rec.segment13 :=
112: per_anc_shd.g_old_rec.segment13;
113: End If;
114: If (p_rec.segment14 = hr_api.g_varchar2) then
115: p_rec.segment14 :=
116: per_anc_shd.g_old_rec.segment14;
112: per_anc_shd.g_old_rec.segment13;
113: End If;
114: If (p_rec.segment14 = hr_api.g_varchar2) then
115: p_rec.segment14 :=
116: per_anc_shd.g_old_rec.segment14;
117: End If;
118: If (p_rec.segment15 = hr_api.g_varchar2) then
119: p_rec.segment15 :=
120: per_anc_shd.g_old_rec.segment15;
116: per_anc_shd.g_old_rec.segment14;
117: End If;
118: If (p_rec.segment15 = hr_api.g_varchar2) then
119: p_rec.segment15 :=
120: per_anc_shd.g_old_rec.segment15;
121: End If;
122: If (p_rec.segment16 = hr_api.g_varchar2) then
123: p_rec.segment16 :=
124: per_anc_shd.g_old_rec.segment16;
120: per_anc_shd.g_old_rec.segment15;
121: End If;
122: If (p_rec.segment16 = hr_api.g_varchar2) then
123: p_rec.segment16 :=
124: per_anc_shd.g_old_rec.segment16;
125: End If;
126: If (p_rec.segment17 = hr_api.g_varchar2) then
127: p_rec.segment17 :=
128: per_anc_shd.g_old_rec.segment17;
124: per_anc_shd.g_old_rec.segment16;
125: End If;
126: If (p_rec.segment17 = hr_api.g_varchar2) then
127: p_rec.segment17 :=
128: per_anc_shd.g_old_rec.segment17;
129: End If;
130: If (p_rec.segment18 = hr_api.g_varchar2) then
131: p_rec.segment18 :=
132: per_anc_shd.g_old_rec.segment18;
128: per_anc_shd.g_old_rec.segment17;
129: End If;
130: If (p_rec.segment18 = hr_api.g_varchar2) then
131: p_rec.segment18 :=
132: per_anc_shd.g_old_rec.segment18;
133: End If;
134: If (p_rec.segment19 = hr_api.g_varchar2) then
135: p_rec.segment19 :=
136: per_anc_shd.g_old_rec.segment19;
132: per_anc_shd.g_old_rec.segment18;
133: End If;
134: If (p_rec.segment19 = hr_api.g_varchar2) then
135: p_rec.segment19 :=
136: per_anc_shd.g_old_rec.segment19;
137: End If;
138: If (p_rec.segment20 = hr_api.g_varchar2) then
139: p_rec.segment20 :=
140: per_anc_shd.g_old_rec.segment20;
136: per_anc_shd.g_old_rec.segment19;
137: End If;
138: If (p_rec.segment20 = hr_api.g_varchar2) then
139: p_rec.segment20 :=
140: per_anc_shd.g_old_rec.segment20;
141: End If;
142: If (p_rec.segment21 = hr_api.g_varchar2) then
143: p_rec.segment21 :=
144: per_anc_shd.g_old_rec.segment21;
140: per_anc_shd.g_old_rec.segment20;
141: End If;
142: If (p_rec.segment21 = hr_api.g_varchar2) then
143: p_rec.segment21 :=
144: per_anc_shd.g_old_rec.segment21;
145: End If;
146: If (p_rec.segment22 = hr_api.g_varchar2) then
147: p_rec.segment22 :=
148: per_anc_shd.g_old_rec.segment22;
144: per_anc_shd.g_old_rec.segment21;
145: End If;
146: If (p_rec.segment22 = hr_api.g_varchar2) then
147: p_rec.segment22 :=
148: per_anc_shd.g_old_rec.segment22;
149: End If;
150: If (p_rec.segment23 = hr_api.g_varchar2) then
151: p_rec.segment23 :=
152: per_anc_shd.g_old_rec.segment23;
148: per_anc_shd.g_old_rec.segment22;
149: End If;
150: If (p_rec.segment23 = hr_api.g_varchar2) then
151: p_rec.segment23 :=
152: per_anc_shd.g_old_rec.segment23;
153: End If;
154: If (p_rec.segment24 = hr_api.g_varchar2) then
155: p_rec.segment24 :=
156: per_anc_shd.g_old_rec.segment24;
152: per_anc_shd.g_old_rec.segment23;
153: End If;
154: If (p_rec.segment24 = hr_api.g_varchar2) then
155: p_rec.segment24 :=
156: per_anc_shd.g_old_rec.segment24;
157: End If;
158: If (p_rec.segment25 = hr_api.g_varchar2) then
159: p_rec.segment25 :=
160: per_anc_shd.g_old_rec.segment25;
156: per_anc_shd.g_old_rec.segment24;
157: End If;
158: If (p_rec.segment25 = hr_api.g_varchar2) then
159: p_rec.segment25 :=
160: per_anc_shd.g_old_rec.segment25;
161: End If;
162: If (p_rec.segment26 = hr_api.g_varchar2) then
163: p_rec.segment26 :=
164: per_anc_shd.g_old_rec.segment26;
160: per_anc_shd.g_old_rec.segment25;
161: End If;
162: If (p_rec.segment26 = hr_api.g_varchar2) then
163: p_rec.segment26 :=
164: per_anc_shd.g_old_rec.segment26;
165: End If;
166: If (p_rec.segment27 = hr_api.g_varchar2) then
167: p_rec.segment27 :=
168: per_anc_shd.g_old_rec.segment27;
164: per_anc_shd.g_old_rec.segment26;
165: End If;
166: If (p_rec.segment27 = hr_api.g_varchar2) then
167: p_rec.segment27 :=
168: per_anc_shd.g_old_rec.segment27;
169: End If;
170: If (p_rec.segment28 = hr_api.g_varchar2) then
171: p_rec.segment28 :=
172: per_anc_shd.g_old_rec.segment28;
168: per_anc_shd.g_old_rec.segment27;
169: End If;
170: If (p_rec.segment28 = hr_api.g_varchar2) then
171: p_rec.segment28 :=
172: per_anc_shd.g_old_rec.segment28;
173: End If;
174: If (p_rec.segment29 = hr_api.g_varchar2) then
175: p_rec.segment29 :=
176: per_anc_shd.g_old_rec.segment29;
172: per_anc_shd.g_old_rec.segment28;
173: End If;
174: If (p_rec.segment29 = hr_api.g_varchar2) then
175: p_rec.segment29 :=
176: per_anc_shd.g_old_rec.segment29;
177: End If;
178: If (p_rec.segment30 = hr_api.g_varchar2) then
179: p_rec.segment30 :=
180: per_anc_shd.g_old_rec.segment30;
176: per_anc_shd.g_old_rec.segment29;
177: End If;
178: If (p_rec.segment30 = hr_api.g_varchar2) then
179: p_rec.segment30 :=
180: per_anc_shd.g_old_rec.segment30;
181: End If;
182: --
183: hr_utility.set_location(' Leaving:'||l_proc, 10);
184: --
224: p_analysis_criteria_id in out NOCOPY number,
225: p_validate in boolean default false) is
226: --
227: l_proc varchar2(72) := g_package||'upd_or_sel';
228: l_rec per_anc_shd.g_rec_type;
229: --
230: begin
231: hr_utility.set_location('Entering:'||l_proc, 5);
232: --
232: --
233: -- convert args into record format
234: --
235: l_rec :=
236: per_anc_shd.convert_args
237: (p_analysis_criteria_id,
238: hr_api.g_number,
239: hr_api.g_number,
240: hr_api.g_number,
276: p_segment30);
277: --
278: -- check to see if we are updating a row
279: --
280: if per_anc_shd.api_updating
281: (p_analysis_criteria_id => l_rec.analysis_criteria_id) then
282: --
283: hr_utility.set_location(l_proc, 10);
284: --