[Home] [Help]
45: l_cer_object_version_number pqh_copy_entity_attribs.object_version_number%TYPE; */
46:
47: begin
48: --
49: hr_utility.set_location('Entering:'|| l_proc, 10);
50: --
51: -- Issue a savepoint if operating in validation only mode
52: --
53: pqh_cet_bus.chk_completed_target_err ( p_copy_entity_txn_id );
53: pqh_cet_bus.chk_completed_target_err ( p_copy_entity_txn_id );
54: --
55: savepoint delete_PLAN_DESIGN_TXN;
56: --
57: hr_utility.set_location(l_proc, 20);
58: --
59: -- Process Logic
60: --
61: l_object_version_number := p_cet_object_version_number;
113: ,p_copy_entity_txn_id => p_copy_entity_txn_id
114: ,p_object_version_number => l_object_version_number
115: ,p_effective_date => p_effective_date
116: );
117: hr_utility.set_location(l_proc, 40);
118: --
119: */
120: --
121: hr_utility.set_location(l_proc, 30);
117: hr_utility.set_location(l_proc, 40);
118: --
119: */
120: --
121: hr_utility.set_location(l_proc, 30);
122: --
123: -- When in validation only mode raise the Validate_Enabled exception
124: --
125: if p_validate = 1 then
125: if p_validate = 1 then
126: raise hr_API.validate_enabled;
127: end if;
128: --
129: hr_utility.set_location(' Leaving:'||l_proc, 40);
130: --
131: exception
132: --
133: when hr_API.validate_enabled then
222: l_datestamp varchar2(30) := to_char(sysdate,'DD-MON-YYYY HH:MI:SS') ;
223: --
224:
225: begin
226: hr_utility.set_location('Entering:'||l_proc, 5);
227: --
228: /* For seeded FHR copy process, set context_business_group_id to 0 */
229: if p_DISPLAY_NAME = 'GHR_FEHB_SEED_PROGRAM_DESIGN'
230: or p_DISPLAY_NAME = 'GHR_TSP_SEED_PROGRAM_DESIGN'
235: l_business_group_id := fnd_global.PER_BUSINESS_GROUP_ID ;
236: end if;
237: --
238: open c2 ;
239: hr_utility.set_location(' Step 30 ',30);
240: fetch c2 into l_transaction_category_id ;
241: if c2%notfound then
242: -- Throw error
243: close c2 ;
248: close c2;
249: --
250: open c1(l_business_group_id , l_transaction_category_id) ;
251: --
252: hr_utility.set_location(' Step 10 ',10);
253: fetch c1 into l_old_copy_entity_txn_id,l_ovn ;
254: --
255: if c1%found then
256: -- close c1 ;
297: --Bug : 4354708:
298: --
299: -- Insert a record
300: Begin
301: hr_utility.set_location('Entering C2 :'||l_proc, 5);
302: --
303: /*
304: open c2 ;
305: hr_utility.set_location(' Step 30 ',30);
301: hr_utility.set_location('Entering C2 :'||l_proc, 5);
302: --
303: /*
304: open c2 ;
305: hr_utility.set_location(' Step 30 ',30);
306: fetch c2 into l_transaction_category_id ;
307: if c2%notfound then
308: -- Throw error
309: close c2 ;
313: */
314: --
315: /*
316: open c3 ;
317: hr_utility.set_location(' Step 40 ',40);
318: fetch c3 into l_business_group_id ;
319: close c3;
320: */
321: --
320: */
321: --
322: select pqh_copy_entity_txns_s.nextval into l_copy_entity_txn_id
323: from dual ;
324: hr_utility.set_location(' Step 50 ',50);
325: --
326: -- Insert the row into: pqh_copy_entity_txns
327: --
328: insert into pqh_copy_entity_txns
383: );
384: --
385: end if;
386: --
387: hr_utility.set_location(' Leaving:'||l_proc, 10);
388: Exception
389: When hr_api.check_integrity_violated Then
390: -- A check constraint has been violated
391: pqh_cet_shd.constraint_error
504: end if;
505: --
506: if g_perf_transaction_category_id is null then
507: open c2 ;
508: hr_utility.set_location(' Step 30 ',30);
509: fetch c2 into l_transaction_category_id ;
510: g_perf_transaction_category_id := l_transaction_category_id;
511: if c2%notfound then
512: -- Throw error
571: from dual ;
572: --
573: -- Insert the row into: pqh_copy_entity_attribs
574: --
575: hr_utility.set_location('Entering:'||l_proc, 5);
576: insert into pqh_copy_entity_attribs
577: ( copy_entity_attrib_id,
578: copy_entity_txn_id,
579: row_type_cd,
657: l_created_by,
658: l_creation_date --Bug : 4354708
659: );
660: --
661: hr_utility.set_location(' Leaving:'||l_proc, 10);
662: Exception
663: When hr_api.check_integrity_violated Then
664: -- A check constraint has been violated
665: pqh_cea_shd.constraint_error
957: end if;
958: --
959: if g_perf_transaction_category_id is null then
960: open c2 ;
961: hr_utility.set_location(' Step 30 ',30);
962: fetch c2 into l_transaction_category_id ;
963: g_perf_transaction_category_id := l_transaction_category_id;
964: if c2%notfound then
965: -- Throw error
1454: l_created_by,
1455: l_creation_date --Bug : 4354708
1456: );
1457: --
1458: hr_utility.set_location(' Leaving:'||l_proc, 10);
1459: Exception
1460: When hr_api.check_integrity_violated Then
1461: -- A check constraint has been violated
1462: pqh_cer_shd.constraint_error
2022: then
2023:
2024: if g_perf_transaction_category_id is null then
2025: open c2 ;
2026: hr_utility.set_location(' Step 30 ',30);
2027: fetch c2 into l_transaction_category_id ;
2028: g_perf_transaction_category_id := l_transaction_category_id;
2029: if c2%notfound then
2030: -- Throw error
2839: ,l_creation_date --Bug : 4354708
2840: );
2841:
2842: --
2843: hr_utility.set_location(' Leaving:'||l_proc, 10);
2844: Exception
2845: When hr_api.check_integrity_violated Then
2846: -- A check constraint has been violated
2847: pqh_cer_shd.constraint_error