[Home] [Help]
52: WHERE business_group_id = l_business_group_id;
53: --
54: BEGIN
55: --
56: hr_utility.set_location('Entering:'|| l_proc, 10);
57: hr_api.mandatory_arg_error(p_api_name => l_proc,
58: p_argument => 'location_id',
59: p_argument_value => p_location_id);
60: IF nvl(g_location_id, hr_api.g_number) = p_location_id THEN
63: -- call to this function. Just return the value in the global
64: -- variable.
65: --
66: l_legislation_code := g_legislation_code;
67: hr_utility.set_location(l_proc, 20);
68: ELSE
69: --
70: -- The ID is different to the last call to this function
71: -- or this is the first call to this function.
102: fnd_message.raise_error;
103: ELSE
104: CLOSE csr_leg_code;
105: END IF;
106: hr_utility.set_location(l_proc, 30);
107: --
108: --
109: END IF;
110: --
114: g_legislation_code := l_legislation_code;
115: --
116: END IF;
117: --
118: hr_utility.set_location(' Leaving:'|| l_proc, 40);
119: RETURN l_legislation_code;
120: END return_legislation_code;
121: --
122: -- ----------------------------------------------------------------------------
188: OR nvl(business_group_id, p_business_group_id)
189: = p_business_group_id );
190: --
191: BEGIN
192: hr_utility.set_location('Entering:'|| l_proc, 10);
193:
194: --
195: -- Check that the ship to location ID is linked to a
196: -- valid location on HR_LOCATIONS_ALL
194: --
195: -- Check that the ship to location ID is linked to a
196: -- valid location on HR_LOCATIONS_ALL
197: --
198: hr_utility.set_location(l_proc, 20);
199: --
200: --
201: -- Only check validity of ship_to_location if inserting or data has changed
202: --
209: -- If p_ship_to_location_id IS null, it defaults to location_id
210: -- once this is known (i.e. in pre_insert() )
211: --
212: --
213: hr_utility.set_location(l_proc, 25);
214: --
215: IF p_ship_to_site_flag = 'Y' THEN
216: --
217: -- Can't be a ship-to-site if p_ship_to_location_id points to another
216: --
217: -- Can't be a ship-to-site if p_ship_to_location_id points to another
218: -- location, which it must do if it is not NULL.
219: --
220: hr_utility.set_message(800, 'PER_52537_LOC_INV_SHPTO_FLG');
221: hr_utility.raise_error;
222: ELSE
223: --
224: -- Fetch data from database
217: -- Can't be a ship-to-site if p_ship_to_location_id points to another
218: -- location, which it must do if it is not NULL.
219: --
220: hr_utility.set_message(800, 'PER_52537_LOC_INV_SHPTO_FLG');
221: hr_utility.raise_error;
222: ELSE
223: --
224: -- Fetch data from database
225: --
227: FETCH csr_valid_ship_to_loc INTO l_exists;
228: --
229: IF csr_valid_ship_to_loc%notfound THEN
230: CLOSE csr_valid_ship_to_loc;
231: hr_utility.set_message(800, 'PER_52501_INV_SHIP_TO_LOC');
232: hr_utility.raise_error;
233: ELSE
234: CLOSE csr_valid_ship_to_loc;
235: END IF;
228: --
229: IF csr_valid_ship_to_loc%notfound THEN
230: CLOSE csr_valid_ship_to_loc;
231: hr_utility.set_message(800, 'PER_52501_INV_SHIP_TO_LOC');
232: hr_utility.raise_error;
233: ELSE
234: CLOSE csr_valid_ship_to_loc;
235: END IF;
236: END IF;
242: -- Can't be a ship-to-site if p_ship_to_location_id points to another
243: -- location, which it must do if it is not NULL.
244: -- Must be a ship-to-site if p_ship_to_location_id is NULL
245: --
246: hr_utility.set_message(800, 'PER_52386_INVALID_SHIP_TO_LOC');
247: hr_utility.raise_error;
248: END IF;
249: END IF;
250: --
243: -- location, which it must do if it is not NULL.
244: -- Must be a ship-to-site if p_ship_to_location_id is NULL
245: --
246: hr_utility.set_message(800, 'PER_52386_INVALID_SHIP_TO_LOC');
247: hr_utility.raise_error;
248: END IF;
249: END IF;
250: --
251:
262: --
263: -- ship_to_location_id defaults to location_id if NULL. See business rules.
264: --
265: --
266: hr_utility.set_location(l_proc, 30);
267: --
268: p_ship_to_location_id := nvl (p_ship_to_location_id, p_location_id);
269: ---
270: IF p_ship_to_location_id = p_location_id THEN
272: -- Do not get data from database if we are referencing current location_id
273: --
274: IF (p_ship_to_site_flag = 'N') OR (nvl(p_inactive_date, hr_api.g_eot) <
275: p_effective_date) THEN
276: hr_utility.set_message(800, 'PER_52537_LOC_INV_SHPTO_FLG');
277: hr_utility.raise_error;
278: END IF;
279: ELSE
280: --
273: --
274: IF (p_ship_to_site_flag = 'N') OR (nvl(p_inactive_date, hr_api.g_eot) <
275: p_effective_date) THEN
276: hr_utility.set_message(800, 'PER_52537_LOC_INV_SHPTO_FLG');
277: hr_utility.raise_error;
278: END IF;
279: ELSE
280: --
281: IF (p_ship_to_site_flag = 'Y') THEN
278: END IF;
279: ELSE
280: --
281: IF (p_ship_to_site_flag = 'Y') THEN
282: hr_utility.set_message(800, 'PER_52537_LOC_INV_SHPTO_FLG');
283: hr_utility.raise_error;
284: END IF;
285: --
286: -- Fetch data from database
279: ELSE
280: --
281: IF (p_ship_to_site_flag = 'Y') THEN
282: hr_utility.set_message(800, 'PER_52537_LOC_INV_SHPTO_FLG');
283: hr_utility.raise_error;
284: END IF;
285: --
286: -- Fetch data from database
287: --
289: FETCH csr_valid_ship_to_loc INTO l_exists;
290: --
291: IF csr_valid_ship_to_loc%notfound THEN
292: CLOSE csr_valid_ship_to_loc;
293: hr_utility.set_message(800, 'PER_52501_INV_SHIP_TO_LOC');
294: hr_utility.raise_error;
295: ELSE
296: CLOSE csr_valid_ship_to_loc;
297: END IF;
290: --
291: IF csr_valid_ship_to_loc%notfound THEN
292: CLOSE csr_valid_ship_to_loc;
293: hr_utility.set_message(800, 'PER_52501_INV_SHIP_TO_LOC');
294: hr_utility.raise_error;
295: ELSE
296: CLOSE csr_valid_ship_to_loc;
297: END IF;
298: END IF;
298: END IF;
299: END IF;
300: END IF;
301: --
302: hr_utility.set_location('Leaving:'|| l_proc, 80);
303: END chk_ship_to_loc_id_and_flag;
304: --
305: --
306: -- ----------------------------------------------------------------------------
345: BEGIN
346: --
347: -- Test validity of receiving-site flag.
348: --
349: hr_utility.set_location('Entering:'|| l_proc, 10);
350: --
351: IF p_ship_to_site_flag = 'Y' AND p_receiving_site_flag <> 'Y' THEN
352: hr_utility.set_message(800, 'PER_52538_LOC_INV_REC_FLAG');
353: hr_utility.raise_error;
348: --
349: hr_utility.set_location('Entering:'|| l_proc, 10);
350: --
351: IF p_ship_to_site_flag = 'Y' AND p_receiving_site_flag <> 'Y' THEN
352: hr_utility.set_message(800, 'PER_52538_LOC_INV_REC_FLAG');
353: hr_utility.raise_error;
354: END IF;
355: --
356: hr_utility.set_location('Leaving:'|| l_proc, 20);
349: hr_utility.set_location('Entering:'|| l_proc, 10);
350: --
351: IF p_ship_to_site_flag = 'Y' AND p_receiving_site_flag <> 'Y' THEN
352: hr_utility.set_message(800, 'PER_52538_LOC_INV_REC_FLAG');
353: hr_utility.raise_error;
354: END IF;
355: --
356: hr_utility.set_location('Leaving:'|| l_proc, 20);
357: END chk_receiving_site_flag;
352: hr_utility.set_message(800, 'PER_52538_LOC_INV_REC_FLAG');
353: hr_utility.raise_error;
354: END IF;
355: --
356: hr_utility.set_location('Leaving:'|| l_proc, 20);
357: END chk_receiving_site_flag;
358: --
359: -- ---------------------------------------------------------------------------
360: -- |----------------------< chk_designated_receiver_id >---------------------|
410: OR p_business_group_id = business_group_id +0);
411:
412: --
413: BEGIN
414: hr_utility.set_location('Entering:'|| l_proc, 10);
415: IF p_designated_receiver_id IS NOT NULL THEN
416: --
417: -- Only perform validation when DESIGNATED_RECEIVER_ID is not null
418: --
423: --
424: -- Check that the Person ID is linked to a
425: -- valid person on PER_PEOPLE_F
426: --
427: hr_utility.set_location(l_proc, 20);
428: OPEN csr_valid_pers;
429: FETCH csr_valid_pers INTO l_exists;
430: IF csr_valid_pers%notfound THEN
431: CLOSE csr_valid_pers;
428: OPEN csr_valid_pers;
429: FETCH csr_valid_pers INTO l_exists;
430: IF csr_valid_pers%notfound THEN
431: CLOSE csr_valid_pers;
432: hr_utility.set_message(800, 'PER_52502_INV_DES_REC_LOC');
433: hr_utility.raise_error;
434: ELSE
435: CLOSE csr_valid_pers;
436: END IF;
429: FETCH csr_valid_pers INTO l_exists;
430: IF csr_valid_pers%notfound THEN
431: CLOSE csr_valid_pers;
432: hr_utility.set_message(800, 'PER_52502_INV_DES_REC_LOC');
433: hr_utility.raise_error;
434: ELSE
435: CLOSE csr_valid_pers;
436: END IF;
437: --
438: END IF;
439: --
440: END IF;
441: --
442: hr_utility.set_location('Leaving:'|| l_proc, 30);
443: --
444:
445: END chk_designated_receiver_id;
446: --
484: --
485: l_proc VARCHAR2(72) := g_package||'chk_inactive_date';
486: --
487: BEGIN
488: hr_utility.set_location('Entering:'|| l_proc, 10);
489: --
490: -- If set, inactive_date must be greater or equal to session date.
491: --
492: IF nvl (p_inactive_date, hr_api.g_eot) < p_effective_date THEN
489: --
490: -- If set, inactive_date must be greater or equal to session date.
491: --
492: IF nvl (p_inactive_date, hr_api.g_eot) < p_effective_date THEN
493: hr_utility.set_message(800, 'HR_7301_INVALID_INACTIVE_DATE');
494: hr_utility.raise_error;
495: END IF;
496: --
497: hr_utility.set_location('Leaving:'||l_proc, 30);
490: -- If set, inactive_date must be greater or equal to session date.
491: --
492: IF nvl (p_inactive_date, hr_api.g_eot) < p_effective_date THEN
493: hr_utility.set_message(800, 'HR_7301_INVALID_INACTIVE_DATE');
494: hr_utility.raise_error;
495: END IF;
496: --
497: hr_utility.set_location('Leaving:'||l_proc, 30);
498: --
493: hr_utility.set_message(800, 'HR_7301_INVALID_INACTIVE_DATE');
494: hr_utility.raise_error;
495: END IF;
496: --
497: hr_utility.set_location('Leaving:'||l_proc, 30);
498: --
499: END chk_inactive_date;
500: --
501: -- ----------------------------------------------------------------------------
548: res BINARY_INTEGER;
549: --
550: BEGIN
551: --
552: hr_utility.set_location('Entering: id '|| l_proc, 10);
553: --
554: -- Only continue if INVENTORY_ORGANIZTION_ID is not null
555: -- and we are updating with new data, or inserting.
556: --
554: -- Only continue if INVENTORY_ORGANIZTION_ID is not null
555: -- and we are updating with new data, or inserting.
556: --
557: IF p_inventory_organization_id IS NOT NULL THEN
558: hr_utility.set_location('Inventory Org id '|| p_inventory_organization_id, 15);
559: IF ( p_inventory_organization_id <> nvl (hr_loc_shd.g_old_rec.inventory_organization_id, hr_api.g_number) ) OR
560: ( p_location_id IS NULL) THEN
561: hr_utility.set_location('If Condition satisfied, checking inventory org ', 20);
562: --
557: IF p_inventory_organization_id IS NOT NULL THEN
558: hr_utility.set_location('Inventory Org id '|| p_inventory_organization_id, 15);
559: IF ( p_inventory_organization_id <> nvl (hr_loc_shd.g_old_rec.inventory_organization_id, hr_api.g_number) ) OR
560: ( p_location_id IS NULL) THEN
561: hr_utility.set_location('If Condition satisfied, checking inventory org ', 20);
562: --
563: DECLARE
564: INV_VIEW_DOES_NOT_EXIST EXCEPTION;
565: PRAGMA EXCEPTION_INIT(INV_VIEW_DOES_NOT_EXIST, -00942);
565: PRAGMA EXCEPTION_INIT(INV_VIEW_DOES_NOT_EXIST, -00942);
566: BEGIN
567: cur := DBMS_SQL.Open_Cursor;
568: --
569: hr_utility.set_location(l_proc||': Before parse', 30);
570: --
571: DBMS_SQL.Parse (cur,
572: ' SELECT NULL
573: FROM INV_ORGANIZATION_NAME_V
572: ' SELECT NULL
573: FROM INV_ORGANIZATION_NAME_V
574: WHERE organization_id = :pOrgId', DBMS_SQL.Native );
575: DBMS_SQL.Bind_Variable (cur, 'pOrgId',p_inventory_organization_id );
576: hr_utility.set_location(l_proc||': Before Execute', 40);
577: res := DBMS_SQL.Execute(cur);
578:
579: -- Make sure we have a valid inventory organization
580: hr_utility.set_location(l_proc||': Before Fetch', 50);
576: hr_utility.set_location(l_proc||': Before Execute', 40);
577: res := DBMS_SQL.Execute(cur);
578:
579: -- Make sure we have a valid inventory organization
580: hr_utility.set_location(l_proc||': Before Fetch', 50);
581: If (DBMS_SQL.FETCH_ROWS (cur) = 0) then
582: hr_utility.set_location(l_proc||': Rasing Error', 60);
583: hr_utility.set_message(800, 'PER_52503_INV_INVENT_ORG_ID');
584: hr_utility.raise_error;
578:
579: -- Make sure we have a valid inventory organization
580: hr_utility.set_location(l_proc||': Before Fetch', 50);
581: If (DBMS_SQL.FETCH_ROWS (cur) = 0) then
582: hr_utility.set_location(l_proc||': Rasing Error', 60);
583: hr_utility.set_message(800, 'PER_52503_INV_INVENT_ORG_ID');
584: hr_utility.raise_error;
585: End if;
586:
579: -- Make sure we have a valid inventory organization
580: hr_utility.set_location(l_proc||': Before Fetch', 50);
581: If (DBMS_SQL.FETCH_ROWS (cur) = 0) then
582: hr_utility.set_location(l_proc||': Rasing Error', 60);
583: hr_utility.set_message(800, 'PER_52503_INV_INVENT_ORG_ID');
584: hr_utility.raise_error;
585: End if;
586:
587: hr_utility.set_location(l_proc||': Before close cursor', 70);
580: hr_utility.set_location(l_proc||': Before Fetch', 50);
581: If (DBMS_SQL.FETCH_ROWS (cur) = 0) then
582: hr_utility.set_location(l_proc||': Rasing Error', 60);
583: hr_utility.set_message(800, 'PER_52503_INV_INVENT_ORG_ID');
584: hr_utility.raise_error;
585: End if;
586:
587: hr_utility.set_location(l_proc||': Before close cursor', 70);
588: DBMS_SQL.Close_Cursor (cur);
583: hr_utility.set_message(800, 'PER_52503_INV_INVENT_ORG_ID');
584: hr_utility.raise_error;
585: End if;
586:
587: hr_utility.set_location(l_proc||': Before close cursor', 70);
588: DBMS_SQL.Close_Cursor (cur);
589: EXCEPTION
590: When INV_VIEW_DOES_NOT_EXIST Then
591: hr_utility.set_location(l_proc||': View INV_ORGANIZATION_NAME_V not found', 99);
587: hr_utility.set_location(l_proc||': Before close cursor', 70);
588: DBMS_SQL.Close_Cursor (cur);
589: EXCEPTION
590: When INV_VIEW_DOES_NOT_EXIST Then
591: hr_utility.set_location(l_proc||': View INV_ORGANIZATION_NAME_V not found', 99);
592: if DBMS_SQL.Is_Open(cur) then
593: DBMS_SQL.Close_Cursor(cur);
594: end if;
595:
593: DBMS_SQL.Close_Cursor(cur);
594: end if;
595:
596: When Others then
597: hr_utility.set_location(l_proc||': Other Error found'||sqlerrm, 99);
598: if DBMS_SQL.Is_Open(cur) then
599: DBMS_SQL.Close_Cursor(cur);
600: end if;
601: raise;
603:
604: END IF;
605: END IF;
606: --
607: hr_utility.set_location('Leaving:'||l_proc, 40);
608: --
609: END chk_inventory_organization_id;
610:
611: -- ----------------------------------------------------------------------------
668: -- End of the bug#11705804 fix
669: --
670: BEGIN
671: --
672: hr_utility.set_location('Entering:'|| l_proc, 10);
673: --
674: -- Only continue if tax_name is not null:
675: --
676: IF ( p_tax_name IS NOT NULL ) THEN
685: THEN
686: OPEN csr_valid_tax_name;
687: FETCH csr_valid_tax_name INTO l_exists;
688: --
689: hr_utility.set_location(l_proc, 20);
690: --
691: IF csr_valid_tax_name%notfound THEN
692: CLOSE csr_valid_tax_name;
693: hr_utility.set_message(800, 'PER_52504_INV_TAX_NAME');
689: hr_utility.set_location(l_proc, 20);
690: --
691: IF csr_valid_tax_name%notfound THEN
692: CLOSE csr_valid_tax_name;
693: hr_utility.set_message(800, 'PER_52504_INV_TAX_NAME');
694: hr_utility.raise_error;
695: END IF;
696: --
697: CLOSE csr_valid_tax_name;
690: --
691: IF csr_valid_tax_name%notfound THEN
692: CLOSE csr_valid_tax_name;
693: hr_utility.set_message(800, 'PER_52504_INV_TAX_NAME');
694: hr_utility.raise_error;
695: END IF;
696: --
697: CLOSE csr_valid_tax_name;
698: END IF;
698: END IF;
699: --
700: END IF;
701: --
702: hr_utility.set_location('Leaving:'||l_proc, 30);
703: --
704: END chk_tax_name;
705: --
706: --
755: AND vl.descriptive_flex_context_code = p_style;
756: --
757: --
758: BEGIN
759: hr_utility.set_location('Entering:'|| l_proc, 10);
760: --
761: -- Only continue if STYLE is not null
762: --
763: IF ( p_style IS NOT NULL ) THEN
771: --
772: OPEN csr_valid_style;
773: FETCH csr_valid_style INTO l_exists;
774: --
775: hr_utility.set_location(l_proc, 20);
776: --
777: IF csr_valid_style%notfound THEN
778: CLOSE csr_valid_style;
779: hr_utility.set_message(800, 'PER_52505_INV_ADDRESS_STYLE');
775: hr_utility.set_location(l_proc, 20);
776: --
777: IF csr_valid_style%notfound THEN
778: CLOSE csr_valid_style;
779: hr_utility.set_message(800, 'PER_52505_INV_ADDRESS_STYLE');
780: hr_utility.raise_error;
781: END IF;
782: CLOSE csr_valid_style;
783: END IF;
776: --
777: IF csr_valid_style%notfound THEN
778: CLOSE csr_valid_style;
779: hr_utility.set_message(800, 'PER_52505_INV_ADDRESS_STYLE');
780: hr_utility.raise_error;
781: END IF;
782: CLOSE csr_valid_style;
783: END IF;
784: END IF;
782: CLOSE csr_valid_style;
783: END IF;
784: END IF;
785: --
786: hr_utility.set_location(' Leaving:'|| l_proc, 30);
787: END chk_style;
788: --
789: --
790: -- ---------------------------------------------------------------------------
831: AND vl.enabled_flag = 'Y';
832: --
833: --
834: BEGIN
835: hr_utility.set_location('Entering:'|| l_proc, 10);
836: --
837: -- Only continue if TIMEZONE_CODE is not null
838: --
839: IF ( p_timezone_code IS NOT NULL ) THEN
847: --
848: OPEN csr_valid_timezone;
849: FETCH csr_valid_timezone INTO l_exists;
850: --
851: hr_utility.set_location(l_proc, 20);
852: --
853: IF csr_valid_timezone%notfound THEN
854: CLOSE csr_valid_timezone;
855: hr_utility.set_message(800, 'PER_51983_INV_TZ_CODE');
851: hr_utility.set_location(l_proc, 20);
852: --
853: IF csr_valid_timezone%notfound THEN
854: CLOSE csr_valid_timezone;
855: hr_utility.set_message(800, 'PER_51983_INV_TZ_CODE');
856: hr_utility.raise_error;
857: END IF;
858: CLOSE csr_valid_timezone;
859: END IF;
852: --
853: IF csr_valid_timezone%notfound THEN
854: CLOSE csr_valid_timezone;
855: hr_utility.set_message(800, 'PER_51983_INV_TZ_CODE');
856: hr_utility.raise_error;
857: END IF;
858: CLOSE csr_valid_timezone;
859: END IF;
860: END IF;
858: CLOSE csr_valid_timezone;
859: END IF;
860: END IF;
861: --
862: hr_utility.set_location(' Leaving:'|| l_proc, 30);
863: END chk_timezone;
864: --
865: --
866: --------------------------------------------------------------------------------
971: --- Fix For Bug 7644045 Ends ---
972:
973: --
974: BEGIN
975: hr_utility.set_location('Entering:'|| l_proc, 10);
976: -- get the proposal details first.
977: --
978: OPEN csr_per_all_assignments_f;
979: FETCH csr_per_all_assignments_f INTO l_exists;
978: OPEN csr_per_all_assignments_f;
979: FETCH csr_per_all_assignments_f INTO l_exists;
980: IF csr_per_all_assignments_f%found THEN
981: CLOSE csr_per_all_assignments_f;
982: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
983: hr_utility.raise_error;
984: END IF;
985: CLOSE csr_per_all_assignments_f;
986: --
979: FETCH csr_per_all_assignments_f INTO l_exists;
980: IF csr_per_all_assignments_f%found THEN
981: CLOSE csr_per_all_assignments_f;
982: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
983: hr_utility.raise_error;
984: END IF;
985: CLOSE csr_per_all_assignments_f;
986: --
987: --
984: END IF;
985: CLOSE csr_per_all_assignments_f;
986: --
987: --
988: hr_utility.set_location(l_proc, 15);
989: OPEN csr_pay_wc_funds;
990: FETCH csr_pay_wc_funds INTO l_exists;
991: IF csr_pay_wc_funds%found THEN
992: CLOSE csr_pay_wc_funds ;
989: OPEN csr_pay_wc_funds;
990: FETCH csr_pay_wc_funds INTO l_exists;
991: IF csr_pay_wc_funds%found THEN
992: CLOSE csr_pay_wc_funds ;
993: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
994: hr_utility.raise_error;
995: END IF;
996: CLOSE csr_pay_wc_funds ;
997: --
990: FETCH csr_pay_wc_funds INTO l_exists;
991: IF csr_pay_wc_funds%found THEN
992: CLOSE csr_pay_wc_funds ;
993: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
994: hr_utility.raise_error;
995: END IF;
996: CLOSE csr_pay_wc_funds ;
997: --
998: --
995: END IF;
996: CLOSE csr_pay_wc_funds ;
997: --
998: --
999: hr_utility.set_location(l_proc, 20);
1000: OPEN csr_per_events;
1001: FETCH csr_per_events INTO l_exists;
1002: IF csr_per_events%found THEN
1003: CLOSE csr_per_events;
1000: OPEN csr_per_events;
1001: FETCH csr_per_events INTO l_exists;
1002: IF csr_per_events%found THEN
1003: CLOSE csr_per_events;
1004: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1005: hr_utility.raise_error;
1006: END IF;
1007: CLOSE csr_per_events;
1008: --
1001: FETCH csr_per_events INTO l_exists;
1002: IF csr_per_events%found THEN
1003: CLOSE csr_per_events;
1004: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1005: hr_utility.raise_error;
1006: END IF;
1007: CLOSE csr_per_events;
1008: --
1009: --
1006: END IF;
1007: CLOSE csr_per_events;
1008: --
1009: --
1010: hr_utility.set_location(l_proc, 25);
1011: OPEN csr_per_all_vacancies;
1012: FETCH csr_per_all_vacancies INTO l_exists;
1013: IF csr_per_all_vacancies%found THEN
1014: CLOSE csr_per_all_vacancies;
1011: OPEN csr_per_all_vacancies;
1012: FETCH csr_per_all_vacancies INTO l_exists;
1013: IF csr_per_all_vacancies%found THEN
1014: CLOSE csr_per_all_vacancies;
1015: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1016: hr_utility.raise_error;
1017: END IF;
1018: CLOSE csr_per_all_vacancies;
1019: --
1012: FETCH csr_per_all_vacancies INTO l_exists;
1013: IF csr_per_all_vacancies%found THEN
1014: CLOSE csr_per_all_vacancies;
1015: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1016: hr_utility.raise_error;
1017: END IF;
1018: CLOSE csr_per_all_vacancies;
1019: --
1020: --
1017: END IF;
1018: CLOSE csr_per_all_vacancies;
1019: --
1020: --
1021: hr_utility.set_location(l_proc, 30);
1022: OPEN csr_hr_all_organization_units;
1023: FETCH csr_hr_all_organization_units INTO l_exists;
1024: IF csr_hr_all_organization_units%found THEN
1025: CLOSE csr_hr_all_organization_units;
1022: OPEN csr_hr_all_organization_units;
1023: FETCH csr_hr_all_organization_units INTO l_exists;
1024: IF csr_hr_all_organization_units%found THEN
1025: CLOSE csr_hr_all_organization_units;
1026: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1027: hr_utility.raise_error;
1028: END IF;
1029: CLOSE csr_hr_all_organization_units;
1030: --
1023: FETCH csr_hr_all_organization_units INTO l_exists;
1024: IF csr_hr_all_organization_units%found THEN
1025: CLOSE csr_hr_all_organization_units;
1026: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1027: hr_utility.raise_error;
1028: END IF;
1029: CLOSE csr_hr_all_organization_units;
1030: --
1031: -- Added by SCNair on 30-SEP-99 (position date tracked table)
1029: CLOSE csr_hr_all_organization_units;
1030: --
1031: -- Added by SCNair on 30-SEP-99 (position date tracked table)
1032: --
1033: hr_utility.set_location(l_proc, 35);
1034: OPEN csr_hr_all_positions_f;
1035: FETCH csr_hr_all_positions_f INTO l_exists;
1036: IF csr_hr_all_positions_f%found THEN
1037: CLOSE csr_hr_all_positions_f;
1034: OPEN csr_hr_all_positions_f;
1035: FETCH csr_hr_all_positions_f INTO l_exists;
1036: IF csr_hr_all_positions_f%found THEN
1037: CLOSE csr_hr_all_positions_f;
1038: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1039: hr_utility.raise_error;
1040: END IF;
1041: CLOSE csr_hr_all_positions_f;
1042: --
1035: FETCH csr_hr_all_positions_f INTO l_exists;
1036: IF csr_hr_all_positions_f%found THEN
1037: CLOSE csr_hr_all_positions_f;
1038: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1039: hr_utility.raise_error;
1040: END IF;
1041: CLOSE csr_hr_all_positions_f;
1042: --
1043: --
1040: END IF;
1041: CLOSE csr_hr_all_positions_f;
1042: --
1043: --
1044: hr_utility.set_location(l_proc, 40);
1045: OPEN csr_pay_element_links_f;
1046: FETCH csr_pay_element_links_f INTO l_exists;
1047: IF csr_pay_element_links_f%found THEN
1048: CLOSE csr_pay_element_links_f;
1045: OPEN csr_pay_element_links_f;
1046: FETCH csr_pay_element_links_f INTO l_exists;
1047: IF csr_pay_element_links_f%found THEN
1048: CLOSE csr_pay_element_links_f;
1049: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1050: hr_utility.raise_error;
1051: END IF;
1052: CLOSE csr_pay_element_links_f;
1053: --
1046: FETCH csr_pay_element_links_f INTO l_exists;
1047: IF csr_pay_element_links_f%found THEN
1048: CLOSE csr_pay_element_links_f;
1049: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1050: hr_utility.raise_error;
1051: END IF;
1052: CLOSE csr_pay_element_links_f;
1053: --
1054: --
1051: END IF;
1052: CLOSE csr_pay_element_links_f;
1053: --
1054: --
1055: hr_utility.set_location(l_proc, 45);
1056: OPEN csr_per_salary_survey_mappings;
1057: FETCH csr_per_salary_survey_mappings INTO l_exists;
1058: IF csr_per_salary_survey_mappings%found THEN
1059: CLOSE csr_per_salary_survey_mappings;
1056: OPEN csr_per_salary_survey_mappings;
1057: FETCH csr_per_salary_survey_mappings INTO l_exists;
1058: IF csr_per_salary_survey_mappings%found THEN
1059: CLOSE csr_per_salary_survey_mappings;
1060: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1061: hr_utility.raise_error;
1062: END IF;
1063: CLOSE csr_per_salary_survey_mappings;
1064: --
1057: FETCH csr_per_salary_survey_mappings INTO l_exists;
1058: IF csr_per_salary_survey_mappings%found THEN
1059: CLOSE csr_per_salary_survey_mappings;
1060: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1061: hr_utility.raise_error;
1062: END IF;
1063: CLOSE csr_per_salary_survey_mappings;
1064: --
1065: --
1062: END IF;
1063: CLOSE csr_per_salary_survey_mappings;
1064: --
1065: --
1066: hr_utility.set_location(l_proc, 50);
1067: OPEN csr_hr_location_extra_info;
1068: FETCH csr_hr_location_extra_info INTO l_exists;
1069: IF csr_hr_location_extra_info%found THEN
1070: CLOSE csr_hr_location_extra_info;
1067: OPEN csr_hr_location_extra_info;
1068: FETCH csr_hr_location_extra_info INTO l_exists;
1069: IF csr_hr_location_extra_info%found THEN
1070: CLOSE csr_hr_location_extra_info;
1071: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1072: hr_utility.raise_error;
1073: END IF;
1074: CLOSE csr_hr_location_extra_info;
1075: --
1068: FETCH csr_hr_location_extra_info INTO l_exists;
1069: IF csr_hr_location_extra_info%found THEN
1070: CLOSE csr_hr_location_extra_info;
1071: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1072: hr_utility.raise_error;
1073: END IF;
1074: CLOSE csr_hr_location_extra_info;
1075: --
1076: --
1073: END IF;
1074: CLOSE csr_hr_location_extra_info;
1075: --
1076: --
1077: hr_utility.set_location(l_proc, 55);
1078: OPEN csr_per_us_inval_locations;
1079: FETCH csr_per_us_inval_locations INTO l_exists;
1080: IF csr_per_us_inval_locations%found THEN
1081: CLOSE csr_per_us_inval_locations;
1078: OPEN csr_per_us_inval_locations;
1079: FETCH csr_per_us_inval_locations INTO l_exists;
1080: IF csr_per_us_inval_locations%found THEN
1081: CLOSE csr_per_us_inval_locations;
1082: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1083: hr_utility.raise_error;
1084: END IF;
1085: CLOSE csr_per_us_inval_locations;
1086: --
1079: FETCH csr_per_us_inval_locations INTO l_exists;
1080: IF csr_per_us_inval_locations%found THEN
1081: CLOSE csr_per_us_inval_locations;
1082: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1083: hr_utility.raise_error;
1084: END IF;
1085: CLOSE csr_per_us_inval_locations;
1086: --
1087: --- Fix For Bug 7644045 Starts ---
1087: --- Fix For Bug 7644045 Starts ---
1088: OPEN csr_legal_location_flag ;
1089: FETCH csr_legal_location_flag INTO l_exists;
1090: IF csr_legal_location_flag%found THEN
1091: hr_utility.set_location(l_proc, 60);
1092: CLOSE csr_legal_location_flag;
1093: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1094: hr_utility.raise_error;
1095: END IF;
1089: FETCH csr_legal_location_flag INTO l_exists;
1090: IF csr_legal_location_flag%found THEN
1091: hr_utility.set_location(l_proc, 60);
1092: CLOSE csr_legal_location_flag;
1093: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1094: hr_utility.raise_error;
1095: END IF;
1096: CLOSE csr_legal_location_flag;
1097: --- Fix For Bug 7644045 Ends ---
1090: IF csr_legal_location_flag%found THEN
1091: hr_utility.set_location(l_proc, 60);
1092: CLOSE csr_legal_location_flag;
1093: hr_utility.set_message(800, 'PER_52506_CHK_DEL_LOCATION');
1094: hr_utility.raise_error;
1095: END IF;
1096: CLOSE csr_legal_location_flag;
1097: --- Fix For Bug 7644045 Ends ---
1098:
1104: po_locations_s.po_predel_validation ( p_location_id => p_location_id);
1105: oe_location.oe_predel_validation ( p_location_id => p_location_id);
1106: qa_location.qa_predel_validation ( p_location_id => p_location_id);
1107: --
1108: hr_utility.set_location('Leaving: ' ||l_proc, 80);
1109: END chk_del_location;
1110: --
1111: --
1112: -- ----------------------------------------------------------------------------
1147: l_error EXCEPTION;
1148: l_argument VARCHAR2(30);
1149: --
1150: BEGIN
1151: hr_utility.set_location('Entering:'||l_proc, 5);
1152: --
1153: -- Only proceed with validation if a row exists for
1154: -- the current record in the HR Schema
1155: --
1156: IF NOT hr_loc_shd.api_updating
1157: (p_location_id => p_rec.location_id,
1158: p_object_version_number => p_rec.object_version_number)
1159: THEN
1160: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
1161: hr_utility.set_message_token('PROCEDURE ', l_proc);
1162: hr_utility.set_message_token('STEP ', '5');
1163: END IF;
1164: --
1157: (p_location_id => p_rec.location_id,
1158: p_object_version_number => p_rec.object_version_number)
1159: THEN
1160: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
1161: hr_utility.set_message_token('PROCEDURE ', l_proc);
1162: hr_utility.set_message_token('STEP ', '5');
1163: END IF;
1164: --
1165: hr_utility.set_location(l_proc, 10);
1158: p_object_version_number => p_rec.object_version_number)
1159: THEN
1160: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
1161: hr_utility.set_message_token('PROCEDURE ', l_proc);
1162: hr_utility.set_message_token('STEP ', '5');
1163: END IF;
1164: --
1165: hr_utility.set_location(l_proc, 10);
1166: --
1161: hr_utility.set_message_token('PROCEDURE ', l_proc);
1162: hr_utility.set_message_token('STEP ', '5');
1163: END IF;
1164: --
1165: hr_utility.set_location(l_proc, 10);
1166: --
1167: IF nvl(p_rec.business_group_id, hr_api.g_number) <>
1168: nvl (hr_loc_shd.g_old_rec.business_group_id, hr_api.g_number) THEN
1169: l_argument := 'business_group_id';
1176: (p_api_name => l_proc
1177: ,p_argument => l_argument);
1178: WHEN OTHERS THEN
1179: RAISE;
1180: hr_utility.set_location(' Leaving:'||l_proc, 12);
1181: END chk_non_updateable_args;
1182: --
1183: -- ---------------------------------------------------------------------------
1184: -- |-----------------------------< chk_df >--------------------------------|
1213: --
1214: l_proc VARCHAR2(72) := g_package||'chk_df';
1215: --
1216: BEGIN
1217: hr_utility.set_location('Entering:'||l_proc, 10);
1218: hr_utility.set_location('Style is: '||p_rec.style || ', Address 1 is: ' || p_rec.address_line_1, 10);
1219: --
1220: -- Address location - regular DF
1221: -- =============================
1214: l_proc VARCHAR2(72) := g_package||'chk_df';
1215: --
1216: BEGIN
1217: hr_utility.set_location('Entering:'||l_proc, 10);
1218: hr_utility.set_location('Style is: '||p_rec.style || ', Address 1 is: ' || p_rec.address_line_1, 10);
1219: --
1220: -- Address location - regular DF
1221: -- =============================
1222: --
1315: ,p_attribute20_value => p_rec.loc_information20
1316: );
1317: END IF;
1318: --
1319: hr_utility.set_location(l_proc, 20);
1320: --
1321: -- HR_LOCATIONS - flexible address DDF
1322: -- ===================================
1323: --
1417: ,p_attribute20_value => p_rec.attribute20
1418: );
1419: END IF;
1420: --
1421: hr_utility.set_location(l_proc, 30);
1422: --
1423: -- JG_HR_LOCATIONS - global localizations DDF
1424: -- ==========================================
1425: --
1520: );
1521: END IF;
1522: --
1523: --
1524: hr_utility.set_location(' Leaving:'||l_proc, 40);
1525: END chk_df;
1526: --
1527: -- ----------------------------------------------------------------------------
1528: -- |---------------------------< insert_validate >----------------------------|
1536: l_proc VARCHAR2(72) := g_package||'insert_validate';
1537: l_constraint_name VARCHAR2(30);
1538: --
1539: BEGIN
1540: hr_utility.set_location('Entering:'||l_proc, 5);
1541: --
1542: -- Call all supporting business operations. Mapping to the
1543: -- appropriate Business Rules in hrloc.bru is provided (where
1544: -- relevant)
1554: hr_api.validate_bus_grp_id(p_rec.business_group_id);
1555: END IF;
1556: --
1557: --
1558: hr_utility.set_location(l_proc, 10);
1559: --
1560: -- Validate inactive_date
1561: -- ======================
1562: chk_inactive_date
1565: p_location_id => p_rec.location_id
1566: );
1567: --
1568: --
1569: hr_utility.set_location(l_proc, 15);
1570: --
1571: -- Validate ship_to_loc_id_and_flags
1572: -- =================================
1573: --
1578: p_inactive_date => p_rec.inactive_date,
1579: p_business_group_id => p_rec.business_group_id,
1580: p_effective_date => p_effective_date );
1581: --
1582: hr_utility.set_location(l_proc, 35);
1583: --
1584: -- Validate receiving_site_flag
1585: -- ===============================
1586: chk_receiving_site_flag
1587: ( p_ship_to_site_flag => p_rec.ship_to_site_flag,
1588: p_receiving_site_flag => p_rec.receiving_site_flag
1589: );
1590: --
1591: hr_utility.set_location(l_proc, 40);
1592: --
1593: -- Validate designated_receiver_id
1594: -- ===============================
1595: chk_designated_receiver_id
1597: p_location_id => p_rec.location_id,
1598: p_business_group_id => p_rec.business_group_id,
1599: p_effective_date => p_effective_date
1600: );
1601: hr_utility.set_location(l_proc, 45);
1602: --
1603: -- Validate inventory_organization_id
1604: -- ==================================
1605: chk_inventory_organization_id
1608: p_location_id => p_rec.location_id,
1609: p_operating_unit_id => p_operating_unit_id
1610: );
1611: --
1612: hr_utility.set_location(l_proc, 50);
1613: --
1614: -- Validate tax_name
1615: -- =================
1616: --
1621: );
1622: --
1623: --
1624:
1625: hr_utility.set_location(l_proc, 58);
1626: --
1627: -- Validate style
1628: -- ==============
1629: chk_style
1631: p_location_id => p_rec.location_id
1632: );
1633: --
1634: --
1635: hr_utility.set_location(l_proc, 59);
1636: --
1637: -- Validate timezone_code
1638: -- ======================
1639: chk_timezone
1640: (p_timezone_code => p_rec.timezone_code
1641: );
1642: --
1643: --
1644: hr_utility.set_location(l_proc, 60);
1645: --
1646: -- Validate flexfields
1647: -- ===================
1648: chk_df(p_rec => p_rec);
1647: -- ===================
1648: chk_df(p_rec => p_rec);
1649: --
1650: --
1651: hr_utility.set_location(' Leaving:'||l_proc, 65);
1652: --
1653: END insert_validate;
1654: --
1655: -- ----------------------------------------------------------------------------
1664: l_proc VARCHAR2(72) := g_package||'update_validate';
1665: l_constraint_name VARCHAR2(30);
1666: --
1667: BEGIN
1668: hr_utility.set_location('Entering:'||l_proc, 5);
1669: --
1670: -- Call all supporting business operations. Mapping to the
1671: -- appropriate Business Rules in hrloc.bru is provided.
1672: --
1678: -- be updated have not changed
1679: --
1680: chk_non_updateable_args(p_rec => p_rec);
1681: --
1682: hr_utility.set_location(l_proc, 15);
1683: --
1684: -- Validate inactive_date
1685: -- ======================
1686: chk_inactive_date
1688: p_effective_date => p_effective_date,
1689: p_location_id => p_rec.location_id
1690: );
1691: --
1692: hr_utility.set_location(l_proc, 20);
1693: --
1694: -- Validate ship_to_loc_id_and_flag
1695: -- ======================================
1696: chk_ship_to_loc_id_and_flag (
1700: p_inactive_date => p_rec.inactive_date,
1701: p_business_group_id => p_rec.business_group_id,
1702: p_effective_date => p_effective_date );
1703: --
1704: hr_utility.set_location(l_proc, 25);
1705: --
1706: -- Validate receiving_site_flag
1707: -- ===============================
1708: chk_receiving_site_flag
1709: ( p_ship_to_site_flag => p_rec.ship_to_site_flag,
1710: p_receiving_site_flag => p_rec.receiving_site_flag
1711: );
1712: --
1713: hr_utility.set_location(l_proc, 35);
1714: --
1715: -- Validate designated_receiver_id
1716: -- ===============================
1717: chk_designated_receiver_id
1720: p_business_group_id => p_rec.business_group_id,
1721: p_effective_date => p_effective_date
1722: );
1723: --
1724: hr_utility.set_location(l_proc, 45);
1725: --
1726: -- Validate inventory_organization_id
1727: -- ==================================
1728: chk_inventory_organization_id
1731: p_location_id => p_rec.location_id,
1732: p_operating_unit_id => p_operating_unit_id
1733: );
1734: --
1735: hr_utility.set_location(l_proc, 50);
1736:
1737: --
1738: -- Validate tax_name
1739: -- =================
1745: );
1746: --
1747: --
1748:
1749: hr_utility.set_location(l_proc, 58);
1750: --
1751: -- Validate style
1752: -- ==============
1753: chk_style
1755: p_location_id => p_rec.location_id
1756: );
1757: --
1758: --
1759: hr_utility.set_location(l_proc, 59);
1760: --
1761: --
1762: -- Validate timezone_code
1763: -- ======================
1764: chk_timezone
1765: (p_timezone_code => p_rec.timezone_code
1766: );
1767: --
1768: hr_utility.set_location(l_proc, 60);
1769: --
1770: -- Validate flexfields
1771: -- ===================
1772: chk_df(p_rec => p_rec);
1771: -- ===================
1772: chk_df(p_rec => p_rec);
1773: --
1774: --
1775: hr_utility.set_location(' Leaving:'||l_proc, 65);
1776: --
1777: END update_validate;
1778:
1779: --
1787: --
1788: l_proc VARCHAR2(72) := g_package||'delete_validate';
1789: --
1790: BEGIN
1791: hr_utility.set_location('Entering:'||l_proc, 5);
1792: --
1793: -- Call all supporting business operations
1794: --
1795: -- Validate delete
1800: --
1801: chk_del_location
1802: (p_location_id => p_rec.location_id);
1803: --
1804: hr_utility.set_location(' Leaving:'||l_proc, 10);
1805: END delete_validate;
1806: --
1807: --
1808: END hr_loc_bus;