[Home] [Help]
144: l_dummy_ovn number;
145: --
146: begin
147: --
148: hr_utility.set_location('Entering:'|| l_proc, 10);
149: --
150: -- Check for PLIP level eligibility
151: --
152: if p_pgm_id is not null
259: g_pepinsplip.p_program_update_date := p_program_update_date;
260: g_pepinsplip.p_effective_date := p_effective_date;
261: g_pepinsplip.p_override_validation := p_override_validation;
262: --
263: hr_utility.set_location('Leaving - Defer'||l_proc,11);
264: return;
265: -- Check for deferred PLIP transactions
266: --
267: elsif p_pgm_id is not null
548: ben_pep_shd.g_api_dml := true; -- Set the api dml status
549: --
550: -- Insert the row into: ben_elig_per_f
551: --
552: hr_utility.set_location('Insert: '||l_proc, 5);
553: insert into ben_elig_per_f
554: (
555: elig_per_id,
556: effective_start_date,
761: l_last_update_date,
762: l_last_updated_by,
763: l_last_update_login
764: ) RETURNING elig_per_id into l_elig_per_id;
765: hr_utility.set_location('Dn Insert: '||l_proc, 5);
766: --
767: ben_pep_shd.g_api_dml := false; -- Unset the api dml status
768: --
769: -- When in validation only mode raise the Validate_Enabled exception
778: p_effective_start_date := l_effective_start_date;
779: p_effective_end_date := l_effective_end_date;
780: p_object_version_number := l_object_version_number;
781: --
782: hr_utility.set_location(' Leaving:'||l_proc, 70);
783: --
784: exception
785: --
786: when hr_api.validate_enabled then
797: p_elig_per_id := null;
798: p_effective_start_date := null;
799: p_effective_end_date := null;
800: p_object_version_number := null;
801: hr_utility.set_location(' Leaving:'||l_proc, 80);
802: --
803: when others then
804: --
805: -- A validation or unexpected error has occured
821: l_proc varchar2(72) := g_package||'convert_defs';
822: --
823: Begin
824: --
825: hr_utility.set_location('Entering:'||l_proc, 5);
826: --
827: -- We must now examine each argument value in the
828: -- p_rec plsql record structure
829: -- to see if a system default is being used. If a system default
1218: p_rec.program_update_date :=
1219: ben_pep_shd.g_old_rec.program_update_date;
1220: End If;
1221: --
1222: hr_utility.set_location(' Leaving:'||l_proc, 10);
1223: --
1224: End convert_defs;
1225: --
1226: -- ----------------------------------------------------------------------------
1378: then
1379: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
1380: fnd_message.raise_error;
1381: End If;
1382: hr_utility.set_location(l_proc, 15);
1383: --
1384: -- Validate the datetrack mode mode getting the validation start
1385: -- and end dates for the specified datetrack operation.
1386: --
1410: --
1411: p_validation_start_date := l_validation_start_date;
1412: p_validation_end_date := l_validation_end_date;
1413: --
1414: hr_utility.set_location(' Leaving:'||l_proc, 30);
1415: --
1416: Exception
1417: When HR_Api.Object_Locked then
1418: --
1732: l_dummy_ovn number;
1733: --
1734: begin
1735: --
1736: hr_utility.set_location('Entering:'|| l_proc, 10);
1737: --
1738: -- Issue a savepoint if operating in validation only mode
1739: --
1740: savepoint update_perf_Eligible_Person;
1738: -- Issue a savepoint if operating in validation only mode
1739: --
1740: savepoint update_perf_Eligible_Person;
1741: --
1742: hr_utility.set_location(l_proc, 20);
1743: --
1744: --bug#3974928 - to take care of wrong setup of track ineligible flag at plan
1745: --level and not at plip level
1746: if g_pepinsplip.p_pgm_id is not null
2121: If (p_object_version_number <> ben_pep_shd.g_old_rec.object_version_number) Then
2122: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
2123: fnd_message.raise_error;
2124: End If;
2125: hr_utility.set_location(l_proc, 15);
2126: --
2127: -- Validate the datetrack mode mode getting the validation start
2128: -- and end dates for the specified datetrack operation.
2129: --
2148: fnd_message.raise_error;
2149: --
2150: End If;
2151: --
2152: hr_utility.set_location(' Leaving:'||l_proc, 30);
2153: convert_defs(l_rec);
2154: --
2155: if ben_manage_life_events.g_modified_mode in ('S','U','D') then --ICM
2156: --compare values to decide whether to update or not
2237: end if;
2238: -- Call the supporting pre-update operation
2239:
2240: If (p_datetrack_mode <> 'CORRECTION') then
2241: hr_utility.set_location(l_proc, 10);
2242: --
2243: open c_getovn
2244: (c_pep_id => p_elig_per_id
2245: );
2260: --
2261: ben_pep_shd.g_api_dml := false; -- Unset the api dml status
2262: --
2263: If (p_datetrack_mode = 'UPDATE_OVERRIDE') then
2264: hr_utility.set_location(l_proc, 15);
2265: --
2266: -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
2267: -- delete any future rows
2268: --
2266: -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
2267: -- delete any future rows
2268: --
2269: If (p_datetrack_mode = 'DELETE_NEXT_CHANGE') then
2270: hr_utility.set_location(l_proc, 10);
2271: ben_pep_shd.g_api_dml := true; -- Set the api dml status
2272: --
2273: -- Delete the where the effective start date is equal
2274: -- to the validation end date.
2278: and effective_start_date = l_validation_start_date;
2279: --
2280: ben_pep_shd.g_api_dml := false; -- Unset the api dml status
2281: Else
2282: hr_utility.set_location(l_proc, 15);
2283: ben_pep_shd.g_api_dml := true; -- Set the api dml status
2284: --
2285: -- Delete the row(s) where the effective start date is greater than
2286: -- or equal to the validation start date.
2292: ben_pep_shd.g_api_dml := false; -- Unset the api dml status
2293: End If;
2294: --
2295: End If;
2296: hr_utility.set_location(l_proc, 20);
2297: --
2298: -- We must now insert the updated row (insert_dml)
2299: --
2300: -- Get the object version number for the insert
2304: );
2305: fetch c_getovn into l_rec.object_version_number;
2306: close c_getovn;
2307: --
2308: hr_utility.set_location('Dn DTAPI_GOVN:'||l_proc, 5);
2309: --
2310: -- Set the effective start and end dates to the corresponding
2311: -- validation start and end dates
2312: --
2316: -- If the datetrack_mode is not INSERT then we must populate the WHO
2317: -- columns with the 'old' creation values and 'new' updated values.
2318: --
2319: If (p_datetrack_mode <> 'INSERT') then
2320: hr_utility.set_location(l_proc, 10);
2321: --
2322: -- Select the 'old' created values
2323: --
2324: Open C_Sel1;
2346: ben_pep_shd.g_api_dml := true; -- Set the api dml status
2347: --
2348: -- Insert the row into: ben_elig_per_f
2349: --
2350: hr_utility.set_location('Ins PEP:'||l_proc, 5);
2351: insert into ben_elig_per_f
2352: (
2353: elig_per_id,
2354: effective_start_date,
2572: --
2573: -- update_dml
2574: --
2575: If (p_datetrack_mode = 'CORRECTION') then
2576: hr_utility.set_location(l_proc, 10);
2577: --
2578: -- Because we are updating a row we must get the next object
2579: -- version number.
2580: --
2821: -- End of API User Hook for the after hook of update_Eligible_Person
2822: --
2823: end;
2824: --
2825: hr_utility.set_location(l_proc, 60);
2826: --
2827: -- When in validation only mode raise the Validate_Enabled exception
2828: --
2829: if p_validate then
2835: p_object_version_number := l_rec.object_version_number;
2836: p_effective_start_date := l_rec.effective_start_date;
2837: p_effective_end_date := l_rec.effective_end_date;
2838: --
2839: hr_utility.set_location(' Leaving:'||l_proc, 70);
2840: --
2841: exception
2842: --
2843: when hr_api.validate_enabled then
2850: -- Only set output warning arguments
2851: -- (Any key or derived arguments must be set to null
2852: -- when validation only mode is being used.)
2853: --
2854: hr_utility.set_location(' Leaving:'||l_proc, 80);
2855: --
2856: when others then
2857: --
2858: -- A validation or unexpected error has occured
2985: l_minmax_rec ben_batch_dt_api.gtyp_dtsum_row;
2986: --
2987: begin
2988: --
2989: hr_utility.set_location('Entering:'|| l_proc, 10);
2990: --
2991: -- Issue a savepoint if operating in validation only mode
2992: --
2993: savepoint create_perf_Elig_Person_Option;
3033: Close C_Sel1;
3034: --
3035: -- Insert the row into: ben_elig_per_f
3036: --
3037: hr_utility.set_location('Insert: '||l_proc, 5);
3038: hr_utility.set_location('Ins EPO:'||l_proc, 5);
3039: insert into ben_elig_per_opt_f
3040: ( elig_per_opt_id,
3041: elig_per_id,
3034: --
3035: -- Insert the row into: ben_elig_per_f
3036: --
3037: hr_utility.set_location('Insert: '||l_proc, 5);
3038: hr_utility.set_location('Ins EPO:'||l_proc, 5);
3039: insert into ben_elig_per_opt_f
3040: ( elig_per_opt_id,
3041: elig_per_id,
3042: effective_start_date,
3227: l_last_update_date,
3228: l_last_updated_by,
3229: l_last_update_login
3230: );
3231: hr_utility.set_location('Dn Insert: '||l_proc, 5);
3232: --
3233: ben_epo_shd.g_api_dml := false; -- Unset the api dml status
3234: --
3235: -- When in validation only mode raise the Validate_Enabled exception
3244: p_effective_start_date := l_effective_start_date;
3245: p_effective_end_date := l_effective_end_date;
3246: p_object_version_number := l_object_version_number;
3247: --
3248: hr_utility.set_location(' Leaving:'||l_proc, 70);
3249: --
3250: exception
3251: --
3252: when hr_api.validate_enabled then
3263: p_elig_per_opt_id := null;
3264: p_effective_start_date := null;
3265: p_effective_end_date := null;
3266: p_object_version_number := null;
3267: hr_utility.set_location(' Leaving:'||l_proc, 80);
3268: --
3269: when others then
3270: --
3271: -- A validation or unexpected error has occured
3275: p_elig_per_opt_id := null;
3276: p_effective_start_date := null;
3277: p_effective_end_date := null;
3278: p_object_version_number := null;
3279: hr_utility.set_location(' Leaving:'||l_proc, 80);
3280: --
3281: raise;
3282: --
3283: end create_perf_Elig_Person_Option;
3403: and p_effective_date
3404: between effective_start_date and effective_end_date;
3405: --
3406: Begin
3407: hr_utility.set_location('Entering:'||l_proc, 5);
3408: --
3409: -- Ensure that all the mandatory arguments are not null
3410: --
3411: hr_api.mandatory_arg_error(p_api_name => l_proc,
3444: If (p_object_version_number <> ben_epo_shd.g_old_rec.object_version_number) Then
3445: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
3446: fnd_message.raise_error;
3447: End If;
3448: hr_utility.set_location(l_proc, 15);
3449: --
3450: --
3451: -- Validate the datetrack mode mode getting the validation start
3452: -- and end dates for the specified datetrack operation.
3485: --
3486: p_validation_start_date := l_validation_start_date;
3487: p_validation_end_date := l_validation_end_date;
3488: --
3489: hr_utility.set_location(' Leaving:'||l_proc, 30);
3490: --
3491: -- We need to trap the ORA LOCK exception
3492: --
3493: Exception
3519: l_proc varchar2(72) := g_package||'epo_convert_defs';
3520: --
3521: Begin
3522: --
3523: hr_utility.set_location('Entering:'||l_proc, 5);
3524: --
3525: -- We must now examine each argument value in the
3526: -- p_rec plsql record structure
3527: -- to see if a system default is being used. If a system default
3870: ben_epo_shd.g_old_rec.program_update_date;
3871: End If;
3872:
3873: --
3874: hr_utility.set_location(' Leaving:'||l_proc, 10);
3875: --
3876: End epo_convert_defs;
3877: -- ----------------------------------------------------------------------------
3878: -- |----------------------------< dt_pre_update >-----------------------------|
3890: l_proc varchar2(72) := g_package||'dt_pre_update';
3891: l_dummy_version_number number;
3892: --
3893: Begin
3894: hr_utility.set_location('Entering:'||l_proc, 5);
3895: If (p_datetrack_mode <> 'CORRECTION') then
3896: hr_utility.set_location(l_proc, 10);
3897: --
3898: -- Update the current effective end date
3892: --
3893: Begin
3894: hr_utility.set_location('Entering:'||l_proc, 5);
3895: If (p_datetrack_mode <> 'CORRECTION') then
3896: hr_utility.set_location(l_proc, 10);
3897: --
3898: -- Update the current effective end date
3899: --
3900: ben_epo_shd.upd_effective_end_date
3905: p_validation_end_date => p_validation_end_date,
3906: p_object_version_number => l_dummy_version_number);
3907: --
3908: If (p_datetrack_mode = 'UPDATE_OVERRIDE') then
3909: hr_utility.set_location(l_proc, 15);
3910: --
3911: -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
3912: -- delete any future rows
3913: --
3917: p_datetrack_mode => p_datetrack_mode,
3918: p_validation_start_date => p_validation_start_date,
3919: p_validation_end_date => p_validation_end_date);
3920: End If;
3921: hr_utility.set_location(l_proc, 20);
3922: --
3923: -- We must now insert the updated row
3924: --
3925: ben_epo_ins.insert_dml
3928: p_datetrack_mode => p_datetrack_mode,
3929: p_validation_start_date => p_validation_start_date,
3930: p_validation_end_date => p_validation_end_date);
3931: End If;
3932: hr_utility.set_location(' Leaving:'||l_proc, 20);
3933: End dt_pre_update;
3934: --
3935: -- ----------------------------------------------------------------------------
3936: -- |------------------------------< pre_update >------------------------------|
3946: --
3947: l_proc varchar2(72) := g_package||'pre_update';
3948: --
3949: Begin
3950: hr_utility.set_location('Entering:'||l_proc, 5);
3951: --
3952: --
3953: --
3954: dt_pre_update
3957: p_datetrack_mode => p_datetrack_mode,
3958: p_validation_start_date => p_validation_start_date,
3959: p_validation_end_date => p_validation_end_date);
3960: --
3961: hr_utility.set_location(' Leaving:'||l_proc, 10);
3962: End pre_update;
3963: -- ----------------------------------------------------------------------------
3964: -- |----------------------------< dt_update_dml >-----------------------------|
3965: -- ----------------------------------------------------------------------------
3975: --
3976: l_proc varchar2(72) := g_package||'dt_update_dml';
3977: --
3978: Begin
3979: hr_utility.set_location('Entering:'||l_proc, 5);
3980: --
3981: If (p_datetrack_mode = 'CORRECTION') then
3982: hr_utility.set_location(l_proc, 10);
3983: --
3978: Begin
3979: hr_utility.set_location('Entering:'||l_proc, 5);
3980: --
3981: If (p_datetrack_mode = 'CORRECTION') then
3982: hr_utility.set_location(l_proc, 10);
3983: --
3984: -- Because we are updating a row we must get the next object
3985: -- version number.
3986: --
4094: p_rec.effective_start_date := p_validation_start_date;
4095: p_rec.effective_end_date := p_validation_end_date;
4096: End If;
4097: --
4098: hr_utility.set_location(' Leaving:'||l_proc, 15);
4099: Exception
4100: When hr_api.check_integrity_violated Then
4101: -- A check constraint has been violated
4102: ben_epo_shd.g_api_dml := false; -- Unset the api dml status
4127: --
4128: l_proc varchar2(72) := g_package||'update_dml';
4129: --
4130: Begin
4131: hr_utility.set_location('Entering:'||l_proc, 5);
4132: --
4133: dt_update_dml(p_rec => p_rec,
4134: p_effective_date => p_effective_date,
4135: p_datetrack_mode => p_datetrack_mode,
4135: p_datetrack_mode => p_datetrack_mode,
4136: p_validation_start_date => p_validation_start_date,
4137: p_validation_end_date => p_validation_end_date);
4138: --
4139: hr_utility.set_location(' Leaving:'||l_proc, 10);
4140: End update_dml;
4141: --
4142: -- ----------------------------------------------------------------------------
4143: -- |---------------------------------< upd >----------------------------------|
4153: l_validation_start_date date;
4154: l_validation_end_date date;
4155: --
4156: Begin
4157: hr_utility.set_location('Entering:'||l_proc, 5);
4158: --
4159: -- We must lock the row which we need to update.
4160: --
4161: lck
4362: l_rec ben_epo_shd.g_rec_type;
4363: l_proc varchar2(72) := g_package||'upd';
4364: --
4365: Begin
4366: hr_utility.set_location('Entering:'||l_proc, 5);
4367: --
4368: -- Call conversion function to turn arguments into the
4369: -- l_rec structure.
4370: --
4471: p_effective_start_date := l_rec.effective_start_date;
4472: p_effective_end_date := l_rec.effective_end_date;
4473: --
4474: --
4475: hr_utility.set_location(' Leaving:'||l_proc, 10);
4476: End upd;
4477: --
4478: procedure update_perf_Elig_Person_Option
4479: (p_validate in boolean default false
4578: l_effective_end_date ben_elig_per_opt_f.effective_end_date%TYPE;
4579: --
4580: begin
4581: --
4582: hr_utility.set_location('Entering:'|| l_proc, 10);
4583: --
4584: -- Issue a savepoint if operating in validation only mode
4585: --
4586: savepoint update_perf_Elig_Person_Option;
4908: p_object_version_number := l_object_version_number;
4909: p_effective_start_date := l_effective_start_date;
4910: p_effective_end_date := l_effective_end_date;
4911: --
4912: hr_utility.set_location(' Leaving:'||l_proc, 70);
4913: --
4914: exception
4915: --
4916: when hr_api.validate_enabled then
4923: -- Only set output warning arguments
4924: -- (Any key or derived arguments must be set to null
4925: -- when validation only mode is being used.)
4926: --
4927: hr_utility.set_location(' Leaving:'||l_proc, 80);
4928: --
4929: when others then
4930: --
4931: -- A validation or unexpected error has occured