DBA Data[Home] [Help]

APPS.PAY_EXA_UPD dependencies on PAY_EXA_SHD

Line 55: p_rec in out nocopy pay_exa_shd.g_rec_type

51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: procedure update_dml(
55: p_rec in out nocopy pay_exa_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --

Line 62: pay_exa_shd.g_api_dml := true; -- set the api dml status

58: l_proc varchar2(72) := g_package||'update_dml';
59: --
60: begin
61: hr_utility.set_location('Entering:'||l_proc, 5);
62: pay_exa_shd.g_api_dml := true; -- set the api dml status
63: --
64: -- update_validate(), chk_territory_code(), pay_exa_shd.api_updating()
65: -- has been called,
66: -- this selects a row into g_old_rec and returns true if the PK value

Line 64: -- update_validate(), chk_territory_code(), pay_exa_shd.api_updating()

60: begin
61: hr_utility.set_location('Entering:'||l_proc, 5);
62: pay_exa_shd.g_api_dml := true; -- set the api dml status
63: --
64: -- update_validate(), chk_territory_code(), pay_exa_shd.api_updating()
65: -- has been called,
66: -- this selects a row into g_old_rec and returns true if the PK value
67: -- passed in matches a row on the db,
68: -- nb. no locking is done

Line 70: pay_exa_shd.lck

66: -- this selects a row into g_old_rec and returns true if the PK value
67: -- passed in matches a row on the db,
68: -- nb. no locking is done
69: --
70: pay_exa_shd.lck
71: (p_rec.external_account_id,
72: p_rec.object_version_number);
73: --
74: -- only do U if values have changed

Line 77: nvl(pay_exa_shd.g_old_rec.territory_code, hr_api.g_varchar2) )

73: --
74: -- only do U if values have changed
75: --
76: if ( nvl(p_rec.territory_code, hr_api.g_varchar2) <>
77: nvl(pay_exa_shd.g_old_rec.territory_code, hr_api.g_varchar2) )
78: or
79: ( nvl(p_rec.prenote_date, hr_api.g_date) <>
80: nvl(pay_exa_shd.g_old_rec.prenote_date, hr_api.g_date) ) then
81: hr_utility.trace('| doing update on combination table');

Line 80: nvl(pay_exa_shd.g_old_rec.prenote_date, hr_api.g_date) ) then

76: if ( nvl(p_rec.territory_code, hr_api.g_varchar2) <>
77: nvl(pay_exa_shd.g_old_rec.territory_code, hr_api.g_varchar2) )
78: or
79: ( nvl(p_rec.prenote_date, hr_api.g_date) <>
80: nvl(pay_exa_shd.g_old_rec.prenote_date, hr_api.g_date) ) then
81: hr_utility.trace('| doing update on combination table');
82: --
83: -- fresh combination record
84: --

Line 85: if ( pay_exa_shd.g_old_rec.territory_code is null ) then

81: hr_utility.trace('| doing update on combination table');
82: --
83: -- fresh combination record
84: --
85: if ( pay_exa_shd.g_old_rec.territory_code is null ) then
86: hr_utility.trace('| updating territory_code');
87: --
88: UPDATE PAY_EXTERNAL_ACCOUNTS
89: SET territory_code = p_rec.territory_code

Line 108: nvl(pay_exa_shd.g_old_rec.prenote_date, hr_api.g_date) ) then

104: -- take place).
105: --
106: null;
107: elsif ( nvl(p_rec.prenote_date, hr_api.g_date) <>
108: nvl(pay_exa_shd.g_old_rec.prenote_date, hr_api.g_date) ) then
109: hr_utility.trace('| updating prenote_date');
110: --
111: UPDATE PAY_EXTERNAL_ACCOUNTS
112: SET prenote_date = p_rec.prenote_date

Line 125: pay_exa_shd.g_api_dml := false; -- unset the api dml status

121: WHERE external_account_id = p_rec.external_account_id
122: ;
123: end if;
124: --
125: pay_exa_shd.g_api_dml := false; -- unset the api dml status
126: --
127: hr_utility.set_location(' Leaving:'||l_proc, 10);
128: --
129: Exception

Line 132: pay_exa_shd.g_api_dml := false; -- Unset the api dml status

128: --
129: Exception
130: When hr_api.check_integrity_violated Then
131: -- A check constraint has been violated
132: pay_exa_shd.g_api_dml := false; -- Unset the api dml status
133: pay_exa_shd.constraint_error
134: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
135: When hr_api.parent_integrity_violated Then
136: -- Parent integrity has been violated

Line 133: pay_exa_shd.constraint_error

129: Exception
130: When hr_api.check_integrity_violated Then
131: -- A check constraint has been violated
132: pay_exa_shd.g_api_dml := false; -- Unset the api dml status
133: pay_exa_shd.constraint_error
134: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
135: When hr_api.parent_integrity_violated Then
136: -- Parent integrity has been violated
137: pay_exa_shd.g_api_dml := false; -- Unset the api dml status

Line 137: pay_exa_shd.g_api_dml := false; -- Unset the api dml status

133: pay_exa_shd.constraint_error
134: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
135: When hr_api.parent_integrity_violated Then
136: -- Parent integrity has been violated
137: pay_exa_shd.g_api_dml := false; -- Unset the api dml status
138: pay_exa_shd.constraint_error
139: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
140: When hr_api.unique_integrity_violated Then
141: -- Unique integrity has been violated

Line 138: pay_exa_shd.constraint_error

134: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
135: When hr_api.parent_integrity_violated Then
136: -- Parent integrity has been violated
137: pay_exa_shd.g_api_dml := false; -- Unset the api dml status
138: pay_exa_shd.constraint_error
139: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
140: When hr_api.unique_integrity_violated Then
141: -- Unique integrity has been violated
142: pay_exa_shd.g_api_dml := false; -- Unset the api dml status

Line 142: pay_exa_shd.g_api_dml := false; -- Unset the api dml status

138: pay_exa_shd.constraint_error
139: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
140: When hr_api.unique_integrity_violated Then
141: -- Unique integrity has been violated
142: pay_exa_shd.g_api_dml := false; -- Unset the api dml status
143: pay_exa_shd.constraint_error
144: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
145: When Others Then
146: pay_exa_shd.g_api_dml := false; -- Unset the api dml status

Line 143: pay_exa_shd.constraint_error

139: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
140: When hr_api.unique_integrity_violated Then
141: -- Unique integrity has been violated
142: pay_exa_shd.g_api_dml := false; -- Unset the api dml status
143: pay_exa_shd.constraint_error
144: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
145: When Others Then
146: pay_exa_shd.g_api_dml := false; -- Unset the api dml status
147: Raise;

Line 146: pay_exa_shd.g_api_dml := false; -- Unset the api dml status

142: pay_exa_shd.g_api_dml := false; -- Unset the api dml status
143: pay_exa_shd.constraint_error
144: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
145: When Others Then
146: pay_exa_shd.g_api_dml := false; -- Unset the api dml status
147: Raise;
148: end update_dml;
149: --
150: -- ----------------------------------------------------------------------------

Line 183: p_rec in pay_exa_shd.g_rec_type

179: --
180: -- {End Of Comments}
181: -- ----------------------------------------------------------------------------
182: procedure pre_update(
183: p_rec in pay_exa_shd.g_rec_type
184: ) is
185: --
186: l_proc varchar2(72) := g_package||'pre_update';
187: --

Line 227: p_rec in pay_exa_shd.g_rec_type

223: --
224: -- {End Of Comments}
225: -- ----------------------------------------------------------------------------
226: procedure post_update(
227: p_rec in pay_exa_shd.g_rec_type
228: ) is
229: --
230: l_proc varchar2(72) := g_package||'post_update';
231: --

Line 242: p_rec in out nocopy pay_exa_shd.g_rec_type

238: -- ----------------------------------------------------------------------------
239: -- |-----------------------------< convert_defs >-----------------------------|
240: -- ----------------------------------------------------------------------------
241: procedure convert_defs(
242: p_rec in out nocopy pay_exa_shd.g_rec_type
243: ) is
244: --
245: l_proc varchar2(72) := g_package||'convert_defs';
246: --

Line 258: pay_exa_shd.g_old_rec.territory_code;

254: -- argument value
255: --
256: If (p_rec.territory_code = hr_api.g_varchar2) then
257: p_rec.territory_code :=
258: pay_exa_shd.g_old_rec.territory_code;
259: End If;
260: --------------------------------------------------------------------------
261: -- bug2307154: do not convert prenote_date if it has been defaulted.
262: --

Line 274: pay_exa_shd.g_old_rec.id_flex_num;

270: -- will look for hr_api.g_date when it handles the prenote_date.
271: --------------------------------------------------------------------------
272: If (p_rec.id_flex_num = hr_api.g_number) then
273: p_rec.id_flex_num :=
274: pay_exa_shd.g_old_rec.id_flex_num;
275: End If;
276: If (p_rec.summary_flag = hr_api.g_varchar2) then
277: p_rec.summary_flag :=
278: pay_exa_shd.g_old_rec.summary_flag;

Line 278: pay_exa_shd.g_old_rec.summary_flag;

274: pay_exa_shd.g_old_rec.id_flex_num;
275: End If;
276: If (p_rec.summary_flag = hr_api.g_varchar2) then
277: p_rec.summary_flag :=
278: pay_exa_shd.g_old_rec.summary_flag;
279: End If;
280: If (p_rec.enabled_flag = hr_api.g_varchar2) then
281: p_rec.enabled_flag :=
282: pay_exa_shd.g_old_rec.enabled_flag;

Line 282: pay_exa_shd.g_old_rec.enabled_flag;

278: pay_exa_shd.g_old_rec.summary_flag;
279: End If;
280: If (p_rec.enabled_flag = hr_api.g_varchar2) then
281: p_rec.enabled_flag :=
282: pay_exa_shd.g_old_rec.enabled_flag;
283: End If;
284: If (p_rec.start_date_active = hr_api.g_date) then
285: p_rec.start_date_active :=
286: pay_exa_shd.g_old_rec.start_date_active;

Line 286: pay_exa_shd.g_old_rec.start_date_active;

282: pay_exa_shd.g_old_rec.enabled_flag;
283: End If;
284: If (p_rec.start_date_active = hr_api.g_date) then
285: p_rec.start_date_active :=
286: pay_exa_shd.g_old_rec.start_date_active;
287: End If;
288: If (p_rec.end_date_active = hr_api.g_date) then
289: p_rec.end_date_active :=
290: pay_exa_shd.g_old_rec.end_date_active;

Line 290: pay_exa_shd.g_old_rec.end_date_active;

286: pay_exa_shd.g_old_rec.start_date_active;
287: End If;
288: If (p_rec.end_date_active = hr_api.g_date) then
289: p_rec.end_date_active :=
290: pay_exa_shd.g_old_rec.end_date_active;
291: End If;
292: If (p_rec.segment1 = hr_api.g_varchar2) then
293: p_rec.segment1 :=
294: pay_exa_shd.g_old_rec.segment1;

Line 294: pay_exa_shd.g_old_rec.segment1;

290: pay_exa_shd.g_old_rec.end_date_active;
291: End If;
292: If (p_rec.segment1 = hr_api.g_varchar2) then
293: p_rec.segment1 :=
294: pay_exa_shd.g_old_rec.segment1;
295: End If;
296: If (p_rec.segment2 = hr_api.g_varchar2) then
297: p_rec.segment2 :=
298: pay_exa_shd.g_old_rec.segment2;

Line 298: pay_exa_shd.g_old_rec.segment2;

294: pay_exa_shd.g_old_rec.segment1;
295: End If;
296: If (p_rec.segment2 = hr_api.g_varchar2) then
297: p_rec.segment2 :=
298: pay_exa_shd.g_old_rec.segment2;
299: End If;
300: If (p_rec.segment3 = hr_api.g_varchar2) then
301: p_rec.segment3 :=
302: pay_exa_shd.g_old_rec.segment3;

Line 302: pay_exa_shd.g_old_rec.segment3;

298: pay_exa_shd.g_old_rec.segment2;
299: End If;
300: If (p_rec.segment3 = hr_api.g_varchar2) then
301: p_rec.segment3 :=
302: pay_exa_shd.g_old_rec.segment3;
303: End If;
304: If (p_rec.segment4 = hr_api.g_varchar2) then
305: p_rec.segment4 :=
306: pay_exa_shd.g_old_rec.segment4;

Line 306: pay_exa_shd.g_old_rec.segment4;

302: pay_exa_shd.g_old_rec.segment3;
303: End If;
304: If (p_rec.segment4 = hr_api.g_varchar2) then
305: p_rec.segment4 :=
306: pay_exa_shd.g_old_rec.segment4;
307: End If;
308: If (p_rec.segment5 = hr_api.g_varchar2) then
309: p_rec.segment5 :=
310: pay_exa_shd.g_old_rec.segment5;

Line 310: pay_exa_shd.g_old_rec.segment5;

306: pay_exa_shd.g_old_rec.segment4;
307: End If;
308: If (p_rec.segment5 = hr_api.g_varchar2) then
309: p_rec.segment5 :=
310: pay_exa_shd.g_old_rec.segment5;
311: End If;
312: If (p_rec.segment6 = hr_api.g_varchar2) then
313: p_rec.segment6 :=
314: pay_exa_shd.g_old_rec.segment6;

Line 314: pay_exa_shd.g_old_rec.segment6;

310: pay_exa_shd.g_old_rec.segment5;
311: End If;
312: If (p_rec.segment6 = hr_api.g_varchar2) then
313: p_rec.segment6 :=
314: pay_exa_shd.g_old_rec.segment6;
315: End If;
316: If (p_rec.segment7 = hr_api.g_varchar2) then
317: p_rec.segment7 :=
318: pay_exa_shd.g_old_rec.segment7;

Line 318: pay_exa_shd.g_old_rec.segment7;

314: pay_exa_shd.g_old_rec.segment6;
315: End If;
316: If (p_rec.segment7 = hr_api.g_varchar2) then
317: p_rec.segment7 :=
318: pay_exa_shd.g_old_rec.segment7;
319: End If;
320: If (p_rec.segment8 = hr_api.g_varchar2) then
321: p_rec.segment8 :=
322: pay_exa_shd.g_old_rec.segment8;

Line 322: pay_exa_shd.g_old_rec.segment8;

318: pay_exa_shd.g_old_rec.segment7;
319: End If;
320: If (p_rec.segment8 = hr_api.g_varchar2) then
321: p_rec.segment8 :=
322: pay_exa_shd.g_old_rec.segment8;
323: End If;
324: If (p_rec.segment9 = hr_api.g_varchar2) then
325: p_rec.segment9 :=
326: pay_exa_shd.g_old_rec.segment9;

Line 326: pay_exa_shd.g_old_rec.segment9;

322: pay_exa_shd.g_old_rec.segment8;
323: End If;
324: If (p_rec.segment9 = hr_api.g_varchar2) then
325: p_rec.segment9 :=
326: pay_exa_shd.g_old_rec.segment9;
327: End If;
328: If (p_rec.segment10 = hr_api.g_varchar2) then
329: p_rec.segment10 :=
330: pay_exa_shd.g_old_rec.segment10;

Line 330: pay_exa_shd.g_old_rec.segment10;

326: pay_exa_shd.g_old_rec.segment9;
327: End If;
328: If (p_rec.segment10 = hr_api.g_varchar2) then
329: p_rec.segment10 :=
330: pay_exa_shd.g_old_rec.segment10;
331: End If;
332: If (p_rec.segment11 = hr_api.g_varchar2) then
333: p_rec.segment11 :=
334: pay_exa_shd.g_old_rec.segment11;

Line 334: pay_exa_shd.g_old_rec.segment11;

330: pay_exa_shd.g_old_rec.segment10;
331: End If;
332: If (p_rec.segment11 = hr_api.g_varchar2) then
333: p_rec.segment11 :=
334: pay_exa_shd.g_old_rec.segment11;
335: End If;
336: If (p_rec.segment12 = hr_api.g_varchar2) then
337: p_rec.segment12 :=
338: pay_exa_shd.g_old_rec.segment12;

Line 338: pay_exa_shd.g_old_rec.segment12;

334: pay_exa_shd.g_old_rec.segment11;
335: End If;
336: If (p_rec.segment12 = hr_api.g_varchar2) then
337: p_rec.segment12 :=
338: pay_exa_shd.g_old_rec.segment12;
339: End If;
340: If (p_rec.segment13 = hr_api.g_varchar2) then
341: p_rec.segment13 :=
342: pay_exa_shd.g_old_rec.segment13;

Line 342: pay_exa_shd.g_old_rec.segment13;

338: pay_exa_shd.g_old_rec.segment12;
339: End If;
340: If (p_rec.segment13 = hr_api.g_varchar2) then
341: p_rec.segment13 :=
342: pay_exa_shd.g_old_rec.segment13;
343: End If;
344: If (p_rec.segment14 = hr_api.g_varchar2) then
345: p_rec.segment14 :=
346: pay_exa_shd.g_old_rec.segment14;

Line 346: pay_exa_shd.g_old_rec.segment14;

342: pay_exa_shd.g_old_rec.segment13;
343: End If;
344: If (p_rec.segment14 = hr_api.g_varchar2) then
345: p_rec.segment14 :=
346: pay_exa_shd.g_old_rec.segment14;
347: End If;
348: If (p_rec.segment15 = hr_api.g_varchar2) then
349: p_rec.segment15 :=
350: pay_exa_shd.g_old_rec.segment15;

Line 350: pay_exa_shd.g_old_rec.segment15;

346: pay_exa_shd.g_old_rec.segment14;
347: End If;
348: If (p_rec.segment15 = hr_api.g_varchar2) then
349: p_rec.segment15 :=
350: pay_exa_shd.g_old_rec.segment15;
351: End If;
352: If (p_rec.segment16 = hr_api.g_varchar2) then
353: p_rec.segment16 :=
354: pay_exa_shd.g_old_rec.segment16;

Line 354: pay_exa_shd.g_old_rec.segment16;

350: pay_exa_shd.g_old_rec.segment15;
351: End If;
352: If (p_rec.segment16 = hr_api.g_varchar2) then
353: p_rec.segment16 :=
354: pay_exa_shd.g_old_rec.segment16;
355: End If;
356: If (p_rec.segment17 = hr_api.g_varchar2) then
357: p_rec.segment17 :=
358: pay_exa_shd.g_old_rec.segment17;

Line 358: pay_exa_shd.g_old_rec.segment17;

354: pay_exa_shd.g_old_rec.segment16;
355: End If;
356: If (p_rec.segment17 = hr_api.g_varchar2) then
357: p_rec.segment17 :=
358: pay_exa_shd.g_old_rec.segment17;
359: End If;
360: If (p_rec.segment18 = hr_api.g_varchar2) then
361: p_rec.segment18 :=
362: pay_exa_shd.g_old_rec.segment18;

Line 362: pay_exa_shd.g_old_rec.segment18;

358: pay_exa_shd.g_old_rec.segment17;
359: End If;
360: If (p_rec.segment18 = hr_api.g_varchar2) then
361: p_rec.segment18 :=
362: pay_exa_shd.g_old_rec.segment18;
363: End If;
364: If (p_rec.segment19 = hr_api.g_varchar2) then
365: p_rec.segment19 :=
366: pay_exa_shd.g_old_rec.segment19;

Line 366: pay_exa_shd.g_old_rec.segment19;

362: pay_exa_shd.g_old_rec.segment18;
363: End If;
364: If (p_rec.segment19 = hr_api.g_varchar2) then
365: p_rec.segment19 :=
366: pay_exa_shd.g_old_rec.segment19;
367: End If;
368: If (p_rec.segment20 = hr_api.g_varchar2) then
369: p_rec.segment20 :=
370: pay_exa_shd.g_old_rec.segment20;

Line 370: pay_exa_shd.g_old_rec.segment20;

366: pay_exa_shd.g_old_rec.segment19;
367: End If;
368: If (p_rec.segment20 = hr_api.g_varchar2) then
369: p_rec.segment20 :=
370: pay_exa_shd.g_old_rec.segment20;
371: End If;
372: If (p_rec.segment21 = hr_api.g_varchar2) then
373: p_rec.segment21 :=
374: pay_exa_shd.g_old_rec.segment21;

Line 374: pay_exa_shd.g_old_rec.segment21;

370: pay_exa_shd.g_old_rec.segment20;
371: End If;
372: If (p_rec.segment21 = hr_api.g_varchar2) then
373: p_rec.segment21 :=
374: pay_exa_shd.g_old_rec.segment21;
375: End If;
376: If (p_rec.segment22 = hr_api.g_varchar2) then
377: p_rec.segment22 :=
378: pay_exa_shd.g_old_rec.segment22;

Line 378: pay_exa_shd.g_old_rec.segment22;

374: pay_exa_shd.g_old_rec.segment21;
375: End If;
376: If (p_rec.segment22 = hr_api.g_varchar2) then
377: p_rec.segment22 :=
378: pay_exa_shd.g_old_rec.segment22;
379: End If;
380: If (p_rec.segment23 = hr_api.g_varchar2) then
381: p_rec.segment23 :=
382: pay_exa_shd.g_old_rec.segment23;

Line 382: pay_exa_shd.g_old_rec.segment23;

378: pay_exa_shd.g_old_rec.segment22;
379: End If;
380: If (p_rec.segment23 = hr_api.g_varchar2) then
381: p_rec.segment23 :=
382: pay_exa_shd.g_old_rec.segment23;
383: End If;
384: If (p_rec.segment24 = hr_api.g_varchar2) then
385: p_rec.segment24 :=
386: pay_exa_shd.g_old_rec.segment24;

Line 386: pay_exa_shd.g_old_rec.segment24;

382: pay_exa_shd.g_old_rec.segment23;
383: End If;
384: If (p_rec.segment24 = hr_api.g_varchar2) then
385: p_rec.segment24 :=
386: pay_exa_shd.g_old_rec.segment24;
387: End If;
388: If (p_rec.segment25 = hr_api.g_varchar2) then
389: p_rec.segment25 :=
390: pay_exa_shd.g_old_rec.segment25;

Line 390: pay_exa_shd.g_old_rec.segment25;

386: pay_exa_shd.g_old_rec.segment24;
387: End If;
388: If (p_rec.segment25 = hr_api.g_varchar2) then
389: p_rec.segment25 :=
390: pay_exa_shd.g_old_rec.segment25;
391: End If;
392: If (p_rec.segment26 = hr_api.g_varchar2) then
393: p_rec.segment26 :=
394: pay_exa_shd.g_old_rec.segment26;

Line 394: pay_exa_shd.g_old_rec.segment26;

390: pay_exa_shd.g_old_rec.segment25;
391: End If;
392: If (p_rec.segment26 = hr_api.g_varchar2) then
393: p_rec.segment26 :=
394: pay_exa_shd.g_old_rec.segment26;
395: End If;
396: If (p_rec.segment27 = hr_api.g_varchar2) then
397: p_rec.segment27 :=
398: pay_exa_shd.g_old_rec.segment27;

Line 398: pay_exa_shd.g_old_rec.segment27;

394: pay_exa_shd.g_old_rec.segment26;
395: End If;
396: If (p_rec.segment27 = hr_api.g_varchar2) then
397: p_rec.segment27 :=
398: pay_exa_shd.g_old_rec.segment27;
399: End If;
400: If (p_rec.segment28 = hr_api.g_varchar2) then
401: p_rec.segment28 :=
402: pay_exa_shd.g_old_rec.segment28;

Line 402: pay_exa_shd.g_old_rec.segment28;

398: pay_exa_shd.g_old_rec.segment27;
399: End If;
400: If (p_rec.segment28 = hr_api.g_varchar2) then
401: p_rec.segment28 :=
402: pay_exa_shd.g_old_rec.segment28;
403: End If;
404: If (p_rec.segment29 = hr_api.g_varchar2) then
405: p_rec.segment29 :=
406: pay_exa_shd.g_old_rec.segment29;

Line 406: pay_exa_shd.g_old_rec.segment29;

402: pay_exa_shd.g_old_rec.segment28;
403: End If;
404: If (p_rec.segment29 = hr_api.g_varchar2) then
405: p_rec.segment29 :=
406: pay_exa_shd.g_old_rec.segment29;
407: End If;
408: If (p_rec.segment30 = hr_api.g_varchar2) then
409: p_rec.segment30 :=
410: pay_exa_shd.g_old_rec.segment30;

Line 410: pay_exa_shd.g_old_rec.segment30;

406: pay_exa_shd.g_old_rec.segment29;
407: End If;
408: If (p_rec.segment30 = hr_api.g_varchar2) then
409: p_rec.segment30 :=
410: pay_exa_shd.g_old_rec.segment30;
411: End If;
412: --
413: hr_utility.set_location(' Leaving:'||l_proc, 10);
414: end convert_defs;

Line 420: p_rec in out nocopy pay_exa_shd.g_rec_type

416: -- ----------------------------------------------------------------------------
417: -- |---------------------------------< upd >----------------------------------|
418: -- ----------------------------------------------------------------------------
419: procedure upd(
420: p_rec in out nocopy pay_exa_shd.g_rec_type
421: ,p_validate in boolean default false
422: ) is
423: --
424: l_proc varchar2(72) := g_package||'upd';

Line 440: pay_exa_shd.lck

436: End If;
437: --
438: -- we must lock the row which we need to update
439: --
440: pay_exa_shd.lck
441: (p_rec.external_account_id,
442: p_rec.object_version_number);
443: --
444: -- stub - not sure if this is necessary as other parameters are

Line 489: l_rec pay_exa_shd.g_rec_type;

485: ,p_object_version_number in out nocopy number
486: ,p_validate in boolean default false
487: ) is
488: --
489: l_rec pay_exa_shd.g_rec_type;
490: l_proc varchar2(72) := g_package||'upd';
491: --
492: cursor csr_ovn(p_external_account_id number) is
493: SELECT pea.object_version_number

Line 505: pay_exa_shd.convert_args(

501: -- call conversion function to turn arguments into the l_rec structure,
502: -- nb. only parameters used by U logic are set
503: --
504: l_rec :=
505: pay_exa_shd.convert_args(
506: p_external_account_id => p_external_account_id,
507: p_territory_code => p_territory_code,
508: p_prenote_date => p_prenote_date,
509: p_id_flex_num => null,

Line 608: l_rec pay_exa_shd.g_rec_type;

604: ,p_validate in boolean default false
605: ) is
606: --
607: l_proc varchar2(72) := g_package||'upd_or_sel';
608: l_rec pay_exa_shd.g_rec_type;
609: l_concat_segments_out varchar2(4600);
610: l_external_account_id_init pay_external_accounts.external_account_id%type;
611: l_prenote_date pay_external_accounts.prenote_date%type;
612: l_object_version_number_init pay_external_accounts.object_version_number%type;

Line 642: pay_exa_shd.convert_args(

638: --
639: -- convert args into record format
640: --
641: l_rec :=
642: pay_exa_shd.convert_args(
643: p_external_account_id,
644: p_territory_code,
645: p_prenote_date,
646: --

Line 707: if pay_exa_shd.api_updating

703: --
704: -- always true,
705: -- used to populate g_old_rec
706: --
707: if pay_exa_shd.api_updating
708: (p_external_account_id => l_rec.external_account_id,
709: p_object_version_number => l_rec.object_version_number) then
710: --
711: -- copy any system defaulted values from db row(g_old_rec) into l_rec

Line 726: pay_exa_shd.keyflex_comb(

722: --
723: -- call wrapper,
724: -- generates formatted msg upon segement validation failure
725: --
726: pay_exa_shd.keyflex_comb(
727: p_dml_mode => 'UPDATE',
728: p_business_group_id => p_business_group_id,
729: p_appl_short_name => 'PAY',
730: p_territory_code => p_territory_code,