[Home] [Help]
9: --
10: -- ----------------------------------------------------------------------------
11: -- |-----------------------------< convert_defs >-----------------------------|
12: -- ----------------------------------------------------------------------------
13: Procedure convert_defs(p_rec in out nocopy hr_scl_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.concatenated_segments = hr_api.g_varchar2) then
27: p_rec.concatenated_segments :=
28: hr_scl_shd.g_old_rec.concatenated_segments;
29: End If;
30: If (p_rec.request_id = hr_api.g_number) then
31: p_rec.request_id :=
32: hr_scl_shd.g_old_rec.request_id;
28: hr_scl_shd.g_old_rec.concatenated_segments;
29: End If;
30: If (p_rec.request_id = hr_api.g_number) then
31: p_rec.request_id :=
32: hr_scl_shd.g_old_rec.request_id;
33: End If;
34: If (p_rec.program_application_id = hr_api.g_number) then
35: p_rec.program_application_id :=
36: hr_scl_shd.g_old_rec.program_application_id;
32: hr_scl_shd.g_old_rec.request_id;
33: End If;
34: If (p_rec.program_application_id = hr_api.g_number) then
35: p_rec.program_application_id :=
36: hr_scl_shd.g_old_rec.program_application_id;
37: End If;
38: If (p_rec.program_id = hr_api.g_number) then
39: p_rec.program_id :=
40: hr_scl_shd.g_old_rec.program_id;
36: hr_scl_shd.g_old_rec.program_application_id;
37: End If;
38: If (p_rec.program_id = hr_api.g_number) then
39: p_rec.program_id :=
40: hr_scl_shd.g_old_rec.program_id;
41: End If;
42: If (p_rec.program_update_date = hr_api.g_date) then
43: p_rec.program_update_date :=
44: hr_scl_shd.g_old_rec.program_update_date;
40: hr_scl_shd.g_old_rec.program_id;
41: End If;
42: If (p_rec.program_update_date = hr_api.g_date) then
43: p_rec.program_update_date :=
44: hr_scl_shd.g_old_rec.program_update_date;
45: End If;
46: If (p_rec.id_flex_num = hr_api.g_number) then
47: p_rec.id_flex_num :=
48: hr_scl_shd.g_old_rec.id_flex_num;
44: hr_scl_shd.g_old_rec.program_update_date;
45: End If;
46: If (p_rec.id_flex_num = hr_api.g_number) then
47: p_rec.id_flex_num :=
48: hr_scl_shd.g_old_rec.id_flex_num;
49: End If;
50: If (p_rec.summary_flag = hr_api.g_varchar2) then
51: p_rec.summary_flag :=
52: hr_scl_shd.g_old_rec.summary_flag;
48: hr_scl_shd.g_old_rec.id_flex_num;
49: End If;
50: If (p_rec.summary_flag = hr_api.g_varchar2) then
51: p_rec.summary_flag :=
52: hr_scl_shd.g_old_rec.summary_flag;
53: End If;
54: If (p_rec.enabled_flag = hr_api.g_varchar2) then
55: p_rec.enabled_flag :=
56: hr_scl_shd.g_old_rec.enabled_flag;
52: hr_scl_shd.g_old_rec.summary_flag;
53: End If;
54: If (p_rec.enabled_flag = hr_api.g_varchar2) then
55: p_rec.enabled_flag :=
56: hr_scl_shd.g_old_rec.enabled_flag;
57: End If;
58: If (p_rec.start_date_active = hr_api.g_date) then
59: p_rec.start_date_active :=
60: hr_scl_shd.g_old_rec.start_date_active;
56: hr_scl_shd.g_old_rec.enabled_flag;
57: End If;
58: If (p_rec.start_date_active = hr_api.g_date) then
59: p_rec.start_date_active :=
60: hr_scl_shd.g_old_rec.start_date_active;
61: End If;
62: If (p_rec.end_date_active = hr_api.g_date) then
63: p_rec.end_date_active :=
64: hr_scl_shd.g_old_rec.end_date_active;
60: hr_scl_shd.g_old_rec.start_date_active;
61: End If;
62: If (p_rec.end_date_active = hr_api.g_date) then
63: p_rec.end_date_active :=
64: hr_scl_shd.g_old_rec.end_date_active;
65: End If;
66: If (p_rec.segment1 = hr_api.g_varchar2) then
67: p_rec.segment1 :=
68: hr_scl_shd.g_old_rec.segment1;
64: hr_scl_shd.g_old_rec.end_date_active;
65: End If;
66: If (p_rec.segment1 = hr_api.g_varchar2) then
67: p_rec.segment1 :=
68: hr_scl_shd.g_old_rec.segment1;
69: End If;
70: If (p_rec.segment2 = hr_api.g_varchar2) then
71: p_rec.segment2 :=
72: hr_scl_shd.g_old_rec.segment2;
68: hr_scl_shd.g_old_rec.segment1;
69: End If;
70: If (p_rec.segment2 = hr_api.g_varchar2) then
71: p_rec.segment2 :=
72: hr_scl_shd.g_old_rec.segment2;
73: End If;
74: If (p_rec.segment3 = hr_api.g_varchar2) then
75: p_rec.segment3 :=
76: hr_scl_shd.g_old_rec.segment3;
72: hr_scl_shd.g_old_rec.segment2;
73: End If;
74: If (p_rec.segment3 = hr_api.g_varchar2) then
75: p_rec.segment3 :=
76: hr_scl_shd.g_old_rec.segment3;
77: End If;
78: If (p_rec.segment4 = hr_api.g_varchar2) then
79: p_rec.segment4 :=
80: hr_scl_shd.g_old_rec.segment4;
76: hr_scl_shd.g_old_rec.segment3;
77: End If;
78: If (p_rec.segment4 = hr_api.g_varchar2) then
79: p_rec.segment4 :=
80: hr_scl_shd.g_old_rec.segment4;
81: End If;
82: If (p_rec.segment5 = hr_api.g_varchar2) then
83: p_rec.segment5 :=
84: hr_scl_shd.g_old_rec.segment5;
80: hr_scl_shd.g_old_rec.segment4;
81: End If;
82: If (p_rec.segment5 = hr_api.g_varchar2) then
83: p_rec.segment5 :=
84: hr_scl_shd.g_old_rec.segment5;
85: End If;
86: If (p_rec.segment6 = hr_api.g_varchar2) then
87: p_rec.segment6 :=
88: hr_scl_shd.g_old_rec.segment6;
84: hr_scl_shd.g_old_rec.segment5;
85: End If;
86: If (p_rec.segment6 = hr_api.g_varchar2) then
87: p_rec.segment6 :=
88: hr_scl_shd.g_old_rec.segment6;
89: End If;
90: If (p_rec.segment7 = hr_api.g_varchar2) then
91: p_rec.segment7 :=
92: hr_scl_shd.g_old_rec.segment7;
88: hr_scl_shd.g_old_rec.segment6;
89: End If;
90: If (p_rec.segment7 = hr_api.g_varchar2) then
91: p_rec.segment7 :=
92: hr_scl_shd.g_old_rec.segment7;
93: End If;
94: If (p_rec.segment8 = hr_api.g_varchar2) then
95: p_rec.segment8 :=
96: hr_scl_shd.g_old_rec.segment8;
92: hr_scl_shd.g_old_rec.segment7;
93: End If;
94: If (p_rec.segment8 = hr_api.g_varchar2) then
95: p_rec.segment8 :=
96: hr_scl_shd.g_old_rec.segment8;
97: End If;
98: If (p_rec.segment9 = hr_api.g_varchar2) then
99: p_rec.segment9 :=
100: hr_scl_shd.g_old_rec.segment9;
96: hr_scl_shd.g_old_rec.segment8;
97: End If;
98: If (p_rec.segment9 = hr_api.g_varchar2) then
99: p_rec.segment9 :=
100: hr_scl_shd.g_old_rec.segment9;
101: End If;
102: If (p_rec.segment10 = hr_api.g_varchar2) then
103: p_rec.segment10 :=
104: hr_scl_shd.g_old_rec.segment10;
100: hr_scl_shd.g_old_rec.segment9;
101: End If;
102: If (p_rec.segment10 = hr_api.g_varchar2) then
103: p_rec.segment10 :=
104: hr_scl_shd.g_old_rec.segment10;
105: End If;
106: If (p_rec.segment11 = hr_api.g_varchar2) then
107: p_rec.segment11 :=
108: hr_scl_shd.g_old_rec.segment11;
104: hr_scl_shd.g_old_rec.segment10;
105: End If;
106: If (p_rec.segment11 = hr_api.g_varchar2) then
107: p_rec.segment11 :=
108: hr_scl_shd.g_old_rec.segment11;
109: End If;
110: If (p_rec.segment12 = hr_api.g_varchar2) then
111: p_rec.segment12 :=
112: hr_scl_shd.g_old_rec.segment12;
108: hr_scl_shd.g_old_rec.segment11;
109: End If;
110: If (p_rec.segment12 = hr_api.g_varchar2) then
111: p_rec.segment12 :=
112: hr_scl_shd.g_old_rec.segment12;
113: End If;
114: If (p_rec.segment13 = hr_api.g_varchar2) then
115: p_rec.segment13 :=
116: hr_scl_shd.g_old_rec.segment13;
112: hr_scl_shd.g_old_rec.segment12;
113: End If;
114: If (p_rec.segment13 = hr_api.g_varchar2) then
115: p_rec.segment13 :=
116: hr_scl_shd.g_old_rec.segment13;
117: End If;
118: If (p_rec.segment14 = hr_api.g_varchar2) then
119: p_rec.segment14 :=
120: hr_scl_shd.g_old_rec.segment14;
116: hr_scl_shd.g_old_rec.segment13;
117: End If;
118: If (p_rec.segment14 = hr_api.g_varchar2) then
119: p_rec.segment14 :=
120: hr_scl_shd.g_old_rec.segment14;
121: End If;
122: If (p_rec.segment15 = hr_api.g_varchar2) then
123: p_rec.segment15 :=
124: hr_scl_shd.g_old_rec.segment15;
120: hr_scl_shd.g_old_rec.segment14;
121: End If;
122: If (p_rec.segment15 = hr_api.g_varchar2) then
123: p_rec.segment15 :=
124: hr_scl_shd.g_old_rec.segment15;
125: End If;
126: If (p_rec.segment16 = hr_api.g_varchar2) then
127: p_rec.segment16 :=
128: hr_scl_shd.g_old_rec.segment16;
124: hr_scl_shd.g_old_rec.segment15;
125: End If;
126: If (p_rec.segment16 = hr_api.g_varchar2) then
127: p_rec.segment16 :=
128: hr_scl_shd.g_old_rec.segment16;
129: End If;
130: If (p_rec.segment17 = hr_api.g_varchar2) then
131: p_rec.segment17 :=
132: hr_scl_shd.g_old_rec.segment17;
128: hr_scl_shd.g_old_rec.segment16;
129: End If;
130: If (p_rec.segment17 = hr_api.g_varchar2) then
131: p_rec.segment17 :=
132: hr_scl_shd.g_old_rec.segment17;
133: End If;
134: If (p_rec.segment18 = hr_api.g_varchar2) then
135: p_rec.segment18 :=
136: hr_scl_shd.g_old_rec.segment18;
132: hr_scl_shd.g_old_rec.segment17;
133: End If;
134: If (p_rec.segment18 = hr_api.g_varchar2) then
135: p_rec.segment18 :=
136: hr_scl_shd.g_old_rec.segment18;
137: End If;
138: If (p_rec.segment19 = hr_api.g_varchar2) then
139: p_rec.segment19 :=
140: hr_scl_shd.g_old_rec.segment19;
136: hr_scl_shd.g_old_rec.segment18;
137: End If;
138: If (p_rec.segment19 = hr_api.g_varchar2) then
139: p_rec.segment19 :=
140: hr_scl_shd.g_old_rec.segment19;
141: End If;
142: If (p_rec.segment20 = hr_api.g_varchar2) then
143: p_rec.segment20 :=
144: hr_scl_shd.g_old_rec.segment20;
140: hr_scl_shd.g_old_rec.segment19;
141: End If;
142: If (p_rec.segment20 = hr_api.g_varchar2) then
143: p_rec.segment20 :=
144: hr_scl_shd.g_old_rec.segment20;
145: End If;
146: If (p_rec.segment21 = hr_api.g_varchar2) then
147: p_rec.segment21 :=
148: hr_scl_shd.g_old_rec.segment21;
144: hr_scl_shd.g_old_rec.segment20;
145: End If;
146: If (p_rec.segment21 = hr_api.g_varchar2) then
147: p_rec.segment21 :=
148: hr_scl_shd.g_old_rec.segment21;
149: End If;
150: If (p_rec.segment22 = hr_api.g_varchar2) then
151: p_rec.segment22 :=
152: hr_scl_shd.g_old_rec.segment22;
148: hr_scl_shd.g_old_rec.segment21;
149: End If;
150: If (p_rec.segment22 = hr_api.g_varchar2) then
151: p_rec.segment22 :=
152: hr_scl_shd.g_old_rec.segment22;
153: End If;
154: If (p_rec.segment23 = hr_api.g_varchar2) then
155: p_rec.segment23 :=
156: hr_scl_shd.g_old_rec.segment23;
152: hr_scl_shd.g_old_rec.segment22;
153: End If;
154: If (p_rec.segment23 = hr_api.g_varchar2) then
155: p_rec.segment23 :=
156: hr_scl_shd.g_old_rec.segment23;
157: End If;
158: If (p_rec.segment24 = hr_api.g_varchar2) then
159: p_rec.segment24 :=
160: hr_scl_shd.g_old_rec.segment24;
156: hr_scl_shd.g_old_rec.segment23;
157: End If;
158: If (p_rec.segment24 = hr_api.g_varchar2) then
159: p_rec.segment24 :=
160: hr_scl_shd.g_old_rec.segment24;
161: End If;
162: If (p_rec.segment25 = hr_api.g_varchar2) then
163: p_rec.segment25 :=
164: hr_scl_shd.g_old_rec.segment25;
160: hr_scl_shd.g_old_rec.segment24;
161: End If;
162: If (p_rec.segment25 = hr_api.g_varchar2) then
163: p_rec.segment25 :=
164: hr_scl_shd.g_old_rec.segment25;
165: End If;
166: If (p_rec.segment26 = hr_api.g_varchar2) then
167: p_rec.segment26 :=
168: hr_scl_shd.g_old_rec.segment26;
164: hr_scl_shd.g_old_rec.segment25;
165: End If;
166: If (p_rec.segment26 = hr_api.g_varchar2) then
167: p_rec.segment26 :=
168: hr_scl_shd.g_old_rec.segment26;
169: End If;
170: If (p_rec.segment27 = hr_api.g_varchar2) then
171: p_rec.segment27 :=
172: hr_scl_shd.g_old_rec.segment27;
168: hr_scl_shd.g_old_rec.segment26;
169: End If;
170: If (p_rec.segment27 = hr_api.g_varchar2) then
171: p_rec.segment27 :=
172: hr_scl_shd.g_old_rec.segment27;
173: End If;
174: If (p_rec.segment28 = hr_api.g_varchar2) then
175: p_rec.segment28 :=
176: hr_scl_shd.g_old_rec.segment28;
172: hr_scl_shd.g_old_rec.segment27;
173: End If;
174: If (p_rec.segment28 = hr_api.g_varchar2) then
175: p_rec.segment28 :=
176: hr_scl_shd.g_old_rec.segment28;
177: End If;
178: If (p_rec.segment29 = hr_api.g_varchar2) then
179: p_rec.segment29 :=
180: hr_scl_shd.g_old_rec.segment29;
176: hr_scl_shd.g_old_rec.segment28;
177: End If;
178: If (p_rec.segment29 = hr_api.g_varchar2) then
179: p_rec.segment29 :=
180: hr_scl_shd.g_old_rec.segment29;
181: End If;
182: If (p_rec.segment30 = hr_api.g_varchar2) then
183: p_rec.segment30 :=
184: hr_scl_shd.g_old_rec.segment30;
180: hr_scl_shd.g_old_rec.segment29;
181: End If;
182: If (p_rec.segment30 = hr_api.g_varchar2) then
183: p_rec.segment30 :=
184: hr_scl_shd.g_old_rec.segment30;
185: End If;
186: --
187: hr_utility.set_location(' Leaving:'||l_proc, 10);
188: --
232: p_concatenated_segments out nocopy varchar2,
233: p_validate in boolean default false) is
234: --
235: l_proc varchar2(72) := g_package||'upd_or_sel';
236: l_rec hr_scl_shd.g_rec_type;
237: --
238: begin
239: hr_utility.set_location('Entering:'||l_proc, 5);
240: --
240: --
241: -- convert args into record format
242: --
243: l_rec :=
244: hr_scl_shd.convert_args
245: (p_soft_coding_keyflex_id,
246: null,
247: p_request_id,
248: p_program_application_id,
285: p_segment30);
286: --
287: -- check to see if we are updating a row
288: --
289: if hr_scl_shd.api_updating
290: (p_soft_coding_keyflex_id => l_rec.soft_coding_keyflex_id) then
291: --
292: hr_utility.set_location(l_proc, 10);
293: --