eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PAY_RETRO_STATUS_INTERNAL dependencies on HR_UTILITY

Line 164: hr_utility.set_location('Entering:'|| l_proc, 10);

160: --
161: l_ownertype_sum number;
162: --
163: begin
164: hr_utility.set_location('Entering:'|| l_proc, 10);
165: --
166: -- Check the owner type of all the retro entries.
167: --
168: open csr_retro_ent_type;

Line 175: hr_utility.set_location(l_proc, 20);

171: --
172: -- Determine the owner type.
173: --
174: if (l_ownertype_sum = 1) then
175: hr_utility.set_location(l_proc, 20);
176: l_owner_type := g_system;
177: elsif (l_ownertype_sum is null) or (l_ownertype_sum = 2) then
178: hr_utility.set_location(l_proc, 30);
179: l_owner_type := g_user;

Line 178: hr_utility.set_location(l_proc, 30);

174: if (l_ownertype_sum = 1) then
175: hr_utility.set_location(l_proc, 20);
176: l_owner_type := g_system;
177: elsif (l_ownertype_sum is null) or (l_ownertype_sum = 2) then
178: hr_utility.set_location(l_proc, 30);
179: l_owner_type := g_user;
180: else
181: --
182: -- Failed to judge it by the entry owner type.

Line 186: hr_utility.set_location(l_proc, 40);

182: -- Failed to judge it by the entry owner type.
183: -- Temporarily determine it by the created_by value.
184: --
185: if p_created_by = -1 then
186: hr_utility.set_location(l_proc, 40);
187: l_owner_type := g_system;
188: else
189: hr_utility.set_location(l_proc, 50);
190: l_owner_type := g_user;

Line 189: hr_utility.set_location(l_proc, 50);

185: if p_created_by = -1 then
186: hr_utility.set_location(l_proc, 40);
187: l_owner_type := g_system;
188: else
189: hr_utility.set_location(l_proc, 50);
190: l_owner_type := g_user;
191: end if;
192: end if;
193: --

Line 196: hr_utility.set_location(' Leaving:'||l_proc, 90);

192: end if;
193: --
194: return l_owner_type;
195:
196: hr_utility.set_location(' Leaving:'||l_proc, 90);
197: end get_retro_asg_creator_type;
198: --
199: -- ----------------------------------------------------------------------------
200: -- |----------------------< get_retro_ent_creator_type >----------------------|

Line 225: hr_utility.set_location('Entering:'|| l_proc, 10);

221: is
222: l_proc varchar2(72) := g_package||'get_retro_ent_creator_type';
223: l_owner_type varchar2(1);
224: begin
225: hr_utility.set_location('Entering:'|| l_proc, 10);
226:
227: if (nvl(p_old_owner_type, g_system) = g_system) then
228: l_owner_type := g_system;
229: elsif p_old_owner_type = g_user then

Line 239: hr_utility.set_location(' Leaving:'||l_proc, 90);

235: end if;
236:
237: return l_owner_type;
238:
239: hr_utility.set_location(' Leaving:'||l_proc, 90);
240: end get_retro_ent_creator_type;
241: --
242: -- ----------------------------------------------------------------------------
243: -- |--------------------------< chk_assignment_id >---------------------------|

Line 297: hr_utility.set_location('Entering:'|| l_proc, 10);

293: and prd.period_of_service_id = paf.period_of_service_id;
294:
295: l_proc varchar2(72) := g_package||'chk_assignment_id';
296: begin
297: hr_utility.set_location('Entering:'|| l_proc, 10);
298: open csr_asg;
299: fetch csr_asg into l_business_group_id, l_payroll_id;
300: if csr_asg%notfound then
301: close csr_asg;

Line 317: hr_utility.set_location(' Leaving:'||l_proc, 40);

313: --
314: p_business_group_id := l_business_group_id;
315: p_payroll_id := l_payroll_id;
316:
317: hr_utility.set_location(' Leaving:'||l_proc, 40);
318: end chk_assignment_id;
319: --
320: -- ----------------------------------------------------------------------------
321: -- |-------------------------< chk_approval_status >--------------------------|

Line 354: hr_utility.set_location('Entering:'|| l_proc, 10);

350: is
351: l_inv_app_status boolean:= false;
352: l_proc varchar2(72) := g_package||'chk_approval_status';
353: begin
354: hr_utility.set_location('Entering:'|| l_proc, 10);
355:
356: /*Check if the provided status is available in lookups or not*/
357: if hr_api.not_exists_in_hr_lookups
358: (trunc(sysdate), 'ADVANCE_RETRO_STATUS', p_approval_status) then

Line 359: hr_utility.set_location(l_proc, 20);

355:
356: /*Check if the provided status is available in lookups or not*/
357: if hr_api.not_exists_in_hr_lookups
358: (trunc(sysdate), 'ADVANCE_RETRO_STATUS', p_approval_status) then
359: hr_utility.set_location(l_proc, 20);
360: l_inv_app_status := true;
361: else
362: if p_insert_or_update = 'I' then
363: /*If creation , then only two statuses A and D are allowed*/

Line 364: hr_utility.set_location(l_proc, 30);

360: l_inv_app_status := true;
361: else
362: if p_insert_or_update = 'I' then
363: /*If creation , then only two statuses A and D are allowed*/
364: hr_utility.set_location(l_proc, 30);
365: if p_approval_status not in ('A','D') then
366: hr_utility.set_location(l_proc, 40);
367: l_inv_app_status := true;
368: end if;

Line 366: hr_utility.set_location(l_proc, 40);

362: if p_insert_or_update = 'I' then
363: /*If creation , then only two statuses A and D are allowed*/
364: hr_utility.set_location(l_proc, 30);
365: if p_approval_status not in ('A','D') then
366: hr_utility.set_location(l_proc, 40);
367: l_inv_app_status := true;
368: end if;
369: else
370: /*If updation, then C and R are not allowed*/

Line 371: hr_utility.set_location(l_proc, 50);

367: l_inv_app_status := true;
368: end if;
369: else
370: /*If updation, then C and R are not allowed*/
371: hr_utility.set_location(l_proc, 50);
372: if p_approval_status in ('C','R') then
373: hr_utility.set_location(l_proc, 60);
374: l_inv_app_status := true;
375: end if;

Line 373: hr_utility.set_location(l_proc, 60);

369: else
370: /*If updation, then C and R are not allowed*/
371: hr_utility.set_location(l_proc, 50);
372: if p_approval_status in ('C','R') then
373: hr_utility.set_location(l_proc, 60);
374: l_inv_app_status := true;
375: end if;
376: end if;
377: end if;

Line 382: hr_utility.set_location(' Leaving:'||l_proc, 100);

378: if l_inv_app_status then
379: fnd_message.set_name('PAY','PAY_34301_RTS_INV_APPRVL_STA');
380: fnd_message.raise_error;
381: end if;
382: hr_utility.set_location(' Leaving:'||l_proc, 100);
383:
384: end chk_approval_status;
385: --
386: -- ----------------------------------------------------------------------------

Line 420: hr_utility.set_location('Entering:'|| l_proc, 10);

416: l_proc varchar2(72) := g_package||'chk_asg_rep_date_updatable';
417: l_owner_type varchar2(10);
418: --
419: begin
420: hr_utility.set_location('Entering:'|| l_proc, 10);
421: --
422: if p_owner_type = g_user then
423:
424: l_owner_type := get_retro_asg_creator_type

Line 440: hr_utility.set_location(' Leaving:'||l_proc, 40);

436: --
437: end if;
438: end if;
439:
440: hr_utility.set_location(' Leaving:'||l_proc, 40);
441:
442: end chk_asg_rep_date_updatable;
443: --
444: -- ----------------------------------------------------------------------------

Line 485: hr_utility.set_location('Entering:'|| l_proc, 10);

481: retro_assignment_id = p_retro_assignment_id
482: and reprocess_date < p_reprocess_date;
483:
484: begin
485: hr_utility.set_location('Entering:'|| l_proc, 10);
486: open csr_chk_rep_date;
487: fetch csr_chk_rep_date into l_dummy;
488: if csr_chk_rep_date%found then
489: close csr_chk_rep_date;

Line 497: hr_utility.set_location(' Leaving:'||l_proc, 40);

493: --
494: end if;
495: close csr_chk_rep_date;
496:
497: hr_utility.set_location(' Leaving:'||l_proc, 40);
498:
499: end chk_retro_asg_reprocess_date;
500: --
501: -- ----------------------------------------------------------------------------

Line 561: hr_utility.set_location('Entering:'|| l_proc, 10);

557: where retro_assignment_id = p_retro_assignment_id
558: and nvl(owner_type, g_system) <> g_user;
559: --
560: begin
561: hr_utility.set_location('Entering:'|| l_proc, 10);
562:
563: if p_owner_type = g_user then
564:
565: hr_utility.set_location(l_proc, 20);

Line 565: hr_utility.set_location(l_proc, 20);

561: hr_utility.set_location('Entering:'|| l_proc, 10);
562:
563: if p_owner_type = g_user then
564:
565: hr_utility.set_location(l_proc, 20);
566:
567: if (p_retro_assignment_action_id is not null) or
568: (p_superseding_retro_asg_id is not null) or
569: (p_old_approval_status not in ('A','D','P')) then

Line 610: hr_utility.set_location(' Leaving:'||l_proc, 40);

606: end if;
607: end if;
608: end if;
609:
610: hr_utility.set_location(' Leaving:'||l_proc, 40);
611:
612: end chk_retro_asg_updatable;
613: --
614: -- ----------------------------------------------------------------------------

Line 662: hr_utility.set_location('Entering:'|| l_proc, 10);

658: l_proc varchar2(72) := g_package||'chk_ent_reprocess_date';
659: l_element_name pay_element_types_f_tl.element_name%type;
660: l_owner_type varchar2(10);
661: begin
662: hr_utility.set_location('Entering:'|| l_proc, 10);
663:
664: if p_owner_type = g_user then
665:
666: if p_reprocess_date <> p_old_reprocess_date then

Line 667: hr_utility.set_location(l_proc, 20);

663:
664: if p_owner_type = g_user then
665:
666: if p_reprocess_date <> p_old_reprocess_date then
667: hr_utility.set_location(l_proc, 20);
668: --
669: -- Check the existing owner type.
670: --
671: l_owner_type := get_retro_ent_creator_type

Line 697: hr_utility.set_location(l_proc, 30);

693: fnd_message.raise_error;
694: --
695: end if;
696: end if;
697: hr_utility.set_location(l_proc, 30);
698: --
699: if (p_reprocess_date <> p_old_reprocess_date) or
700: (p_old_reprocess_date is null) then
701: --

Line 702: hr_utility.set_location(l_proc, 40);

698: --
699: if (p_reprocess_date <> p_old_reprocess_date) or
700: (p_old_reprocess_date is null) then
701: --
702: hr_utility.set_location(l_proc, 40);
703: if p_reprocess_date < p_asg_reprocess_date then
704: --
705: -- The reprocess date cannot be earlier than the asg reprocess date.
706: --

Line 715: hr_utility.set_location(' Leaving:'||l_proc, 40);

711: --
712: end if;
713: end if;
714: end if;
715: hr_utility.set_location(' Leaving:'||l_proc, 40);
716: end chk_ent_reprocess_date;
717: --
718: -- ----------------------------------------------------------------------------
719: -- |-----------------------< chk_retro_entry_deletable >----------------------|

Line 752: hr_utility.set_location('Entering:'|| l_proc, 10);

748: l_proc varchar2(72) := g_package||'chk_retro_entry_deletable';
749: l_owner_type varchar2(10);
750: l_element_name pay_element_types_f_tl.element_name%type;
751: begin
752: hr_utility.set_location('Entering:'|| l_proc, 10);
753:
754: if p_owner_type = g_user then
755:
756: if nvl(p_old_owner_type, g_system) <> g_user then

Line 768: hr_utility.set_location(' Leaving:'||l_proc, 40);

764: fnd_message.raise_error;
765: end if;
766: end if;
767:
768: hr_utility.set_location(' Leaving:'||l_proc, 40);
769: end chk_retro_entry_deletable;
770: --
771: -- ----------------------------------------------------------------------------
772: -- |-------------------------< chk_element_entry_id >-------------------------|

Line 826: hr_utility.set_location('Entering:'|| l_proc, 10);

822: ;
823: --
824: l_rec csr_entry%rowtype;
825: begin
826: hr_utility.set_location('Entering:'|| l_proc, 10);
827: open csr_entry;
828: fetch csr_entry into l_rec;
829: if csr_entry%notfound then
830: close csr_entry;

Line 844: hr_utility.set_location(' Leaving:'||l_proc, 40);

840: -- Set out variables.
841: --
842: p_element_type_id := l_rec.element_type_id;
843:
844: hr_utility.set_location(' Leaving:'||l_proc, 40);
845:
846: end chk_element_entry_id;
847: --
848: -- -------------------------------------------------------------------------

Line 894: hr_utility.set_location('Entering:'|| l_proc, 10);

890: l_retro_component_id number;
891: l_element_name pay_element_types_f_tl.element_name%type;
892: --
893: begin
894: hr_utility.set_location('Entering:'|| l_proc, 10);
895: --
896: -- Call another package to obtain the default component.
897: -- Note that p_ef_date is not currently used in the other package,
898: -- hence passing it just as a dummy date.

Line 928: hr_utility.set_location(' Leaving:'|| l_proc, 50);

924: -- Set out variable.
925: --
926: return l_retro_component_id;
927:
928: hr_utility.set_location(' Leaving:'|| l_proc, 50);
929: end get_default_retro_component_id;
930: --
931: -- -------------------------------------------------------------------------
932: -- |----------------------< chk_retro_component_id >-----------------------|

Line 979: hr_utility.set_location('Entering:'|| l_proc, 10);

975: and nvl(legislation_code, l_legislation_code) = l_legislation_code
976: ;
977: --
978: begin
979: hr_utility.set_location('Entering:'|| l_proc, 10);
980: --
981: -- Check mandatory parameters have been set
982: --
983: hr_api.mandatory_arg_error

Line 996: hr_utility.set_location(l_proc, 20);

992: := hr_api.return_legislation_code(p_business_group_id);
993: --
994: -- Check if the retro component exists.
995: --
996: hr_utility.set_location(l_proc, 20);
997: open csr_retro_component;
998: fetch csr_retro_component into l_exists;
999: if csr_retro_component%notfound then
1000: close csr_retro_component;

Line 1008: hr_utility.set_location(' Leaving:'|| l_proc, 50);

1004:
1005: end if;
1006: close csr_retro_component;
1007:
1008: hr_utility.set_location(' Leaving:'|| l_proc, 50);
1009: end chk_retro_component_id;
1010: --
1011: -- ----------------------------------------------------------------------------
1012: -- |-------------------------< chk_retro_comp_usage >-------------------------|

Line 1068: hr_utility.set_location('Entering:'|| l_proc, 10);

1064: ;
1065:
1066: l_proc varchar2(72) := g_package||'chk_retro_comp_usage';
1067: begin
1068: hr_utility.set_location('Entering:'|| l_proc, 10);
1069: open csr_rcu;
1070: fetch csr_rcu into l_dummy;
1071: if csr_rcu%notfound then
1072: --

Line 1086: hr_utility.set_location(' Leaving:'||l_proc, 40);

1082: fnd_message.set_token('COMPONENT_NAME', l_component_name);
1083: fnd_message.raise_error;
1084: --
1085: end if;
1086: hr_utility.set_location(' Leaving:'||l_proc, 40);
1087:
1088: end chk_retro_comp_usage;
1089: --
1090: -- ----------------------------------------------------------------------------

Line 1108: hr_utility.set_location('Entering:'|| l_proc, 10);

1104: from pay_retro_assignments
1105: where retro_assignment_id = p_retro_assignment_id
1106: for update nowait;
1107: begin
1108: hr_utility.set_location('Entering:'|| l_proc, 10);
1109: --
1110: open csr_lock_retro_asg;
1111: fetch csr_lock_retro_asg into l_old_rec;
1112: if csr_lock_retro_asg%notfound then

Line 1119: hr_utility.set_location(l_proc, 20);

1115: fnd_message.raise_error;
1116: end if;
1117: close csr_lock_retro_asg;
1118: --
1119: hr_utility.set_location(l_proc, 20);
1120:
1121: p_old_rec := l_old_rec;
1122:
1123: hr_utility.set_location(' Leaving:'||l_proc, 40);

Line 1123: hr_utility.set_location(' Leaving:'||l_proc, 40);

1119: hr_utility.set_location(l_proc, 20);
1120:
1121: p_old_rec := l_old_rec;
1122:
1123: hr_utility.set_location(' Leaving:'||l_proc, 40);
1124: Exception
1125: When HR_Api.Object_Locked then
1126: --
1127: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');

Line 1229: hr_utility.set_location('Entering:'|| l_proc, 10);

1225: where retro_assignment_id = p_retro_asg_id;
1226:
1227: l_proc varchar2(72) := g_package||'create_super_retro_asg';
1228: begin
1229: hr_utility.set_location('Entering:'|| l_proc, 10);
1230: --
1231: -- Issue a savepoint
1232: --
1233: savepoint rts_create_super_retro_asg;

Line 1247: hr_utility.set_location(l_proc, 15);

1243: --
1244: pay_core_utils.assert_condition
1245: (l_proc||':owner_type', p_owner_type in (g_user, g_system));
1246:
1247: hr_utility.set_location(l_proc, 15);
1248: --
1249: -- Check to see if the previous version of retro assignment exists.
1250: --
1251: l_old_retro_asg_id := get_unprocessed_retro_asg(p_assignment_id);

Line 1302: hr_utility.set_location(l_proc, 20);

1298:
1299: --
1300: -- Insert validation.
1301: --
1302: hr_utility.set_location(l_proc, 20);
1303: chk_assignment_id
1304: (p_assignment_id => p_assignment_id
1305: ,p_reprocess_date => l_reprocess_date
1306: ,p_business_group_id => l_business_group_id

Line 1318: hr_utility.set_location(l_proc, 30);

1314: ,p_insert_or_update => 'I');
1315:
1316: end if;
1317:
1318: hr_utility.set_location(l_proc, 30);
1319: --
1320: -- Create superseding retro assignment.
1321: --
1322: pay_retro_utils_pkg.create_super_retro_asg

Line 1329: hr_utility.set_location(l_proc, 40);

1325: ,p_reprocess_date => l_reprocess_date
1326: ,p_retro_asg_id => l_retro_assignment_id
1327: );
1328:
1329: hr_utility.set_location(l_proc, 40);
1330: --
1331: -- If this is the user type, we might need to change automatically
1332: -- adjusted values.
1333: --

Line 1343: hr_utility.set_location(l_proc, 45);

1339: (p_retro_assignment_id => l_retro_assignment_id
1340: ,p_old_rec => l_new_ra_rec
1341: );
1342:
1343: hr_utility.set_location(l_proc, 45);
1344: --
1345: -- Check the reprocess date.
1346: --
1347: if (p_reprocess_date <> l_new_ra_rec.reprocess_date) then

Line 1348: hr_utility.set_location(l_proc, 50);

1344: --
1345: -- Check the reprocess date.
1346: --
1347: if (p_reprocess_date <> l_new_ra_rec.reprocess_date) then
1348: hr_utility.set_location(l_proc, 50);
1349: --
1350: -- Check to see if this reprocess date is valid.
1351: --
1352: chk_retro_asg_reprocess_date

Line 1367: hr_utility.set_location(l_proc, 55);

1363: -- Check the start date.
1364: --
1365: if (p_start_date is null)
1366: or (p_start_date <> l_new_ra_rec.start_date) then
1367: hr_utility.set_location(l_proc, 55);
1368: --
1369: -- Set the new start date.
1370: --
1371: l_new_start_date := decode_default(p_start_date

Line 1376: hr_utility.set_location(l_proc, 60);

1372: ,null
1373: ,p_reprocess_date);
1374: end if;
1375:
1376: hr_utility.set_location(l_proc, 60);
1377: --
1378: -- As the above procedure doesn't accept approval status at the moment,
1379: -- we might need override the default one if necessary.
1380: --

Line 1381: hr_utility.set_location(l_proc, 70);

1377: --
1378: -- As the above procedure doesn't accept approval status at the moment,
1379: -- we might need override the default one if necessary.
1380: --
1381: hr_utility.set_location(l_proc, 70);
1382: --
1383: l_old_approval_status := l_old_ra_rec.approval_status;
1384: l_approval_status := l_new_ra_rec.approval_status;
1385:

Line 1386: hr_utility.trace('Old status: '||l_old_approval_status);

1382: --
1383: l_old_approval_status := l_old_ra_rec.approval_status;
1384: l_approval_status := l_new_ra_rec.approval_status;
1385:
1386: hr_utility.trace('Old status: '||l_old_approval_status);
1387: hr_utility.trace('Default status: '||l_approval_status);
1388: hr_utility.trace('Specified status: '||p_approval_status);
1389: --
1390: -- Identify the expected new approval status.

Line 1387: hr_utility.trace('Default status: '||l_approval_status);

1383: l_old_approval_status := l_old_ra_rec.approval_status;
1384: l_approval_status := l_new_ra_rec.approval_status;
1385:
1386: hr_utility.trace('Old status: '||l_old_approval_status);
1387: hr_utility.trace('Default status: '||l_approval_status);
1388: hr_utility.trace('Specified status: '||p_approval_status);
1389: --
1390: -- Identify the expected new approval status.
1391: --

Line 1388: hr_utility.trace('Specified status: '||p_approval_status);

1384: l_approval_status := l_new_ra_rec.approval_status;
1385:
1386: hr_utility.trace('Old status: '||l_old_approval_status);
1387: hr_utility.trace('Default status: '||l_approval_status);
1388: hr_utility.trace('Specified status: '||p_approval_status);
1389: --
1390: -- Identify the expected new approval status.
1391: --
1392: if (p_approval_status <> l_approval_status) then

Line 1410: hr_utility.set_location(l_proc, 80);

1406: --
1407: if (l_new_reprocess_date is not null)
1408: or (l_new_start_date is not null)
1409: or (l_new_approval_status is not null) then
1410: hr_utility.set_location(l_proc, 80);
1411: --
1412: update pay_retro_assignments
1413: set
1414: reprocess_date = nvl(l_new_reprocess_date, reprocess_date)

Line 1422: hr_utility.set_location(l_proc, 90);

1418: --
1419: end if;
1420: end if;
1421:
1422: hr_utility.set_location(l_proc, 90);
1423: --
1424: -- Set out variable.
1425: --
1426: p_retro_assignment_id := l_retro_assignment_id;

Line 1428: hr_utility.set_location(' Leaving:'||l_proc, 100);

1424: -- Set out variable.
1425: --
1426: p_retro_assignment_id := l_retro_assignment_id;
1427:
1428: hr_utility.set_location(' Leaving:'||l_proc, 100);
1429: exception
1430: when others then
1431: --
1432: -- A validation or unexpected error has occured

Line 1435: hr_utility.set_location(' Leaving:'||l_proc, 120);

1431: --
1432: -- A validation or unexpected error has occured
1433: --
1434: rollback to rts_create_super_retro_asg;
1435: hr_utility.set_location(' Leaving:'||l_proc, 120);
1436: raise;
1437: end create_super_retro_asg;
1438: --
1439: -- ----------------------------------------------------------------------------

Line 1466: hr_utility.set_location('Entering:'|| l_proc, 10);

1462: where retro_assignment_id = p_retro_assignment_id
1463: and nvl(owner_type, g_system) <> g_user;
1464: /* Bug 13696751, changes end */
1465: begin
1466: hr_utility.set_location('Entering:'|| l_proc, 10);
1467: --
1468: -- Issue a savepoint
1469: --
1470: savepoint rts_update_retro_asg;

Line 1484: hr_utility.set_location(l_proc, 20);

1480: --
1481: pay_core_utils.assert_condition
1482: (l_proc||':owner_type', p_owner_type in (g_user, g_system));
1483:
1484: hr_utility.set_location(l_proc, 20);
1485: --
1486: -- Lock the existing retro assignment.
1487: --
1488: lock_retro_asg

Line 1493: hr_utility.set_location(l_proc, 30);

1489: (p_retro_assignment_id => p_retro_assignment_id
1490: ,p_old_rec => l_old_rec
1491: );
1492:
1493: hr_utility.set_location(l_proc, 30);
1494: --
1495: -- Copy the changed values.
1496: --
1497: l_new_rec := l_old_rec;

Line 1508: hr_utility.set_location(l_proc, 40);

1504: ,l_old_rec.start_date);
1505: l_new_rec.approval_status := decode_default(p_approval_status
1506: ,hr_api.g_varchar2
1507: ,l_old_rec.approval_status);
1508: hr_utility.set_location(l_proc, 40);
1509: --
1510: -- Update validation.
1511: --
1512: chk_retro_asg_updatable

Line 1536: hr_utility.set_location(l_proc, 45);

1532: ,p_payroll_id => l_payroll_id
1533: );
1534:
1535: if l_old_rec.approval_status <> l_new_rec.approval_status then
1536: hr_utility.set_location(l_proc, 45);
1537: chk_approval_status
1538: (p_approval_status => l_new_rec.approval_status
1539: ,p_insert_or_update => 'U');
1540: end if;

Line 1543: hr_utility.set_location(l_proc, 50);

1539: ,p_insert_or_update => 'U');
1540: end if;
1541:
1542: if l_old_rec.reprocess_date <> l_new_rec.reprocess_date then
1543: hr_utility.set_location(l_proc, 50);
1544: chk_asg_rep_date_updatable
1545: (p_retro_assignment_id => p_retro_assignment_id
1546: ,p_created_by => l_old_rec.created_by
1547: ,p_owner_type => p_owner_type

Line 1563: hr_utility.set_location(l_proc, 60);

1559: ,hr_api.g_date
1560: ,l_new_rec.reprocess_date);
1561: end if;
1562:
1563: hr_utility.set_location(l_proc, 60);
1564: --
1565: -- Now update the retro assignment.
1566: --
1567: /* Bug 13696751, Allow update status of 'F', only for system generated retro

Line 1572: hr_utility.set_location(l_proc, 65);

1568: * assignments */
1569: if l_new_rec.approval_status <> 'F'
1570: then
1571: --
1572: hr_utility.set_location(l_proc, 65);
1573: update pay_retro_assignments
1574: set reprocess_date = l_new_rec.reprocess_date
1575: ,start_date = l_new_rec.start_date
1576: ,approval_status = l_new_rec.approval_status

Line 1581: hr_utility.set_location(l_proc, 80);

1577: where retro_assignment_id = p_retro_assignment_id;
1578: --
1579: Else
1580: --
1581: hr_utility.set_location(l_proc, 80);
1582: open csr_sys_ent_exists;
1583: fetch csr_sys_ent_exists into l_dummy;
1584: if csr_sys_ent_exists%found then
1585: hr_utility.set_location(l_proc, 85);

Line 1585: hr_utility.set_location(l_proc, 85);

1581: hr_utility.set_location(l_proc, 80);
1582: open csr_sys_ent_exists;
1583: fetch csr_sys_ent_exists into l_dummy;
1584: if csr_sys_ent_exists%found then
1585: hr_utility.set_location(l_proc, 85);
1586: update pay_retro_assignments
1587: set reprocess_date = l_new_rec.reprocess_date
1588: ,start_date = l_new_rec.start_date
1589: ,approval_status = l_new_rec.approval_status

Line 1594: hr_utility.set_location (l_proc, 87);

1590: where retro_assignment_id = p_retro_assignment_id;
1591: else
1592: -- Trying to update status to Deferred Forever/ Complete
1593: -- for user generated retro entry
1594: hr_utility.set_location (l_proc, 87);
1595: fnd_message.set_name('PER', 'PAY_500024_SYS_ENTRY_NO_EXIST');
1596: fnd_message.set_token('TABLE_NAME','pay_retro_assignments');
1597: fnd_message.raise_error;
1598: end if;

Line 1602: hr_utility.set_location(' Leaving:'||l_proc, 80);

1598: end if;
1599: close csr_sys_ent_exists;
1600: End if;
1601: /* Bug 13696751, changes end */
1602: hr_utility.set_location(' Leaving:'||l_proc, 80);
1603: exception
1604: when others then
1605: --
1606: -- A validation or unexpected error has occured

Line 1609: hr_utility.set_location(' Leaving:'||l_proc, 90);

1605: --
1606: -- A validation or unexpected error has occured
1607: --
1608: rollback to rts_update_retro_asg;
1609: hr_utility.set_location(' Leaving:'||l_proc, 90);
1610: raise;
1611: end update_retro_asg;
1612: --
1613: -- ----------------------------------------------------------------------------

Line 1650: hr_utility.set_location('Entering:'|| l_proc, 10);

1646: l_reprocess_date date;
1647: l_start_date date;
1648: l_old_rec t_retro_asg_rec;
1649: begin
1650: hr_utility.set_location('Entering:'|| l_proc, 10);
1651:
1652: select
1653: min(reprocess_date)
1654: ,min(effective_date)

Line 1663: hr_utility.set_location(l_proc, 20);

1659: where
1660: retro_assignment_id = p_retro_assignment_id
1661: ;
1662:
1663: hr_utility.set_location(l_proc, 20);
1664: --
1665: -- Continue only when retro entry exists.
1666: --
1667: if l_reprocess_date is not null then

Line 1668: hr_utility.set_location(l_proc, 30);

1664: --
1665: -- Continue only when retro entry exists.
1666: --
1667: if l_reprocess_date is not null then
1668: hr_utility.set_location(l_proc, 30);
1669: --
1670: -- Lock the retro assignment.
1671: --
1672: lock_retro_asg

Line 1680: hr_utility.set_location(l_proc, 40);

1676:
1677: if (l_reprocess_date < l_old_rec.reprocess_date)
1678: or (l_start_date < l_old_rec.start_date) then
1679: --
1680: hr_utility.set_location(l_proc, 40);
1681: --
1682: update pay_retro_assignments
1683: set reprocess_date = least(l_reprocess_date, l_old_rec.reprocess_date)
1684: ,start_date = least(l_start_date, l_old_rec.start_date)

Line 1689: hr_utility.set_location(' Leaving:'||l_proc, 80);

1685: where retro_assignment_id = p_retro_assignment_id;
1686: end if;
1687: end if;
1688:
1689: hr_utility.set_location(' Leaving:'||l_proc, 80);
1690: end adjust_retro_asg_date;
1691: -- ----------------------------------------------------------------------------
1692: -- |-----------------------< delete_sys_retro_asg >---------------------------|
1693: -- ----------------------------------------------------------------------------

Line 1711: hr_utility.set_location('Entering:'|| l_proc, 10);

1707: and retro_assignment_action_id is null
1708: for update nowait;
1709:
1710: begin
1711: hr_utility.set_location('Entering:'|| l_proc, 10);
1712: for csr_sys_rec in csr_sys_retro_asgs loop
1713: /*Updating the approval status and retro assignment action id to make sure
1714: that the retro assignments will not get picked up in the next retopay.*/
1715: hr_utility.set_location('Updating the record : '|| l_proc, 20);

Line 1715: hr_utility.set_location('Updating the record : '|| l_proc, 20);

1711: hr_utility.set_location('Entering:'|| l_proc, 10);
1712: for csr_sys_rec in csr_sys_retro_asgs loop
1713: /*Updating the approval status and retro assignment action id to make sure
1714: that the retro assignments will not get picked up in the next retopay.*/
1715: hr_utility.set_location('Updating the record : '|| l_proc, 20);
1716: update pay_retro_assignments
1717: set retro_assignment_action_id = -1,
1718: approval_status = 'F'
1719: where current of csr_sys_retro_asgs;

Line 1720: hr_utility.set_location('Updation has been done : '|| l_proc, 30);

1716: update pay_retro_assignments
1717: set retro_assignment_action_id = -1,
1718: approval_status = 'F'
1719: where current of csr_sys_retro_asgs;
1720: hr_utility.set_location('Updation has been done : '|| l_proc, 30);
1721: end loop;
1722: hr_utility.set_location('Leaving:'|| l_proc, 100);
1723: end;
1724: --

Line 1722: hr_utility.set_location('Leaving:'|| l_proc, 100);

1718: approval_status = 'F'
1719: where current of csr_sys_retro_asgs;
1720: hr_utility.set_location('Updation has been done : '|| l_proc, 30);
1721: end loop;
1722: hr_utility.set_location('Leaving:'|| l_proc, 100);
1723: end;
1724: --
1725: -- ----------------------------------------------------------------------------
1726: -- |---------------------------< delete_retro_asg >---------------------------|

Line 1749: hr_utility.set_location('Entering:'|| l_proc, 10);

1745: where superseding_retro_asg_id = p_retro_asg_id
1746: ;
1747: --
1748: begin
1749: hr_utility.set_location('Entering:'|| l_proc, 10);
1750: --
1751: -- Issue a savepoint
1752: --
1753: savepoint rts_delete_retro_asg;

Line 1767: hr_utility.set_location(l_proc, 20);

1763: --
1764: pay_core_utils.assert_condition
1765: (l_proc||':owner_type', p_owner_type in (g_user, g_system));
1766:
1767: hr_utility.set_location(l_proc, 20);
1768: --
1769: -- Lock the existing retro assignment.
1770: --
1771: lock_retro_asg

Line 1776: hr_utility.set_location(l_proc, 30);

1772: (p_retro_assignment_id => p_retro_assignment_id
1773: ,p_old_rec => l_old_rec
1774: );
1775:
1776: hr_utility.set_location(l_proc, 30);
1777: --
1778: -- Delete validation.
1779: --
1780: chk_retro_asg_updatable

Line 1791: hr_utility.set_location(l_proc, 50);

1787: ,p_dml_mode => g_delete
1788: ,p_delete_sys_retro_asg => p_delete_sys_retro_asg
1789: );
1790:
1791: hr_utility.set_location(l_proc, 50);
1792: --Bug#6892796 : Deleting system created retro assignment.
1793: --We don't delete the retro entries associated with this retro assignment.
1794: if (nvl(p_delete_sys_retro_asg,'N') = 'Y') then
1795: hr_utility.set_location('Deleting system created retro assignments : '||l_proc, 60);

Line 1795: hr_utility.set_location('Deleting system created retro assignments : '||l_proc, 60);

1791: hr_utility.set_location(l_proc, 50);
1792: --Bug#6892796 : Deleting system created retro assignment.
1793: --We don't delete the retro entries associated with this retro assignment.
1794: if (nvl(p_delete_sys_retro_asg,'N') = 'Y') then
1795: hr_utility.set_location('Deleting system created retro assignments : '||l_proc, 60);
1796: delete_sys_retro_asg(p_retro_assignment_id => p_retro_assignment_id);
1797: hr_utility.set_location('Deleted system created retro assignments : '||l_proc, 70);
1798: else
1799: hr_utility.set_location(l_proc, 80);

Line 1797: hr_utility.set_location('Deleted system created retro assignments : '||l_proc, 70);

1793: --We don't delete the retro entries associated with this retro assignment.
1794: if (nvl(p_delete_sys_retro_asg,'N') = 'Y') then
1795: hr_utility.set_location('Deleting system created retro assignments : '||l_proc, 60);
1796: delete_sys_retro_asg(p_retro_assignment_id => p_retro_assignment_id);
1797: hr_utility.set_location('Deleted system created retro assignments : '||l_proc, 70);
1798: else
1799: hr_utility.set_location(l_proc, 80);
1800: --
1801: -- Delete child retro entries.

Line 1799: hr_utility.set_location(l_proc, 80);

1795: hr_utility.set_location('Deleting system created retro assignments : '||l_proc, 60);
1796: delete_sys_retro_asg(p_retro_assignment_id => p_retro_assignment_id);
1797: hr_utility.set_location('Deleted system created retro assignments : '||l_proc, 70);
1798: else
1799: hr_utility.set_location(l_proc, 80);
1800: --
1801: -- Delete child retro entries.
1802: --
1803: delete from pay_retro_entries pre

Line 1805: hr_utility.set_location(l_proc, 90);

1801: -- Delete child retro entries.
1802: --
1803: delete from pay_retro_entries pre
1804: where retro_assignment_id = p_retro_assignment_id;
1805: hr_utility.set_location(l_proc, 90);
1806: --
1807: -- Reverse the child retro assignment superseded by this retro assignment.
1808: --
1809: for l_rec in csr_superseding_retro_asg(p_retro_assignment_id

Line 1819: hr_utility.set_location(l_proc, 100);

1815: set superseding_retro_asg_id = null
1816: where retro_assignment_id = l_replaced_retro_asg_id;
1817:
1818: end loop;
1819: hr_utility.set_location(l_proc, 100);
1820: --
1821: -- Delete this retro assignment.
1822: --
1823: delete from pay_retro_assignments

Line 1825: hr_utility.set_location(l_proc, 110);

1821: -- Delete this retro assignment.
1822: --
1823: delete from pay_retro_assignments
1824: where retro_assignment_id = p_retro_assignment_id;
1825: hr_utility.set_location(l_proc, 110);
1826: --
1827: -- Set out variable.
1828: --
1829: p_replaced_retro_asg_id := l_replaced_retro_asg_id;

Line 1831: hr_utility.set_location(' Leaving:'||l_proc, 200);

1827: -- Set out variable.
1828: --
1829: p_replaced_retro_asg_id := l_replaced_retro_asg_id;
1830: end if;
1831: hr_utility.set_location(' Leaving:'||l_proc, 200);
1832: exception
1833: when others then
1834: --
1835: -- A validation or unexpected error has occured

Line 1838: hr_utility.set_location(' Leaving:'||l_proc, 1000);

1834: --
1835: -- A validation or unexpected error has occured
1836: --
1837: rollback to rts_delete_retro_asg;
1838: hr_utility.set_location(' Leaving:'||l_proc, 1000);
1839: raise;
1840: end delete_retro_asg;
1841: --
1842: -- ----------------------------------------------------------------------------

Line 1855: hr_utility.set_location('Entering:'|| l_proc, 10);

1851: l_replaced_retro_asg_id number;
1852: l_retro_assignment_id number;
1853: --
1854: begin
1855: hr_utility.set_location('Entering:'|| l_proc, 10);
1856: --
1857: -- Issue a savepoint
1858: --
1859: savepoint rts_delete_retro_asg_cascade;

Line 1879: hr_utility.set_location(' Leaving:'||l_proc, 80);

1875: );
1876: l_retro_assignment_id := l_replaced_retro_asg_id;
1877: end loop;
1878:
1879: hr_utility.set_location(' Leaving:'||l_proc, 80);
1880: exception
1881: when others then
1882: --
1883: -- A validation or unexpected error has occured

Line 1886: hr_utility.set_location(' Leaving:'||l_proc, 90);

1882: --
1883: -- A validation or unexpected error has occured
1884: --
1885: rollback to rts_delete_retro_asg_cascade;
1886: hr_utility.set_location(' Leaving:'||l_proc, 90);
1887: raise;
1888: end delete_retro_asg_cascade;
1889: --
1890: -- ----------------------------------------------------------------------------

Line 1910: hr_utility.set_location('Entering:'|| l_proc, 10);

1906: where retro_assignment_id = p_retro_assignment_id
1907: and element_entry_id = p_element_entry_id
1908: for update nowait;
1909: begin
1910: hr_utility.set_location('Entering:'|| l_proc, 10);
1911: --
1912: -- NOTE: do not check no data found.
1913: --
1914: open csr_lock_retro_ent;

Line 1918: hr_utility.set_location(l_proc, 20);

1914: open csr_lock_retro_ent;
1915: fetch csr_lock_retro_ent into l_old_rec;
1916: close csr_lock_retro_ent;
1917: --
1918: hr_utility.set_location(l_proc, 20);
1919:
1920: p_old_rec := l_old_rec;
1921:
1922: hr_utility.set_location(' Leaving:'||l_proc, 40);

Line 1922: hr_utility.set_location(' Leaving:'||l_proc, 40);

1918: hr_utility.set_location(l_proc, 20);
1919:
1920: p_old_rec := l_old_rec;
1921:
1922: hr_utility.set_location(' Leaving:'||l_proc, 40);
1923: Exception
1924: When HR_Api.Object_Locked then
1925: --
1926: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');

Line 1962: hr_utility.set_location('Entering:'|| l_proc, 10);

1958: l_reprocess_date date;
1959: l_system_reprocess_date date;
1960: --
1961: begin
1962: hr_utility.set_location('Entering:'|| l_proc, 10);
1963: --
1964: -- Issue a savepoint
1965: --
1966: savepoint rts_maintain_retro_entry;

Line 1986: hr_utility.set_location(l_proc, 20);

1982: --
1983: pay_core_utils.assert_condition
1984: (l_proc||':owner_type', p_owner_type in (g_user, g_system));
1985:
1986: hr_utility.set_location(l_proc, 20);
1987: --
1988: -- Lock the retro assignment.
1989: --
1990: lock_retro_asg

Line 2007: hr_utility.set_location(l_proc, 50);

2003: ,p_element_entry_id => p_element_entry_id
2004: ,p_old_rec => l_old_rec
2005: );
2006:
2007: hr_utility.set_location(l_proc, 50);
2008: --
2009: -- Insert and update validations
2010: --
2011: if l_old_rec.retro_assignment_id is null then

Line 2033: hr_utility.set_location(l_proc, 80);

2029: ,p_business_group_id => l_business_group_id
2030: ,p_payroll_id => l_payroll_id
2031: );
2032: --
2033: hr_utility.set_location(l_proc, 80);
2034: if p_owner_type = g_user then
2035: l_asg_owner_type := get_retro_asg_creator_type
2036: (p_retro_assignment_id => p_retro_assignment_id
2037: ,p_created_by => l_retro_asg_rec.created_by

Line 2053: hr_utility.set_location(l_proc, 100);

2049: ,p_old_owner_type => l_old_rec.owner_type
2050: ,p_owner_type => p_owner_type
2051: );
2052: end if;
2053: hr_utility.set_location(l_proc, 100);
2054: l_reprocess_date := nvl(p_reprocess_date, l_old_rec.reprocess_date);
2055:
2056: l_retro_component_id := p_retro_component_id;
2057: l_legislation_code := hr_api.return_legislation_code(l_business_group_id);

Line 2060: hr_utility.set_location(l_proc, 110);

2056: l_retro_component_id := p_retro_component_id;
2057: l_legislation_code := hr_api.return_legislation_code(l_business_group_id);
2058: --
2059: if p_retro_component_id is null then
2060: hr_utility.set_location(l_proc, 110);
2061: --
2062: -- We need derive the default value for retro component.
2063: --
2064: if (l_old_rec.retro_assignment_id is null) then

Line 2066: hr_utility.set_location(l_proc, 120);

2062: -- We need derive the default value for retro component.
2063: --
2064: if (l_old_rec.retro_assignment_id is null) then
2065: --
2066: hr_utility.set_location(l_proc, 120);
2067: l_retro_component_id :=
2068: get_default_retro_component_id
2069: (p_element_entry_id => p_element_entry_id
2070: ,p_reprocess_date => l_reprocess_date

Line 2075: hr_utility.set_location(l_proc, 130);

2071: ,p_element_type_id => l_element_type_id
2072: ,p_assignment_id => l_assignment_id
2073: );
2074: else
2075: hr_utility.set_location(l_proc, 130);
2076: --
2077: -- Inherit the previous value.
2078: --
2079: l_retro_component_id := l_old_rec.retro_component_id;

Line 2084: hr_utility.set_location(l_proc, 140);

2080:
2081: end if;
2082: end if;
2083: --
2084: hr_utility.set_location(l_proc, 140);
2085: --
2086: if (l_old_rec.retro_assignment_id is null)
2087: or (l_old_rec.retro_component_id <> l_retro_component_id) then
2088: --

Line 2089: hr_utility.set_location(l_proc, 150);

2085: --
2086: if (l_old_rec.retro_assignment_id is null)
2087: or (l_old_rec.retro_component_id <> l_retro_component_id) then
2088: --
2089: hr_utility.set_location(l_proc, 150);
2090: chk_retro_component_id
2091: (p_retro_component_id => l_retro_component_id
2092: ,p_business_group_id => l_business_group_id
2093: );

Line 2101: hr_utility.set_location(l_proc, 160);

2097: ,p_retro_component_id => l_retro_component_id
2098: );
2099: end if;
2100:
2101: hr_utility.set_location(l_proc, 160);
2102: --
2103: -- If system reprocess date is set to null, override the value with
2104: -- the previous value, for null is available for user type entries.
2105: -- Note that if the value is EOT, it will be handled in

Line 2128: hr_utility.set_location(l_proc, 180);

2124: --
2125: if p_owner_type = g_user then
2126: --
2127: if l_old_rec.reprocess_date <> p_reprocess_date then
2128: hr_utility.set_location(l_proc, 180);
2129: lock_retro_entry
2130: (p_retro_assignment_id => p_retro_assignment_id
2131: ,p_element_entry_id => p_element_entry_id
2132: ,p_old_rec => l_new_rec

Line 2137: hr_utility.set_location(l_proc, 190);

2133: );
2134: --
2135: if p_reprocess_date <> l_new_rec.reprocess_date then
2136: --
2137: hr_utility.set_location(l_proc, 190);
2138: --
2139: update pay_retro_entries
2140: set reprocess_date = p_reprocess_date
2141: ,effective_date = p_reprocess_date

Line 2149: hr_utility.set_location(l_proc, 200);

2145: --
2146: end if;
2147: end if;
2148: else
2149: hr_utility.set_location(l_proc, 200);
2150: adjust_retro_asg_date
2151: (p_retro_assignment_id => p_retro_assignment_id
2152: );
2153: end if;

Line 2155: hr_utility.set_location(' Leaving:'||l_proc, 250);

2151: (p_retro_assignment_id => p_retro_assignment_id
2152: );
2153: end if;
2154: --
2155: hr_utility.set_location(' Leaving:'||l_proc, 250);
2156: exception
2157: when others then
2158: --
2159: -- A validation or unexpected error has occured

Line 2162: hr_utility.set_location(' Leaving:'||l_proc, 260);

2158: --
2159: -- A validation or unexpected error has occured
2160: --
2161: rollback to rts_maintain_retro_entry;
2162: hr_utility.set_location(' Leaving:'||l_proc, 260);
2163: raise;
2164: end maintain_retro_entry;
2165: --
2166: -- ----------------------------------------------------------------------------

Line 2179: hr_utility.set_location('Entering:'|| l_proc, 10);

2175: l_proc varchar2(72) := g_package||'delete_retro_entry';
2176: l_old_rec t_retro_ent_rec;
2177: l_new_rec t_retro_ent_rec;
2178: begin
2179: hr_utility.set_location('Entering:'|| l_proc, 10);
2180: --
2181: -- Issue a savepoint
2182: --
2183: savepoint rts_delete_retro_entry;

Line 2203: hr_utility.set_location(l_proc, 20);

2199: --
2200: pay_core_utils.assert_condition
2201: (l_proc||':owner_type', p_owner_type in (g_user, g_system));
2202:
2203: hr_utility.set_location(l_proc, 20);
2204: --
2205: -- Lock the existing retro entry.
2206: --
2207: lock_retro_entry

Line 2214: hr_utility.set_location(l_proc, 30);

2210: ,p_old_rec => l_old_rec
2211: );
2212:
2213: if l_old_rec.retro_assignment_id is null then
2214: hr_utility.set_location(l_proc, 30);
2215: --
2216: fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
2217: fnd_message.raise_error;
2218: end if;

Line 2220: hr_utility.set_location(l_proc, 50);

2216: fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
2217: fnd_message.raise_error;
2218: end if;
2219:
2220: hr_utility.set_location(l_proc, 50);
2221: --
2222: -- Delete validation.
2223: --
2224: chk_retro_entry_deletable

Line 2230: hr_utility.set_location(l_proc, 60);

2226: ,p_old_owner_type => l_old_rec.owner_type
2227: ,p_owner_type => p_owner_type
2228: );
2229:
2230: hr_utility.set_location(l_proc, 60);
2231:
2232: delete from pay_retro_entries
2233: where retro_assignment_id = p_retro_assignment_id
2234: and element_entry_id = p_element_entry_id

Line 2237: hr_utility.set_location(' Leaving:'||l_proc, 80);

2233: where retro_assignment_id = p_retro_assignment_id
2234: and element_entry_id = p_element_entry_id
2235: ;
2236:
2237: hr_utility.set_location(' Leaving:'||l_proc, 80);
2238: exception
2239: when others then
2240: --
2241: -- A validation or unexpected error has occured

Line 2244: hr_utility.set_location(' Leaving:'||l_proc, 90);

2240: --
2241: -- A validation or unexpected error has occured
2242: --
2243: rollback to rts_delete_retro_entry;
2244: hr_utility.set_location(' Leaving:'||l_proc, 90);
2245: raise;
2246: end delete_retro_entry;
2247: --
2248: -- ----------------------------------------------------------------------------

Line 2271: hr_utility.set_location('Entering:'|| l_proc, 10);

2267:
2268: l_proc varchar2(72) := g_package||'update_reprocess_date';
2269: begin
2270:
2271: hr_utility.set_location('Entering:'|| l_proc, 10);
2272: --
2273: -- Issue a savepoint
2274: --
2275: savepoint rts_update_reprocess_date;

Line 2289: hr_utility.set_location('Getting the retro assignment '||l_proc, 15);

2285: --
2286: pay_core_utils.assert_condition
2287: (l_proc||':owner_type', p_owner_type in (g_user, g_system));
2288:
2289: hr_utility.set_location('Getting the retro assignment '||l_proc, 15);
2290: --
2291: -- Check to see if the previous version of retro assignment exists.
2292: --
2293: l_old_retro_asg_id := get_unprocessed_retro_asg(p_assignment_id);

Line 2300: hr_utility.set_location('No retro assignment found for this assignment : '||l_proc, 15);

2296: --
2297: --
2298: -- No unprocessed retro assignment is found.
2299: --
2300: hr_utility.set_location('No retro assignment found for this assignment : '||l_proc, 15);
2301: fnd_message.set_name('PAY','PAY_34312_RTS_NO_RTA_FOUND');
2302: fnd_message.raise_error;
2303: --
2304: else

Line 2306: hr_utility.set_location('Got retro assignment id and now locking : '||l_proc, 15);

2302: fnd_message.raise_error;
2303: --
2304: else
2305: --
2306: hr_utility.set_location('Got retro assignment id and now locking : '||l_proc, 15);
2307: --
2308: -- Lock and obtain the old record info.
2309: --
2310: lock_retro_asg

Line 2316: hr_utility.set_location('Calling chk_retro_asg_updatable : '||l_proc,20);

2312: ,p_old_rec => l_old_ra_rec
2313: );
2314: --
2315: -- Check to see if this retro assignment is updatable.
2316: hr_utility.set_location('Calling chk_retro_asg_updatable : '||l_proc,20);
2317: chk_retro_asg_updatable
2318: (p_retro_assignment_id => l_old_retro_asg_id
2319: ,p_retro_assignment_action_id => l_old_ra_rec.retro_assignment_action_id
2320: ,p_superseding_retro_asg_id => l_old_ra_rec.superseding_retro_asg_id

Line 2335: hr_utility.set_location('Validates that the employee assignment exists on the reprocess date : '||l_proc, 25);

2331: ,p_reprocess_date => p_reprocess_date);
2332: --
2333: -- Insert validation.
2334: --
2335: hr_utility.set_location('Validates that the employee assignment exists on the reprocess date : '||l_proc, 25);
2336: chk_assignment_id
2337: (p_assignment_id => p_assignment_id
2338: ,p_reprocess_date => p_reprocess_date
2339: ,p_business_group_id => l_business_group_id

Line 2344: hr_utility.set_location('Creating superseding retro assignment : '||l_proc, 30);

2340: ,p_payroll_id => l_payroll_id
2341: );
2342:
2343:
2344: hr_utility.set_location('Creating superseding retro assignment : '||l_proc, 30);
2345: --
2346: -- Create superseding retro assignment.
2347: --
2348: pay_retro_utils_pkg.create_super_retro_asg

Line 2355: hr_utility.set_location('Leaving .... '||l_proc, 40);

2351: ,p_reprocess_date => p_reprocess_date
2352: ,p_retro_asg_id => l_retro_assignment_id
2353: );
2354: p_retro_asg_id := l_retro_assignment_id;
2355: hr_utility.set_location('Leaving .... '||l_proc, 40);
2356: --
2357: end if;
2358:
2359: exception

Line 2365: hr_utility.set_location(' Leaving:'||l_proc, 90);

2361: --
2362: -- A validation or unexpected error has occured
2363: --
2364: rollback to rts_update_reprocess_date;
2365: hr_utility.set_location(' Leaving:'||l_proc, 90);
2366: raise;
2367:
2368: end;
2369: end pay_retro_status_internal;