10: -- ----------------------------------------------------------------------------
11: -- |-----------------------------< convert_defs >-----------------------------|
12: -- ----------------------------------------------------------------------------
13: --
14: Procedure convert_defs(p_rec in out pay_pgp_shd.g_rec_type) is
15: --
16: l_proc varchar2(72) := g_package||'convert_defs';
17: --
18: Begin
25: -- is being used then we must set to the 'current' argument value.
26: --
27: If (p_rec.group_name = hr_api.g_varchar2) then
28: p_rec.group_name :=
29: pay_pgp_shd.g_old_rec.group_name;
30: End If;
31: If (p_rec.id_flex_num = hr_api.g_number) then
32: p_rec.id_flex_num :=
33: pay_pgp_shd.g_old_rec.id_flex_num;
29: pay_pgp_shd.g_old_rec.group_name;
30: End If;
31: If (p_rec.id_flex_num = hr_api.g_number) then
32: p_rec.id_flex_num :=
33: pay_pgp_shd.g_old_rec.id_flex_num;
34: End If;
35: If (p_rec.summary_flag = hr_api.g_varchar2) then
36: p_rec.summary_flag :=
37: pay_pgp_shd.g_old_rec.summary_flag;
33: pay_pgp_shd.g_old_rec.id_flex_num;
34: End If;
35: If (p_rec.summary_flag = hr_api.g_varchar2) then
36: p_rec.summary_flag :=
37: pay_pgp_shd.g_old_rec.summary_flag;
38: End If;
39: If (p_rec.enabled_flag = hr_api.g_varchar2) then
40: p_rec.enabled_flag :=
41: pay_pgp_shd.g_old_rec.enabled_flag;
37: pay_pgp_shd.g_old_rec.summary_flag;
38: End If;
39: If (p_rec.enabled_flag = hr_api.g_varchar2) then
40: p_rec.enabled_flag :=
41: pay_pgp_shd.g_old_rec.enabled_flag;
42: End If;
43: If (p_rec.start_date_active = hr_api.g_date) then
44: p_rec.start_date_active :=
45: pay_pgp_shd.g_old_rec.start_date_active;
41: pay_pgp_shd.g_old_rec.enabled_flag;
42: End If;
43: If (p_rec.start_date_active = hr_api.g_date) then
44: p_rec.start_date_active :=
45: pay_pgp_shd.g_old_rec.start_date_active;
46: End If;
47: If (p_rec.end_date_active = hr_api.g_date) then
48: p_rec.end_date_active :=
49: pay_pgp_shd.g_old_rec.end_date_active;
45: pay_pgp_shd.g_old_rec.start_date_active;
46: End If;
47: If (p_rec.end_date_active = hr_api.g_date) then
48: p_rec.end_date_active :=
49: pay_pgp_shd.g_old_rec.end_date_active;
50: End If;
51: If (p_rec.segment1 = hr_api.g_varchar2) then
52: p_rec.segment1 :=
53: pay_pgp_shd.g_old_rec.segment1;
49: pay_pgp_shd.g_old_rec.end_date_active;
50: End If;
51: If (p_rec.segment1 = hr_api.g_varchar2) then
52: p_rec.segment1 :=
53: pay_pgp_shd.g_old_rec.segment1;
54: End If;
55: If (p_rec.segment2 = hr_api.g_varchar2) then
56: p_rec.segment2 :=
57: pay_pgp_shd.g_old_rec.segment2;
53: pay_pgp_shd.g_old_rec.segment1;
54: End If;
55: If (p_rec.segment2 = hr_api.g_varchar2) then
56: p_rec.segment2 :=
57: pay_pgp_shd.g_old_rec.segment2;
58: End If;
59: If (p_rec.segment3 = hr_api.g_varchar2) then
60: p_rec.segment3 :=
61: pay_pgp_shd.g_old_rec.segment3;
57: pay_pgp_shd.g_old_rec.segment2;
58: End If;
59: If (p_rec.segment3 = hr_api.g_varchar2) then
60: p_rec.segment3 :=
61: pay_pgp_shd.g_old_rec.segment3;
62: End If;
63: If (p_rec.segment4 = hr_api.g_varchar2) then
64: p_rec.segment4 :=
65: pay_pgp_shd.g_old_rec.segment4;
61: pay_pgp_shd.g_old_rec.segment3;
62: End If;
63: If (p_rec.segment4 = hr_api.g_varchar2) then
64: p_rec.segment4 :=
65: pay_pgp_shd.g_old_rec.segment4;
66: End If;
67: If (p_rec.segment5 = hr_api.g_varchar2) then
68: p_rec.segment5 :=
69: pay_pgp_shd.g_old_rec.segment5;
65: pay_pgp_shd.g_old_rec.segment4;
66: End If;
67: If (p_rec.segment5 = hr_api.g_varchar2) then
68: p_rec.segment5 :=
69: pay_pgp_shd.g_old_rec.segment5;
70: End If;
71: If (p_rec.segment6 = hr_api.g_varchar2) then
72: p_rec.segment6 :=
73: pay_pgp_shd.g_old_rec.segment6;
69: pay_pgp_shd.g_old_rec.segment5;
70: End If;
71: If (p_rec.segment6 = hr_api.g_varchar2) then
72: p_rec.segment6 :=
73: pay_pgp_shd.g_old_rec.segment6;
74: End If;
75: If (p_rec.segment7 = hr_api.g_varchar2) then
76: p_rec.segment7 :=
77: pay_pgp_shd.g_old_rec.segment7;
73: pay_pgp_shd.g_old_rec.segment6;
74: End If;
75: If (p_rec.segment7 = hr_api.g_varchar2) then
76: p_rec.segment7 :=
77: pay_pgp_shd.g_old_rec.segment7;
78: End If;
79: If (p_rec.segment8 = hr_api.g_varchar2) then
80: p_rec.segment8 :=
81: pay_pgp_shd.g_old_rec.segment8;
77: pay_pgp_shd.g_old_rec.segment7;
78: End If;
79: If (p_rec.segment8 = hr_api.g_varchar2) then
80: p_rec.segment8 :=
81: pay_pgp_shd.g_old_rec.segment8;
82: End If;
83: If (p_rec.segment9 = hr_api.g_varchar2) then
84: p_rec.segment9 :=
85: pay_pgp_shd.g_old_rec.segment9;
81: pay_pgp_shd.g_old_rec.segment8;
82: End If;
83: If (p_rec.segment9 = hr_api.g_varchar2) then
84: p_rec.segment9 :=
85: pay_pgp_shd.g_old_rec.segment9;
86: End If;
87: If (p_rec.segment10 = hr_api.g_varchar2) then
88: p_rec.segment10 :=
89: pay_pgp_shd.g_old_rec.segment10;
85: pay_pgp_shd.g_old_rec.segment9;
86: End If;
87: If (p_rec.segment10 = hr_api.g_varchar2) then
88: p_rec.segment10 :=
89: pay_pgp_shd.g_old_rec.segment10;
90: End If;
91: If (p_rec.segment11 = hr_api.g_varchar2) then
92: p_rec.segment11 :=
93: pay_pgp_shd.g_old_rec.segment11;
89: pay_pgp_shd.g_old_rec.segment10;
90: End If;
91: If (p_rec.segment11 = hr_api.g_varchar2) then
92: p_rec.segment11 :=
93: pay_pgp_shd.g_old_rec.segment11;
94: End If;
95: If (p_rec.segment12 = hr_api.g_varchar2) then
96: p_rec.segment12 :=
97: pay_pgp_shd.g_old_rec.segment12;
93: pay_pgp_shd.g_old_rec.segment11;
94: End If;
95: If (p_rec.segment12 = hr_api.g_varchar2) then
96: p_rec.segment12 :=
97: pay_pgp_shd.g_old_rec.segment12;
98: End If;
99: If (p_rec.segment13 = hr_api.g_varchar2) then
100: p_rec.segment13 :=
101: pay_pgp_shd.g_old_rec.segment13;
97: pay_pgp_shd.g_old_rec.segment12;
98: End If;
99: If (p_rec.segment13 = hr_api.g_varchar2) then
100: p_rec.segment13 :=
101: pay_pgp_shd.g_old_rec.segment13;
102: End If;
103: If (p_rec.segment14 = hr_api.g_varchar2) then
104: p_rec.segment14 :=
105: pay_pgp_shd.g_old_rec.segment14;
101: pay_pgp_shd.g_old_rec.segment13;
102: End If;
103: If (p_rec.segment14 = hr_api.g_varchar2) then
104: p_rec.segment14 :=
105: pay_pgp_shd.g_old_rec.segment14;
106: End If;
107: If (p_rec.segment15 = hr_api.g_varchar2) then
108: p_rec.segment15 :=
109: pay_pgp_shd.g_old_rec.segment15;
105: pay_pgp_shd.g_old_rec.segment14;
106: End If;
107: If (p_rec.segment15 = hr_api.g_varchar2) then
108: p_rec.segment15 :=
109: pay_pgp_shd.g_old_rec.segment15;
110: End If;
111: If (p_rec.segment16 = hr_api.g_varchar2) then
112: p_rec.segment16 :=
113: pay_pgp_shd.g_old_rec.segment16;
109: pay_pgp_shd.g_old_rec.segment15;
110: End If;
111: If (p_rec.segment16 = hr_api.g_varchar2) then
112: p_rec.segment16 :=
113: pay_pgp_shd.g_old_rec.segment16;
114: End If;
115: If (p_rec.segment17 = hr_api.g_varchar2) then
116: p_rec.segment17 :=
117: pay_pgp_shd.g_old_rec.segment17;
113: pay_pgp_shd.g_old_rec.segment16;
114: End If;
115: If (p_rec.segment17 = hr_api.g_varchar2) then
116: p_rec.segment17 :=
117: pay_pgp_shd.g_old_rec.segment17;
118: End If;
119: If (p_rec.segment18 = hr_api.g_varchar2) then
120: p_rec.segment18 :=
121: pay_pgp_shd.g_old_rec.segment18;
117: pay_pgp_shd.g_old_rec.segment17;
118: End If;
119: If (p_rec.segment18 = hr_api.g_varchar2) then
120: p_rec.segment18 :=
121: pay_pgp_shd.g_old_rec.segment18;
122: End If;
123: If (p_rec.segment19 = hr_api.g_varchar2) then
124: p_rec.segment19 :=
125: pay_pgp_shd.g_old_rec.segment19;
121: pay_pgp_shd.g_old_rec.segment18;
122: End If;
123: If (p_rec.segment19 = hr_api.g_varchar2) then
124: p_rec.segment19 :=
125: pay_pgp_shd.g_old_rec.segment19;
126: End If;
127: If (p_rec.segment20 = hr_api.g_varchar2) then
128: p_rec.segment20 :=
129: pay_pgp_shd.g_old_rec.segment20;
125: pay_pgp_shd.g_old_rec.segment19;
126: End If;
127: If (p_rec.segment20 = hr_api.g_varchar2) then
128: p_rec.segment20 :=
129: pay_pgp_shd.g_old_rec.segment20;
130: End If;
131: If (p_rec.segment21 = hr_api.g_varchar2) then
132: p_rec.segment21 :=
133: pay_pgp_shd.g_old_rec.segment21;
129: pay_pgp_shd.g_old_rec.segment20;
130: End If;
131: If (p_rec.segment21 = hr_api.g_varchar2) then
132: p_rec.segment21 :=
133: pay_pgp_shd.g_old_rec.segment21;
134: End If;
135: If (p_rec.segment22 = hr_api.g_varchar2) then
136: p_rec.segment22 :=
137: pay_pgp_shd.g_old_rec.segment22;
133: pay_pgp_shd.g_old_rec.segment21;
134: End If;
135: If (p_rec.segment22 = hr_api.g_varchar2) then
136: p_rec.segment22 :=
137: pay_pgp_shd.g_old_rec.segment22;
138: End If;
139: If (p_rec.segment23 = hr_api.g_varchar2) then
140: p_rec.segment23 :=
141: pay_pgp_shd.g_old_rec.segment23;
137: pay_pgp_shd.g_old_rec.segment22;
138: End If;
139: If (p_rec.segment23 = hr_api.g_varchar2) then
140: p_rec.segment23 :=
141: pay_pgp_shd.g_old_rec.segment23;
142: End If;
143: If (p_rec.segment24 = hr_api.g_varchar2) then
144: p_rec.segment24 :=
145: pay_pgp_shd.g_old_rec.segment24;
141: pay_pgp_shd.g_old_rec.segment23;
142: End If;
143: If (p_rec.segment24 = hr_api.g_varchar2) then
144: p_rec.segment24 :=
145: pay_pgp_shd.g_old_rec.segment24;
146: End If;
147: If (p_rec.segment25 = hr_api.g_varchar2) then
148: p_rec.segment25 :=
149: pay_pgp_shd.g_old_rec.segment25;
145: pay_pgp_shd.g_old_rec.segment24;
146: End If;
147: If (p_rec.segment25 = hr_api.g_varchar2) then
148: p_rec.segment25 :=
149: pay_pgp_shd.g_old_rec.segment25;
150: End If;
151: If (p_rec.segment26 = hr_api.g_varchar2) then
152: p_rec.segment26 :=
153: pay_pgp_shd.g_old_rec.segment26;
149: pay_pgp_shd.g_old_rec.segment25;
150: End If;
151: If (p_rec.segment26 = hr_api.g_varchar2) then
152: p_rec.segment26 :=
153: pay_pgp_shd.g_old_rec.segment26;
154: End If;
155: If (p_rec.segment27 = hr_api.g_varchar2) then
156: p_rec.segment27 :=
157: pay_pgp_shd.g_old_rec.segment27;
153: pay_pgp_shd.g_old_rec.segment26;
154: End If;
155: If (p_rec.segment27 = hr_api.g_varchar2) then
156: p_rec.segment27 :=
157: pay_pgp_shd.g_old_rec.segment27;
158: End If;
159: If (p_rec.segment28 = hr_api.g_varchar2) then
160: p_rec.segment28 :=
161: pay_pgp_shd.g_old_rec.segment28;
157: pay_pgp_shd.g_old_rec.segment27;
158: End If;
159: If (p_rec.segment28 = hr_api.g_varchar2) then
160: p_rec.segment28 :=
161: pay_pgp_shd.g_old_rec.segment28;
162: End If;
163: If (p_rec.segment29 = hr_api.g_varchar2) then
164: p_rec.segment29 :=
165: pay_pgp_shd.g_old_rec.segment29;
161: pay_pgp_shd.g_old_rec.segment28;
162: End If;
163: If (p_rec.segment29 = hr_api.g_varchar2) then
164: p_rec.segment29 :=
165: pay_pgp_shd.g_old_rec.segment29;
166: End If;
167: If (p_rec.segment30 = hr_api.g_varchar2) then
168: p_rec.segment30 :=
169: pay_pgp_shd.g_old_rec.segment30;
165: pay_pgp_shd.g_old_rec.segment29;
166: End If;
167: If (p_rec.segment30 = hr_api.g_varchar2) then
168: p_rec.segment30 :=
169: pay_pgp_shd.g_old_rec.segment30;
170: End If;
171:
172: --
173: hr_utility.set_location(' Leaving:'||l_proc, 10);
214: p_group_name out varchar2,
215: p_validate in boolean default false) is
216: --
217: l_proc varchar2(72) := g_package||'upd_or_sel';
218: l_rec pay_pgp_shd.g_rec_type;
219: --
220: begin
221: hr_utility.set_location('Entering:'||l_proc, 5);
222: --
222: --
223: -- convert args into record format
224: --
225: l_rec :=
226: pay_pgp_shd.convert_args
227: (p_people_group_id,
228: null,
229: null,
230: null,
263: p_segment30);
264: --
265: -- check to see if we are updating a row
266: --
267: if pay_pgp_shd.api_updating
268: (p_people_group_id => l_rec.people_group_id) then
269: --
270: hr_utility.set_location(l_proc, 10);
271: --