[Home] [Help]
24: -- Package Private Variables
25: --
26: g_access_known_rec g_access_known_r;
27: g_assignments_tbl g_assignments_t;
28: g_debug BOOLEAN := hr_utility.debug_enabled;
29: g_session_context NUMBER;
30:
31: --
32: -- Proprietory debugging. Allows for concurrent request output, etc.
46: --
47: l_proc varchar2(72) := g_package||'populate_new_payroll';
48: --
49: begin
50: hr_utility.set_location('Entering:'|| l_proc, 10);
51: --
52: -- Insert new payroll into all payroll lists for all profiles which
53: -- Restrict access to payrolls.
54: --
65: from pay_payroll_list ppl
66: where ppl.security_profile_id = psp.security_profile_id
67: and ppl.payroll_id = p_payroll_id);
68:
69: hr_utility.set_location('Leaving:'|| l_proc, 30);
70: end;
71: --
72: -- ----------------------------------------------------------------------------
73: -- |-------------------------< populate_new_contact>--------------------------|
85: l_upd_date date := trunc(sysdate);
86: --
87: begin
88: --
89: hr_utility.set_location('Entering:'|| l_proc, 10);
90: --
91: -- Insert new contact into all person lists for all profiles which:
92: -- a) Restrict access to contacts
93: -- b) No restriction for contacts but candidates are restricted.
111: from per_person_list ppl
112: where ppl.security_profile_id = psp.security_profile_id
113: and ppl.person_id = p_person_id);
114: --
115: hr_utility.set_location(l_proc, 20);
116: --
117: hr_security.add_person(p_person_id);
118: --
119: hr_utility.set_location('Leaving:'|| l_proc, 30);
115: hr_utility.set_location(l_proc, 20);
116: --
117: hr_security.add_person(p_person_id);
118: --
119: hr_utility.set_location('Leaving:'|| l_proc, 30);
120: --
121: end;
122: --
123: -- ----------------------------------------------------------------------------
134: l_program_application_id number(15) := fnd_profile.value('CONC_PROGRAM_APPLICATION_ID');
135: l_update_date date := trunc(sysdate);
136: --
137: begin
138: hr_utility.set_location('Entering:'|| l_proc, 10);
139: --
140: -- insert the new person in to all person lists for all profiles
141: -- for the business group and all global profiles which are restricted
142: -- in someway but not if there are user-based restrictions because in this
182: where ppl.security_profile_id = psp.security_profile_id
183: and ppl.granted_user_id is null
184: and ppl.person_id = p_person_id);
185: --
186: hr_utility.set_location(l_proc, 20);
187: --
188: hr_security.add_person(p_person_id);
189: --
190: hr_utility.set_location(' Leaving:'||l_proc, 30);
186: hr_utility.set_location(l_proc, 20);
187: --
188: hr_security.add_person(p_person_id);
189: --
190: hr_utility.set_location(' Leaving:'||l_proc, 30);
191: exception
192: when NO_DATA_FOUND then
193: hr_utility.set_location(l_proc, 30);
194: end populate_new_person;
189: --
190: hr_utility.set_location(' Leaving:'||l_proc, 30);
191: exception
192: when NO_DATA_FOUND then
193: hr_utility.set_location(l_proc, 30);
194: end populate_new_person;
195:
196: -- ----------------------------------------------------------------------------
197: -- |-----------------------< clear_from_person_list >-------------------------|
202: --
203: l_proc varchar2(72) := g_package||'clear_person_list';
204: --
205: begin
206: hr_utility.set_location('Entering:'|| l_proc, 10);
207: -- remove the person from the list
208: delete from per_person_list
209: where person_id=p_person_id
210: and security_profile_id is not null;
208: delete from per_person_list
209: where person_id=p_person_id
210: and security_profile_id is not null;
211: --
212: hr_utility.set_location(l_proc, 20);
213: --
214: hr_security.remove_person(p_person_id);
215: --
216: hr_utility.set_location(' Leaving:'||l_proc, 30);
212: hr_utility.set_location(l_proc, 20);
213: --
214: hr_security.remove_person(p_person_id);
215: --
216: hr_utility.set_location(' Leaving:'||l_proc, 30);
217: exception
218: when NO_DATA_FOUND then
219: hr_utility.set_location(l_proc, 30);
220: end clear_from_person_list;
215: --
216: hr_utility.set_location(' Leaving:'||l_proc, 30);
217: exception
218: when NO_DATA_FOUND then
219: hr_utility.set_location(l_proc, 30);
220: end clear_from_person_list;
221: --
222: -- ----------------------------------------------------------------------------
223: -- |---------------------------< evaluate_custom >----------------------------|
262: IF p_restriction_text IS NOT NULL THEN
263: --
264: --
265: l_execution_stmt := l_execution_stmt||' and '||p_restriction_text;
266: hr_utility.trace('Custom security is in use.');
267: --
268: END IF;
269: --
270: if g_debug then
267: --
268: END IF;
269: --
270: if g_debug then
271: hr_utility.trace(P_restriction_text);
272: l_exec_str_print:=l_execution_stmt;
273: while length(l_exec_str_print)>0 loop
274: hr_utility.trace(substr(l_exec_str_print,1,70));
275: l_exec_str_print:=substr(l_exec_str_print,71);
270: if g_debug then
271: hr_utility.trace(P_restriction_text);
272: l_exec_str_print:=l_execution_stmt;
273: while length(l_exec_str_print)>0 loop
274: hr_utility.trace(substr(l_exec_str_print,1,70));
275: l_exec_str_print:=substr(l_exec_str_print,71);
276: end loop;
277: end if;
278:
387: PROCEDURE add_to_cache IS
388: l_proc varchar2(100):= 'add_to_person_list.add_to_cache';
389: Begin
390: if g_debug then
391: hr_utility.set_location('Entering '||l_proc, 10);
392: End if;
393: If l_security_profie_table_temp.count > 0 then
394: if g_debug then
395: hr_utility.set_location(l_proc, 20);
391: hr_utility.set_location('Entering '||l_proc, 10);
392: End if;
393: If l_security_profie_table_temp.count > 0 then
394: if g_debug then
395: hr_utility.set_location(l_proc, 20);
396: End if;
397: for I in l_security_profie_table_temp.first .. l_security_profie_table_temp.last
398: loop
399: -- l_security_profie_table.extend;
401: end loop;
402: l_collection_index := l_security_profie_table.last;
403: End if;
404: if g_debug then
405: hr_utility.set_location('Leaveing '||l_proc, 30);
406: End if;
407: End;
408:
409:
414: PRAGMA exception_init(dml_errors, -24381);
415: l_proc varchar2(100):= 'add_to_person_list.insert_cache_to_list';
416: Begin
417: if g_debug then
418: hr_utility.set_location('Entering '||l_proc, 10);
419: End if;
420: If l_security_profie_table.count > 0 then
421: if g_debug then
422: hr_utility.set_location(l_proc, 20);
418: hr_utility.set_location('Entering '||l_proc, 10);
419: End if;
420: If l_security_profie_table.count > 0 then
421: if g_debug then
422: hr_utility.set_location(l_proc, 20);
423: End if;
424: forall per_rec in l_security_profie_table.first .. l_security_profie_table.last
425: SAVE EXCEPTIONS
426: Insert into per_person_list(security_profile_id,
436: to_date(to_char(l_update_date,'dd/mm/yyyy'), 'dd/mm/yyyy')
437: );
438: End if;
439: if g_debug then
440: hr_utility.set_location('Leaveing '||l_proc, 30);
441: End if;
442: Exception
443: WHEN dml_errors THEN
444: errors := SQL%BULK_EXCEPTIONS.COUNT;
444: errors := SQL%BULK_EXCEPTIONS.COUNT;
445: l_cnt := l_cnt + errors;
446: FOR i IN 1..errors LOOP
447: If g_debug then
448: hr_utility.trace ('Error occurred during iteration ' ||
449: SQL%BULK_EXCEPTIONS(i).ERROR_INDEX ||' Oracle error is ' ||
450: SQL%BULK_EXCEPTIONS(i).ERROR_CODE );
451: End if;
452: If SQL%BULK_EXCEPTIONS(i).ERROR_CODE <> 1 then
459:
460: Begin
461: --
462: if g_debug then
463: hr_utility.set_location('Entering:'|| l_proc, 10);
464: end if;
465: --
466: open asg_details;
467: fetch asg_details into
474: l_current_employee_flag,
475: l_current_npw_flag;
476: --
477: if g_debug then
478: hr_utility.set_location(l_proc, 30);
479: hr_utility.set_location('Program ID '|| to_char(l_program_id), 35);
480: end if;
481: --
482: if(asg_details%found) then
475: l_current_npw_flag;
476: --
477: if g_debug then
478: hr_utility.set_location(l_proc, 30);
479: hr_utility.set_location('Program ID '|| to_char(l_program_id), 35);
480: end if;
481: --
482: if(asg_details%found) then
483: --
483: --
484: close asg_details;
485: --
486: if p_generation_scope = 'ALL_BUS_GRP' then
487: hr_utility.set_location(l_proc, 31);
488: l_bggr_str := ' sec.business_group_id = :l_business_group_id and ';
489: end if;
490: if p_generation_scope = 'ALL_GLOBAL' then
491: hr_utility.set_location(l_proc, 32);
487: hr_utility.set_location(l_proc, 31);
488: l_bggr_str := ' sec.business_group_id = :l_business_group_id and ';
489: end if;
490: if p_generation_scope = 'ALL_GLOBAL' then
491: hr_utility.set_location(l_proc, 32);
492: l_bggr_str := ' sec.business_group_id is null and ';
493: end if;
494: if p_generation_scope = 'ALL_PROFILES' then
495: hr_utility.set_location(l_proc, 33);
491: hr_utility.set_location(l_proc, 32);
492: l_bggr_str := ' sec.business_group_id is null and ';
493: end if;
494: if p_generation_scope = 'ALL_PROFILES' then
495: hr_utility.set_location(l_proc, 33);
496: l_bggr_str := ' (sec.business_group_id = :l_business_group_id
497: or sec.business_group_id is null) and ';
498: end if;
499: --
497: or sec.business_group_id is null) and ';
498: end if;
499: --
500: if l_assignment_type = 'E' then
501: hr_utility.set_location(l_proc, 34);
502: l_asgt_str := ' (sec.view_all_employees_flag = :l_Restrict or
503: (sec.view_all_employees_flag = :l_all and
504: (sec.view_all_contacts_flag = :l_Restrict or
505: (sec.view_all_contacts_flag = :l_all and
505: (sec.view_all_contacts_flag = :l_all and
506: sec.view_all_candidates_flag = :l_None)))) and ';
507: end if;
508: if l_assignment_type = 'C' then
509: hr_utility.set_location(l_proc, 35);
510: l_asgt_str := ' (sec.view_all_cwk_flag = :l_Restrict or
511: (sec.view_all_cwk_flag = :l_all and
512: (sec.view_all_contacts_flag = :l_Restrict or
513: (sec.view_all_contacts_flag = :l_all and
513: (sec.view_all_contacts_flag = :l_all and
514: sec.view_all_candidates_flag = :l_None)))) and ';
515: end if;
516: if l_assignment_type = 'A' then
517: hr_utility.set_location(l_proc, 36);
518: l_asgt_str := ' (sec.view_all_applicants_flag = :l_Restrict or
519: (sec.view_all_applicants_flag = :l_all and
520: (sec.view_all_contacts_flag = :l_Restrict or
521: (sec.view_all_contacts_flag = :l_all and
543: -- is indentical. The following comments apply to all statements.
544: begin
545: --
546: if g_debug then
547: hr_utility.set_location(l_proc, 40);
548: end if;
549: --
550: l_from_str := ' from per_security_profiles sec,
551: per_organization_list org ';
561:
562: if g_debug then
563: l_exec_str_print:= l_exec_str;
564: while length(l_exec_str_print)>0 loop
565: hr_utility.trace(substr(l_exec_str_print,1,70));
566: l_exec_str_print:=substr(l_exec_str_print,71);
567: end loop;
568: End if;
569: if p_generation_scope = 'ALL_GLOBAL' then
619: -- inserts can go ahead.
620: --
621: when no_data_found then
622: if g_debug then
623: hr_utility.set_location(l_proc, 50);
624: end if;
625: null;
626: when others then
627: if g_debug then
624: end if;
625: null;
626: when others then
627: if g_debug then
628: hr_utility.set_location(l_proc, 60);
629: end if;
630: raise;
631: end;
632: --
634: -- but do have restrictions on Position or Payroll
635: begin
636: --
637: if g_debug then
638: hr_utility.set_location(l_proc, 70);
639: end if;
640: --
641: l_from_str := ' from per_security_profiles sec ';
642: --
651: --
652: if g_debug then
653: l_exec_str_print:= l_exec_str;
654: while length(l_exec_str_print)>0 loop
655: hr_utility.trace(substr(l_exec_str_print,1,70));
656: l_exec_str_print:=substr(l_exec_str_print,71);
657: end loop;
658: End if;
659: -- execute immediate l_exec_str;
713: -- inserts can go ahead.
714: --
715: when no_data_found then
716: if g_debug then
717: hr_utility.set_location(l_proc, 80);
718: end if;
719: null;
720: when others then
721: if g_debug then
718: end if;
719: null;
720: when others then
721: if g_debug then
722: hr_utility.set_location(l_proc, 90);
723: end if;
724: raise;
725: end;
726: --
728: -- Position or Payroll but which do have a custom restriction.
729: begin
730: --
731: if g_debug then
732: hr_utility.set_location(l_proc, 100);
733: end if;
734: --
735: l_from_str := ' from per_security_profiles sec ';
736: --
745: --
746: if g_debug then
747: l_exec_str_print:= l_exec_str;
748: while length(l_exec_str_print)>0 loop
749: hr_utility.trace(substr(l_exec_str_print,1,70));
750: l_exec_str_print:=substr(l_exec_str_print,71);
751: end loop;
752: End if;
753: if p_generation_scope = 'ALL_GLOBAL' then
804: -- inserts can go ahead.
805: --
806: when no_data_found then
807: if g_debug then
808: hr_utility.set_location(l_proc, 110);
809: end if;
810: null;
811: when others then
812: if g_debug then
809: end if;
810: null;
811: when others then
812: if g_debug then
813: hr_utility.set_location(l_proc, 120);
814: end if;
815: raise;
816: end;
817: --
822: --
823: begin
824: --
825: if g_debug then
826: hr_utility.set_location(l_proc, 130);
827: end if;
828: --
829: l_from_str := ' from per_security_profiles sec,
830: pay_payroll_list pay,
844: --
845: if g_debug then
846: l_exec_str_print:= l_exec_str;
847: while length(l_exec_str_print)>0 loop
848: hr_utility.trace(substr(l_exec_str_print,1,70));
849: l_exec_str_print:=substr(l_exec_str_print,71);
850: end loop;
851: End if;
852: if p_generation_scope = 'ALL_GLOBAL' then
905: -- inserts can go ahead.
906: --
907: when no_data_found then
908: if g_debug then
909: hr_utility.set_location(l_proc, 140);
910: end if;
911: null;
912: when others then
913: if g_debug then
910: end if;
911: null;
912: when others then
913: if g_debug then
914: hr_utility.set_location(l_proc, 150);
915: end if;
916: raise;
917: end;
918: --
920: -- payroll regardless of position restriction
921: begin
922: --
923: if g_debug then
924: hr_utility.set_location(l_proc, 160);
925: end if;
926: --
927: l_from_str := ' from per_security_profiles sec,
928: per_organization_list org ';
938: --
939: if g_debug then
940: l_exec_str_print:= l_exec_str;
941: while length(l_exec_str_print)>0 loop
942: hr_utility.trace(substr(l_exec_str_print,1,70));
943: l_exec_str_print:=substr(l_exec_str_print,71);
944: end loop;
945: End if;
946: if p_generation_scope = 'ALL_GLOBAL' then
997: -- inserts can go ahead.
998: --
999: when no_data_found then
1000: if g_debug then
1001: hr_utility.set_location(l_proc, 170);
1002: end if;
1003: null;
1004: when others then
1005: if g_debug then
1002: end if;
1003: null;
1004: when others then
1005: if g_debug then
1006: hr_utility.set_location(l_proc, 180);
1007: end if;
1008: raise;
1009: end;
1010: --
1013: --
1014: begin
1015: --
1016: if g_debug then
1017: hr_utility.set_location(l_proc, 190);
1018: end if;
1019: --
1020: l_from_str := ' from per_security_profiles sec,
1021: pay_payroll_list pay ';
1030: --
1031: if g_debug then
1032: l_exec_str_print:= l_exec_str;
1033: while length(l_exec_str_print)>0 loop
1034: hr_utility.trace(substr(l_exec_str_print,1,70));
1035: l_exec_str_print:=substr(l_exec_str_print,71);
1036: end loop;
1037: End if;
1038: if p_generation_scope = 'ALL_GLOBAL' then
1085: -- inserts can go ahead.
1086: --
1087: when no_data_found then
1088: if g_debug then
1089: hr_utility.set_location(l_proc, 200);
1090: end if;
1091: null;
1092: when others then
1093: if g_debug then
1090: end if;
1091: null;
1092: when others then
1093: if g_debug then
1094: hr_utility.set_location(l_proc, 210);
1095: end if;
1096: raise;
1097: end;
1098: --
1100: -- and restrict by position
1101: begin
1102: --
1103: if g_debug then
1104: hr_utility.set_location(l_proc, 220);
1105: end if;
1106: --
1107: l_from_str := ' from per_security_profiles sec ';
1108: --
1117: --
1118: if g_debug then
1119: l_exec_str_print:= l_exec_str;
1120: while length(l_exec_str_print)>0 loop
1121: hr_utility.trace(substr(l_exec_str_print,1,70));
1122: l_exec_str_print:=substr(l_exec_str_print,71);
1123: end loop;
1124: End if;
1125: if p_generation_scope = 'ALL_GLOBAL' then
1186: -- inserts can go ahead.
1187: --
1188: when no_data_found then
1189: if g_debug then
1190: hr_utility.set_location(l_proc, 230);
1191: end if;
1192: null;
1193: when others then
1194: if g_debug then
1191: end if;
1192: null;
1193: when others then
1194: if g_debug then
1195: hr_utility.set_location(l_proc, 240);
1196: end if;
1197: raise;
1198: end;
1199: --
1203: -- Position or Payroll but which do have a custom restriction.
1204: begin
1205: --
1206: if g_debug then
1207: hr_utility.set_location(l_proc, 250);
1208: end if;
1209: --
1210: l_from_str := ' from per_security_profiles sec ';
1211: --
1220: --
1221: if g_debug then
1222: l_exec_str_print:= l_exec_str;
1223: while length(l_exec_str_print)>0 loop
1224: hr_utility.trace(substr(l_exec_str_print,1,70));
1225: l_exec_str_print:=substr(l_exec_str_print,71);
1226: end loop;
1227: End if;
1228: if p_generation_scope = 'ALL_GLOBAL' then
1285: -- inserts can go ahead.
1286: --
1287: when no_data_found then
1288: if g_debug then
1289: hr_utility.set_location(l_proc, 260);
1290: end if;
1291: null;
1292: when others then
1293: if g_debug then
1290: end if;
1291: null;
1292: when others then
1293: if g_debug then
1294: hr_utility.set_location(l_proc, 270);
1295: end if;
1296: raise;
1297: end;
1298: --
1306: --
1307: begin
1308: --
1309: if g_debug then
1310: hr_utility.set_location(l_proc, 280);
1311: end if;
1312: --
1313: l_from_str := ' from per_security_profiles sec,
1314: per_position_list posl,
1330: --
1331: if g_debug then
1332: l_exec_str_print:= l_exec_str;
1333: while length(l_exec_str_print)>0 loop
1334: hr_utility.trace(substr(l_exec_str_print,1,70));
1335: l_exec_str_print:=substr(l_exec_str_print,71);
1336: end loop;
1337: End if;
1338: if p_generation_scope = 'ALL_GLOBAL' then
1401: -- inserts can go ahead.
1402: --
1403: when no_data_found then
1404: if g_debug then
1405: hr_utility.set_location(l_proc, 290);
1406: end if;
1407: null;
1408: when others then
1409: if g_debug then
1406: end if;
1407: null;
1408: when others then
1409: if g_debug then
1410: hr_utility.set_location(l_proc, 300);
1411: end if;
1412: raise;
1413: end;
1414: --
1417: --
1418: begin
1419: --
1420: if g_debug then
1421: hr_utility.set_location(l_proc, 310);
1422: end if;
1423: --
1424: l_from_str := ' from per_security_profiles sec,
1425: per_organization_list org ';
1435: --
1436: if g_debug then
1437: l_exec_str_print:= l_exec_str;
1438: while length(l_exec_str_print)>0 loop
1439: hr_utility.trace(substr(l_exec_str_print,1,70));
1440: l_exec_str_print:=substr(l_exec_str_print,71);
1441: end loop;
1442: End if;
1443: if p_generation_scope = 'ALL_GLOBAL' then
1500: -- inserts can go ahead.
1501: --
1502: when no_data_found then
1503: if g_debug then
1504: hr_utility.set_location(l_proc, 320);
1505: end if;
1506: null;
1507: when others then
1508: if g_debug then
1505: end if;
1506: null;
1507: when others then
1508: if g_debug then
1509: hr_utility.set_location(l_proc, 330);
1510: end if;
1511: raise;
1512: end;
1513: --
1515: -- pos and restrict by payroll
1516: begin
1517: --
1518: if g_debug then
1519: hr_utility.set_location(l_proc, 340);
1520: end if;
1521: --
1522: l_from_str := ' from per_security_profiles sec ';
1523: --
1530: --
1531: if g_debug then
1532: l_exec_str_print:= l_exec_str;
1533: while length(l_exec_str_print)>0 loop
1534: hr_utility.trace(substr(l_exec_str_print,1,70));
1535: l_exec_str_print:=substr(l_exec_str_print,71);
1536: end loop;
1537: End if;
1538: if p_generation_scope = 'ALL_GLOBAL' then
1591: -- inserts can go ahead.
1592: --
1593: when no_data_found then
1594: if g_debug then
1595: hr_utility.set_location(l_proc, 350);
1596: end if;
1597: null;
1598: when others then
1599: if g_debug then
1596: end if;
1597: null;
1598: when others then
1599: if g_debug then
1600: hr_utility.set_location(l_proc, 360);
1601: end if;
1602: raise;
1603: end;
1604: --
1606: -- regardless of payroll
1607: begin
1608: --
1609: if g_debug then
1610: hr_utility.set_location(l_proc, 370);
1611: end if;
1612: --
1613: l_from_str := ' from per_security_profiles sec,
1614: per_position_list posl ';
1627: --
1628: if g_debug then
1629: l_exec_str_print:= l_exec_str;
1630: while length(l_exec_str_print)>0 loop
1631: hr_utility.trace(substr(l_exec_str_print,1,70));
1632: l_exec_str_print:=substr(l_exec_str_print,71);
1633: end loop;
1634: End if;
1635: if p_generation_scope = 'ALL_GLOBAL' then
1697: -- inserts can go ahead.
1698: --
1699: when no_data_found then
1700: if g_debug then
1701: hr_utility.set_location(l_proc, 380);
1702: end if;
1703: null;
1704: when others then
1705: if g_debug then
1702: end if;
1703: null;
1704: when others then
1705: if g_debug then
1706: hr_utility.set_location(l_proc, 390);
1707: end if;
1708: raise;
1709: end;
1710: --
1712: -- Position or Payroll but which do have a custom restriction.
1713: begin
1714: --
1715: if g_debug then
1716: hr_utility.set_location(l_proc, 400);
1717: end if;
1718: --
1719: l_from_str := ' from per_security_profiles sec ';
1720: --
1729: --
1730: if g_debug then
1731: l_exec_str_print:= l_exec_str;
1732: while length(l_exec_str_print)>0 loop
1733: hr_utility.trace(substr(l_exec_str_print,1,70));
1734: l_exec_str_print:=substr(l_exec_str_print,71);
1735: end loop;
1736: End if;
1737: if p_generation_scope = 'ALL_GLOBAL' then
1794: -- inserts can go ahead.
1795: --
1796: when no_data_found then
1797: if g_debug then
1798: hr_utility.set_location(l_proc, 410);
1799: end if;
1800: null;
1801: when others then
1802: if g_debug then
1799: end if;
1800: null;
1801: when others then
1802: if g_debug then
1803: hr_utility.set_location(l_proc, 420);
1804: end if;
1805: raise;
1806: end;
1807: --
1811: --
1812: begin
1813: --
1814: if g_debug then
1815: hr_utility.set_location(l_proc, 430);
1816: end if;
1817: --
1818: l_from_str := ' from per_security_profiles sec,
1819: pay_payroll_list pay,
1840: --
1841: if g_debug then
1842: l_exec_str_print:= l_exec_str;
1843: while length(l_exec_str_print)>0 loop
1844: hr_utility.trace(substr(l_exec_str_print,1,70));
1845: l_exec_str_print:=substr(l_exec_str_print,71);
1846: end loop;
1847: End if;
1848: if p_generation_scope = 'ALL_GLOBAL' then
1915: -- inserts can go ahead.
1916: --
1917: when no_data_found then
1918: if g_debug then
1919: hr_utility.set_location(l_proc, 440);
1920: end if;
1921: null;
1922: when others then
1923: if g_debug then
1920: end if;
1921: null;
1922: when others then
1923: if g_debug then
1924: hr_utility.set_location(l_proc, 450);
1925: end if;
1926: raise;
1927: end;
1928: --
1931: --
1932: begin
1933: --
1934: if g_debug then
1935: hr_utility.set_location(l_proc, 460);
1936: end if;
1937: --
1938: l_from_str := ' from per_security_profiles sec,
1939: per_position_list posl,
1955: --
1956: if g_debug then
1957: l_exec_str_print:= l_exec_str;
1958: while length(l_exec_str_print)>0 loop
1959: hr_utility.trace(substr(l_exec_str_print,1,70));
1960: l_exec_str_print:=substr(l_exec_str_print,71);
1961: end loop;
1962: End if;
1963: if p_generation_scope = 'ALL_GLOBAL' then
2028: -- inserts can go ahead.
2029: --
2030: when no_data_found then
2031: if g_debug then
2032: hr_utility.set_location(l_proc, 470);
2033: end if;
2034: null;
2035: when others then
2036: if g_debug then
2033: end if;
2034: null;
2035: when others then
2036: if g_debug then
2037: hr_utility.set_location(l_proc, 480);
2038: end if;
2039: raise;
2040: end;
2041: --
2044: --
2045: begin
2046: --
2047: if g_debug then
2048: hr_utility.set_location(l_proc, 490);
2049: end if;
2050: --
2051: l_from_str := ' from per_security_profiles sec,
2052: pay_payroll_list pay,
2066: --
2067: if g_debug then
2068: l_exec_str_print:= l_exec_str;
2069: while length(l_exec_str_print)>0 loop
2070: hr_utility.trace(substr(l_exec_str_print,1,70));
2071: l_exec_str_print:=substr(l_exec_str_print,71);
2072: end loop;
2073: End if;
2074: if p_generation_scope = 'ALL_GLOBAL' then
2135: -- inserts can go ahead.
2136: --
2137: when no_data_found then
2138: if g_debug then
2139: hr_utility.set_location(l_proc, 500);
2140: end if;
2141: null;
2142: when others then
2143: if g_debug then
2140: end if;
2141: null;
2142: when others then
2143: if g_debug then
2144: hr_utility.set_location(l_proc, 510);
2145: end if;
2146: raise;
2147: end;
2148: --
2151: --
2152: begin
2153: --
2154: if g_debug then
2155: hr_utility.set_location(l_proc, 520);
2156: end if;
2157: --
2158: l_from_str := ' from per_security_profiles sec,
2159: pay_payroll_list pay,
2174: --
2175: if g_debug then
2176: l_exec_str_print:= l_exec_str;
2177: while length(l_exec_str_print)>0 loop
2178: hr_utility.trace(substr(l_exec_str_print,1,70));
2179: l_exec_str_print:=substr(l_exec_str_print,71);
2180: end loop;
2181: End if;
2182: if p_generation_scope = 'ALL_GLOBAL' then
2243: -- inserts can go ahead.
2244: --
2245: when no_data_found then
2246: if g_debug then
2247: hr_utility.set_location(l_proc, 530);
2248: end if;
2249: null;
2250: when others then
2251: if g_debug then
2248: end if;
2249: null;
2250: when others then
2251: if g_debug then
2252: hr_utility.set_location(l_proc, 540);
2253: end if;
2254: raise;
2255: end;
2256: --
2259: --
2260: begin
2261: --
2262: if g_debug then
2263: hr_utility.set_location(l_proc, 550);
2264: end if;
2265: --
2266: l_from_str := ' from per_security_profiles sec,
2267: per_organization_list org ';
2278: --
2279: if g_debug then
2280: l_exec_str_print:= l_exec_str;
2281: while length(l_exec_str_print)>0 loop
2282: hr_utility.trace(substr(l_exec_str_print,1,70));
2283: l_exec_str_print:=substr(l_exec_str_print,71);
2284: end loop;
2285: End if;
2286: if p_generation_scope = 'ALL_GLOBAL' then
2347: -- inserts can go ahead.
2348: --
2349: when no_data_found then
2350: if g_debug then
2351: hr_utility.set_location(l_proc, 560);
2352: end if;
2353: null;
2354: when others then
2355: if g_debug then
2352: end if;
2353: null;
2354: when others then
2355: if g_debug then
2356: hr_utility.set_location(l_proc, 570);
2357: end if;
2358: raise;
2359: end;
2360: --
2362: -- organization and payroll
2363: begin
2364: --
2365: if g_debug then
2366: hr_utility.set_location(l_proc, 580);
2367: end if;
2368: --
2369: l_from_str := ' from per_security_profiles sec,
2370: per_position_list posl ';
2381: --
2382: if g_debug then
2383: l_exec_str_print:= l_exec_str;
2384: while length(l_exec_str_print)>0 loop
2385: hr_utility.trace(substr(l_exec_str_print,1,70));
2386: l_exec_str_print:=substr(l_exec_str_print,71);
2387: end loop;
2388: End if;
2389: if p_generation_scope = 'ALL_GLOBAL' then
2448: -- inserts can go ahead.
2449: --
2450: when no_data_found then
2451: if g_debug then
2452: hr_utility.set_location(l_proc, 590);
2453: end if;
2454: null;
2455: when others then
2456: if g_debug then
2453: end if;
2454: null;
2455: when others then
2456: if g_debug then
2457: hr_utility.set_location(l_proc, 600);
2458: end if;
2459: raise;
2460: end;
2461: --
2464: --
2465: begin
2466: --
2467: if g_debug then
2468: hr_utility.set_location(l_proc, 610);
2469: end if;
2470: --
2471: l_from_str := ' from per_security_profiles sec,
2472: pay_payroll_list pay ';
2482: --
2483: if g_debug then
2484: l_exec_str_print:= l_exec_str;
2485: while length(l_exec_str_print)>0 loop
2486: hr_utility.trace(substr(l_exec_str_print,1,70));
2487: l_exec_str_print:=substr(l_exec_str_print,71);
2488: end loop;
2489: End if;
2490: if p_generation_scope = 'ALL_GLOBAL' then
2545: -- inserts can go ahead.
2546: --
2547: when no_data_found then
2548: if g_debug then
2549: hr_utility.set_location(l_proc, 620);
2550: end if;
2551: null;
2552: when others then
2553: if g_debug then
2550: end if;
2551: null;
2552: when others then
2553: if g_debug then
2554: hr_utility.set_location(l_proc, 630);
2555: end if;
2556: raise;
2557: end;
2558: --
2565: --
2566: begin
2567: --
2568: if g_debug then
2569: hr_utility.set_location(l_proc, 640);
2570: end if;
2571: --
2572: l_from_str := ' from per_security_profiles sec ';
2573: --
2589: --
2590: if g_debug then
2591: l_exec_str_print:= l_exec_str;
2592: while length(l_exec_str_print)>0 loop
2593: hr_utility.trace(substr(l_exec_str_print,1,70));
2594: l_exec_str_print:=substr(l_exec_str_print,71);
2595: end loop;
2596: End if;
2597: if p_generation_scope = 'ALL_GLOBAL' then
2642: -- inserts can go ahead.
2643: --
2644: when no_data_found then
2645: if g_debug then
2646: hr_utility.set_location(l_proc, 650);
2647: end if;
2648: null;
2649: when others then
2650: if g_debug then
2647: end if;
2648: null;
2649: when others then
2650: if g_debug then
2651: hr_utility.set_location(l_proc, 660);
2652: end if;
2653: raise;
2654: end;
2655: --
2657: -- Position or Payroll but which do have a custom restriction.
2658: begin
2659: --
2660: if g_debug then
2661: hr_utility.set_location(l_proc, 670);
2662: end if;
2663: --
2664: l_from_str := ' from per_security_profiles sec ';
2665: --
2674: --
2675: if g_debug then
2676: l_exec_str_print:= l_exec_str;
2677: while length(l_exec_str_print)>0 loop
2678: hr_utility.trace(substr(l_exec_str_print,1,70));
2679: l_exec_str_print:=substr(l_exec_str_print,71);
2680: end loop;
2681: End if;
2682: if p_generation_scope = 'ALL_GLOBAL' then
2739: -- inserts can go ahead.
2740: --
2741: when no_data_found then
2742: if g_debug then
2743: hr_utility.set_location(l_proc, 680);
2744: end if;
2745: null;
2746: when others then
2747: if g_debug then
2744: end if;
2745: null;
2746: when others then
2747: if g_debug then
2748: hr_utility.set_location(l_proc, 690);
2749: end if;
2750: raise;
2751: end;
2752: --
2754: --
2755: end if;
2756: --
2757: if g_debug then
2758: hr_utility.set_location(l_proc, 700);
2759: end if;
2760: --
2761: else
2762: close asg_details;
2762: close asg_details;
2763: end if;
2764:
2765: if g_debug then
2766: hr_utility.set_location(l_proc, 705);
2767: end if;
2768: insert_cache_to_list;
2769: --
2770: if g_debug then
2767: end if;
2768: insert_cache_to_list;
2769: --
2770: if g_debug then
2771: hr_utility.set_location(l_proc, 710);
2772: end if;
2773: --
2774: hr_security.add_person(l_person_id);
2775: --
2773: --
2774: hr_security.add_person(l_person_id);
2775: --
2776: if g_debug then
2777: hr_utility.set_location(' Leaving:'||l_proc, 720);
2778: end if;
2779: --
2780: exception
2781: when no_data_found then
2779: --
2780: exception
2781: when no_data_found then
2782: if g_debug then
2783: hr_utility.set_location(l_proc, 730);
2784: end if;
2785: --
2786: end add_to_person_list;
2787: --
2794: (p_person_id in number) is
2795: --
2796: l_proc varchar2(72) := g_package||'clear_from_person_list_changes';
2797: begin
2798: hr_utility.set_location('Entering:'|| l_proc, 10);
2799: --
2800: -- Stubbed out as part of Ex-Person security enhancements.
2801: --
2802: hr_utility.set_location(' Leaving:'||l_proc, 20);
2798: hr_utility.set_location('Entering:'|| l_proc, 10);
2799: --
2800: -- Stubbed out as part of Ex-Person security enhancements.
2801: --
2802: hr_utility.set_location(' Leaving:'||l_proc, 20);
2803: end clear_from_person_list_changes;
2804: --
2805: -- ----------------------------------------------------------------------------
2806: -- |-------------------< re_enter_person_list_changes >-----------------------|
2836: l_payroll_id per_assignments_f.payroll_id%TYPE;
2837: l_business_group_id per_assignments_f.business_group_id%TYPE;
2838: --
2839: begin
2840: hr_utility.set_location('Entering:'|| l_proc, 10);
2841: --
2842: -- Stubbed out as part of Ex-Person security enhancements.
2843: --
2844: hr_utility.set_location(' Leaving:'||l_proc, 20);
2840: hr_utility.set_location('Entering:'|| l_proc, 10);
2841: --
2842: -- Stubbed out as part of Ex-Person security enhancements.
2843: --
2844: hr_utility.set_location(' Leaving:'||l_proc, 20);
2845: --
2846: end re_enter_person_list_changes;
2847: --
2848: -- ----------------------------------------------------------------------------
2854: --
2855: l_proc varchar2(72) := g_package||'copy_to_person_list_changes';
2856: --
2857: begin
2858: hr_utility.set_location('Entering:'|| l_proc, 10);
2859: --
2860: --
2861: -- Stubbed out as part of Ex-Person security enhancements.
2862: --
2859: --
2860: --
2861: -- Stubbed out as part of Ex-Person security enhancements.
2862: --
2863: hr_utility.set_location(' Leaving:'||l_proc, 20);
2864: exception
2865: when NO_DATA_FOUND then
2866: hr_utility.set_location(l_proc, 30);
2867: end copy_to_person_list_changes;
2862: --
2863: hr_utility.set_location(' Leaving:'||l_proc, 20);
2864: exception
2865: when NO_DATA_FOUND then
2866: hr_utility.set_location(l_proc, 30);
2867: end copy_to_person_list_changes;
2868: --
2869: -- ----------------------------------------------------------------------------
2870: -- |------------------------< grant_access_to_person >------------------------|
2901: --
2902: l_dummy number;
2903: --
2904: begin
2905: hr_utility.set_location('Entering:'|| l_proc, 10);
2906: --
2907: open chk_person_id;
2908: fetch chk_person_id into l_dummy;
2909: if chk_person_id%notfound then
2907: open chk_person_id;
2908: fetch chk_person_id into l_dummy;
2909: if chk_person_id%notfound then
2910: close chk_person_id;
2911: hr_utility.set_message(800, 'PER_52656_INVALID_PERSON_ID');
2912: hr_utility.raise_error;
2913: else
2914: close chk_person_id;
2915: end if;
2908: fetch chk_person_id into l_dummy;
2909: if chk_person_id%notfound then
2910: close chk_person_id;
2911: hr_utility.set_message(800, 'PER_52656_INVALID_PERSON_ID');
2912: hr_utility.raise_error;
2913: else
2914: close chk_person_id;
2915: end if;
2916: --
2913: else
2914: close chk_person_id;
2915: end if;
2916: --
2917: hr_utility.set_location(l_proc, 20);
2918: --
2919: open chk_user_id;
2920: fetch chk_user_id into l_dummy;
2921: if chk_user_id%notfound then
2919: open chk_user_id;
2920: fetch chk_user_id into l_dummy;
2921: if chk_user_id%notfound then
2922: close chk_user_id;
2923: hr_utility.set_message(800, 'PER_52672_INVALID_USER_ID');
2924: hr_utility.raise_error;
2925: else
2926: close chk_user_id;
2927: end if;
2920: fetch chk_user_id into l_dummy;
2921: if chk_user_id%notfound then
2922: close chk_user_id;
2923: hr_utility.set_message(800, 'PER_52672_INVALID_USER_ID');
2924: hr_utility.raise_error;
2925: else
2926: close chk_user_id;
2927: end if;
2928: --
2925: else
2926: close chk_user_id;
2927: end if;
2928: --
2929: hr_utility.set_location(l_proc, 30);
2930: --
2931: -- Bug fix 1680524
2932: --
2933: open chk_person_list;
2943: else
2944: close chk_person_list;
2945: end if;
2946: --
2947: hr_utility.set_location('Leaving: '||l_proc, 40);
2948: --
2949: end grant_access_to_person;
2950: --
2951: -- ----------------------------------------------------------------------------
2958: --
2959: l_proc varchar2(72) := g_package||'revoke_access_from_person';
2960: --
2961: begin
2962: hr_utility.set_location('Entering:'|| l_proc, 10);
2963:
2964: if p_granted_user_id is not null
2965: then
2966: --
2979: and granted_user_id is not null
2980: and security_profile_id is null;
2981: end if;
2982: --
2983: hr_utility.set_location(' Leaving:'||l_proc, 20);
2984: --
2985: end revoke_access_from_person;
2986: --
2987: -- ----------------------------------------------------------------------------
3003: --
3004: WHILE LENGTH(l_msg) > 0 LOOP
3005:
3006: IF g_dbg_type = g_PIPE OR g_debug THEN
3007: hr_utility.trace(SUBSTR(l_msg, 1, 70));
3008: ELSIF g_dbg_type = g_FND_LOG THEN
3009: fnd_file.put_line(FND_FILE.log, SUBSTR(l_msg, 1, 70));
3010: END IF;
3011:
3037: --
3038: WHILE LENGTH(l_msg) > 0 LOOP
3039:
3040: IF g_dbg_type = g_PIPE OR g_debug THEN
3041: hr_utility.set_location(SUBSTR(l_msg, 1, 70), p_location);
3042: ELSIF g_dbg_type = g_FND_LOG THEN
3043: fnd_file.put_line(FND_FILE.log, SUBSTR(l_msg, 1, 70)
3044: ||', '||to_char(p_location));
3045: END IF;
4558: -- fnd_profile.get('PER_EX_SECURITY_PROFILE',l_ex_emp_security);
4559: fnd_profile.get(
4560: NAME => 'PER_EX_SECURITY_PROFILE'
4561: ,VAL => l_ex_emp_security);
4562: IF g_dbg THEN hr_utility.trace( 'Ex-Employee Profile Value= '||l_ex_emp_security); END IF;
4563:
4564: IF g_dbg THEN op(l_proc, 10); END IF;
4565: --
4566: -- Set the restricted flags.
4645: --
4646: IF NOT l_sup_hier_set and l_ex_emp_security= 'Y' THEN
4647:
4648: /*--- Supervisor Security is not present ---*/
4649: IF g_dbg THEN hr_utility.trace( 'Supervisor Security is Not present'); END IF;
4650:
4651: --
4652: -- Set the skeleton WHERE clause.
4653: --
4882: --
4883: l_sql_str := l_select_from_clause || l_where_clause || l_connect_clause;
4884:
4885: IF g_dbg THEN
4886: hr_utility.trace( 'No Supervisor Security is present');
4887: hr_utility.trace('***************************************************');
4888: l_exec_str_print:= l_sql_str;
4889: while length(l_exec_str_print)>0 loop
4890: hr_utility.trace(substr(l_exec_str_print,1,70));
4883: l_sql_str := l_select_from_clause || l_where_clause || l_connect_clause;
4884:
4885: IF g_dbg THEN
4886: hr_utility.trace( 'No Supervisor Security is present');
4887: hr_utility.trace('***************************************************');
4888: l_exec_str_print:= l_sql_str;
4889: while length(l_exec_str_print)>0 loop
4890: hr_utility.trace(substr(l_exec_str_print,1,70));
4891: l_exec_str_print:=substr(l_exec_str_print,71);
4886: hr_utility.trace( 'No Supervisor Security is present');
4887: hr_utility.trace('***************************************************');
4888: l_exec_str_print:= l_sql_str;
4889: while length(l_exec_str_print)>0 loop
4890: hr_utility.trace(substr(l_exec_str_print,1,70));
4891: l_exec_str_print:=substr(l_exec_str_print,71);
4892: end loop;
4893: hr_utility.trace('***************************************************');
4894: End if;
4889: while length(l_exec_str_print)>0 loop
4890: hr_utility.trace(substr(l_exec_str_print,1,70));
4891: l_exec_str_print:=substr(l_exec_str_print,71);
4892: end loop;
4893: hr_utility.trace('***************************************************');
4894: End if;
4895:
4896: IF g_dbg THEN op(l_proc, 150); END IF;
4897: --
4990: END IF;
4991: ELSE
4992: /*-- SUPERVISOR SECURITY IS SET */
4993: IF g_dbg THEN
4994: hr_utility.trace( 'Supervisor Security is present or HR: Ex-Employee Security Profile Option is not Set');
4995: END IF;
4996: --
4997: -- Set the skeleton WHERE clause.
4998: --
8344: WHERE pp.person_id = pl.person_id
8345: AND pp.business_group_id = p_business_group_id;
8346: BEGIN
8347: --
8348: hr_utility.set_location(l_proc,20);
8349: --
8350: DELETE FROM pay_security_payrolls psp
8351: WHERE psp.business_group_id = p_business_group_id;
8352: hr_utility.set_location(l_proc,30);
8348: hr_utility.set_location(l_proc,20);
8349: --
8350: DELETE FROM pay_security_payrolls psp
8351: WHERE psp.business_group_id = p_business_group_id;
8352: hr_utility.set_location(l_proc,30);
8353: --
8354: DELETE FROM pay_payroll_list ppl
8355: WHERE EXISTS ( SELECT ''
8356: FROM pay_payrolls_f pay
8355: WHERE EXISTS ( SELECT ''
8356: FROM pay_payrolls_f pay
8357: WHERE pay.payroll_id = ppl.payroll_id
8358: AND pay.business_group_id = p_business_group_id);
8359: hr_utility.set_location(l_proc,40);
8360: --
8361: FOR pevrec IN pev LOOP
8362: DELETE FROM per_person_list pl
8363: WHERE pl.person_id = pevrec.person_id;
8361: FOR pevrec IN pev LOOP
8362: DELETE FROM per_person_list pl
8363: WHERE pl.person_id = pevrec.person_id;
8364: END LOOP;
8365: hr_utility.set_location(l_proc,50);
8366: --
8367: -- Changes 02-Oct-99 SCNair (per_positions to hr_all_positions_f) date track position req.
8368: --
8369: DELETE FROM per_position_list pol
8371: FROM hr_all_positions_f pos
8372: WHERE pos.position_id = pol.position_id
8373: AND pos.business_group_id = p_business_group_id);
8374: --
8375: hr_utility.set_location('hr_delete.delete_security_list_for_bg',6);
8376:
8377: -- Bug fix 3622082.
8378: -- Delete statement modified to improve performance.
8379:
8384: FROM hr_all_organization_units ou
8385: WHERE ou.business_group_id = p_business_group_id
8386: and ou.organization_id = ol.organization_id);
8387: --
8388: hr_utility.set_location('hr_delete.delete_security_list_for_bg',7);
8389: DELETE FROM per_security_profiles psp
8390: WHERE psp.business_group_id = p_business_group_id
8391: AND psp.view_all_flag = 'N';
8392: --
8389: DELETE FROM per_security_profiles psp
8390: WHERE psp.business_group_id = p_business_group_id
8391: AND psp.view_all_flag = 'N';
8392: --
8393: hr_utility.set_location('hr_delete.delete_security_list_for_bg',8);
8394:
8395: -- Bug fix 4889068.
8396: -- SQL Tuned to improve performance.
8397: DELETE FROM per_security_organizations pso
8399: FROM hr_all_organization_units ou
8400: WHERE ou.business_group_id = p_business_group_id
8401: and ou.organization_id = pso.organization_id);
8402: --
8403: hr_utility.set_location('hr_delete.delete_security_list_for_bg',9);
8404: DELETE FROM per_security_users psu
8405: WHERE psu.security_profile_id IN (SELECT sp.security_profile_id
8406: FROM per_security_profiles sp
8407: WHERE sp.business_group_id = p_business_group_id);
8417: --
8418: -- bug fix 3760559. l_proc size increased to 80.
8419: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_PER_FROM_SECURITY_LIST';
8420: begin
8421: hr_utility.set_location('Entering:'|| l_proc, 10);
8422: delete from per_person_list l
8423: where l.person_id = P_PERSON_ID;
8424: exception
8425: when NO_DATA_FOUND then
8422: delete from per_person_list l
8423: where l.person_id = P_PERSON_ID;
8424: exception
8425: when NO_DATA_FOUND then
8426: hr_utility.set_location(l_proc, 20);
8427: end delete_per_from_security_list;
8428: --
8429: --
8430: -- ----------------------------------------------------------------------------
8484: IS
8485: --
8486: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_ORG_FROM_SECURITY_LIST';
8487: begin
8488: hr_utility.set_location('Entering:'|| l_proc, 10);
8489: DELETE FROM PER_ORGANIZATION_LIST
8490: WHERE organization_id = P_Organization_Id;
8491: exception
8492: when NO_DATA_FOUND then
8489: DELETE FROM PER_ORGANIZATION_LIST
8490: WHERE organization_id = P_Organization_Id;
8491: exception
8492: when NO_DATA_FOUND then
8493: hr_utility.set_location(l_proc, 20);
8494: end delete_org_from_security_list;
8495: --
8496: --
8497: --
8521: IS
8522: --
8523: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_POS_FROM_SECURITY_LIST';
8524: begin
8525: hr_utility.set_location('Entering:'|| l_proc, 10);
8526: DELETE FROM PER_POSITION_LIST
8527: WHERE position_id = p_position_Id;
8528: exception
8529: when NO_DATA_FOUND then
8526: DELETE FROM PER_POSITION_LIST
8527: WHERE position_id = p_position_Id;
8528: exception
8529: when NO_DATA_FOUND then
8530: hr_utility.set_location(l_proc, 20);
8531: end delete_pos_from_security_list;
8532: --
8533: -- ----------------------------------------------------------------------------
8534: -- |----------------- delete_pay_from_security_list >---------------------|
8537: IS
8538: --
8539: l_proc varchar2(80) := 'HR_SECURITY_INTERNAL.DELETE_PAY_FROM_SECURITY_LIST';
8540: begin
8541: hr_utility.set_location('Entering:'|| l_proc, 10);
8542: DELETE FROM PAY_PAYROLL_LIST
8543: WHERE payroll_id = p_payroll_id;
8544: exception
8545: when NO_DATA_FOUND then
8542: DELETE FROM PAY_PAYROLL_LIST
8543: WHERE payroll_id = p_payroll_id;
8544: exception
8545: when NO_DATA_FOUND then
8546: hr_utility.set_location(l_proc, 20);
8547: end delete_pay_from_security_list;
8548: --
8549: END hr_security_internal;