[Home] [Help]
3:
4: g_pkg constant varchar2(30) := 'hxc_find_notify_aprs_pkg.';
5: g_trace VARCHAR2(2000);
6:
7: g_debug boolean := hr_utility.debug_enabled;
8:
9: --
10: -- useful information from time card building block
11: --
91: p_message in varchar2)
92: is
93: begin
94: if not p_expression then
95: hr_utility.set_message(801, 'FFPLU01_ASSERTION_FAILED');
96: hr_utility.set_message_token('LOCATION', p_message);
97: hr_utility.raise_error;
98: end if;
99: end assert;
92: is
93: begin
94: if not p_expression then
95: hr_utility.set_message(801, 'FFPLU01_ASSERTION_FAILED');
96: hr_utility.set_message_token('LOCATION', p_message);
97: hr_utility.raise_error;
98: end if;
99: end assert;
100:
93: begin
94: if not p_expression then
95: hr_utility.set_message(801, 'FFPLU01_ASSERTION_FAILED');
96: hr_utility.set_message_token('LOCATION', p_message);
97: hr_utility.raise_error;
98: end if;
99: end assert;
100:
101:
439: -- Bug 3345143
440: --cancel all the notifications associated with current
441: --application period and abort the current process.
442:
443: g_debug := hr_utility.debug_enabled;
444:
445:
446: if g_debug then
447: hr_utility.trace('cancelling notifications for ' || p_app_bb_id);
443: g_debug := hr_utility.debug_enabled;
444:
445:
446: if g_debug then
447: hr_utility.trace('cancelling notifications for ' || p_app_bb_id);
448: end if;
449: -- OPEN c_duplicate_notifications(p_app_bb_id);
450: -- LOOP
451: -- FETCH c_duplicate_notifications into l_notification_id;
452: -- EXIT WHEN c_duplicate_notifications%NOTFOUND;
453: -- wf_notification.cancel(l_notification_id,
454: -- 'canceled because a new notification is sent');
455: -- if g_debug then
456: -- hr_utility.trace('cancelled ' || l_notification_id);
457: -- end if;
458: -- END LOOP;
459: -- CLOSE c_duplicate_notifications;
460:
629:
630: l_app_id hxc_time_building_blocks.time_building_block_id%TYPE;
631:
632: BEGIN
633: g_debug:=hr_utility.debug_enabled;
634: OPEN c_app_periods(p_timecard_id);
635:
636: LOOP
637: FETCH c_app_periods INTO l_app_id;
638:
639: EXIT WHEN c_app_periods%NOTFOUND;
640:
641: if g_debug then
642: hr_utility.trace('in cancelling notifications: found app id=' || l_app_id);
643: end if;
644: cancel_notifications(l_app_id);
645: END LOOP;
646:
683: fetch csr_tc_info into g_info.tc;
684:
685: if csr_tc_info%notfound then
686: close csr_tc_info;
687: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
688: hr_utility.set_message_token('PROCEDURE', l_proc);
689: hr_utility.set_message_token('STEP', '10');
690: hr_utility.raise_error;
691: end if;
684:
685: if csr_tc_info%notfound then
686: close csr_tc_info;
687: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
688: hr_utility.set_message_token('PROCEDURE', l_proc);
689: hr_utility.set_message_token('STEP', '10');
690: hr_utility.raise_error;
691: end if;
692:
685: if csr_tc_info%notfound then
686: close csr_tc_info;
687: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
688: hr_utility.set_message_token('PROCEDURE', l_proc);
689: hr_utility.set_message_token('STEP', '10');
690: hr_utility.raise_error;
691: end if;
692:
693: close csr_tc_info;
686: close csr_tc_info;
687: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
688: hr_utility.set_message_token('PROCEDURE', l_proc);
689: hr_utility.set_message_token('STEP', '10');
690: hr_utility.raise_error;
691: end if;
692:
693: close csr_tc_info;
694: end if;
700: fetch csr_ap_info into g_info.ap;
701:
702: if csr_ap_info%notfound then
703: close csr_ap_info;
704: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
705: hr_utility.set_message_token('PROCEDURE', l_proc);
706: hr_utility.set_message_token('STEP', '20');
707: hr_utility.raise_error;
708: end if;
701:
702: if csr_ap_info%notfound then
703: close csr_ap_info;
704: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
705: hr_utility.set_message_token('PROCEDURE', l_proc);
706: hr_utility.set_message_token('STEP', '20');
707: hr_utility.raise_error;
708: end if;
709:
702: if csr_ap_info%notfound then
703: close csr_ap_info;
704: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
705: hr_utility.set_message_token('PROCEDURE', l_proc);
706: hr_utility.set_message_token('STEP', '20');
707: hr_utility.raise_error;
708: end if;
709:
710: close csr_ap_info;
703: close csr_ap_info;
704: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
705: hr_utility.set_message_token('PROCEDURE', l_proc);
706: hr_utility.set_message_token('STEP', '20');
707: hr_utility.raise_error;
708: end if;
709:
710: close csr_ap_info;
711:
806: l_approval_mechanism_id hxc_approval_comps.approval_mechanism_id%TYPE;
807: l_wf_item_type hxc_approval_comps.wf_item_type%TYPE;
808: l_wf_name hxc_approval_comps.wf_name%TYPE;
809: begin
810: g_debug:=hr_utility.debug_enabled;
811: --sb_msgs_pkg.begin_call(l_proc);
812: --sb_msgs_pkg.trace('p_funcmode>' || p_funcmode || '<');
813: g_trace := '10';
814:
836: g_trace := '20';
837:
838: if l_tc_bb_id is null or l_tc_bb_ovn is null or
839: l_ap_bb_id is null or l_ap_bb_ovn is null then
840: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
841: hr_utility.set_message_token('PROCEDURE', l_proc);
842: hr_utility.set_message_token('STEP', '10');
843: hr_utility.raise_error;
844: end if;
837:
838: if l_tc_bb_id is null or l_tc_bb_ovn is null or
839: l_ap_bb_id is null or l_ap_bb_ovn is null then
840: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
841: hr_utility.set_message_token('PROCEDURE', l_proc);
842: hr_utility.set_message_token('STEP', '10');
843: hr_utility.raise_error;
844: end if;
845:
838: if l_tc_bb_id is null or l_tc_bb_ovn is null or
839: l_ap_bb_id is null or l_ap_bb_ovn is null then
840: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
841: hr_utility.set_message_token('PROCEDURE', l_proc);
842: hr_utility.set_message_token('STEP', '10');
843: hr_utility.raise_error;
844: end if;
845:
846: g_trace := '30';
839: l_ap_bb_id is null or l_ap_bb_ovn is null then
840: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
841: hr_utility.set_message_token('PROCEDURE', l_proc);
842: hr_utility.set_message_token('STEP', '10');
843: hr_utility.raise_error;
844: end if;
845:
846: g_trace := '30';
847:
852:
853: if c_tc_info%notfound then
854:
855: close c_tc_info;
856: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
857: hr_utility.set_message_token('PROCEDURE', l_proc);
858: hr_utility.set_message_token('STEP', '12');
859: hr_utility.raise_error;
860: end if;
853: if c_tc_info%notfound then
854:
855: close c_tc_info;
856: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
857: hr_utility.set_message_token('PROCEDURE', l_proc);
858: hr_utility.set_message_token('STEP', '12');
859: hr_utility.raise_error;
860: end if;
861:
854:
855: close c_tc_info;
856: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
857: hr_utility.set_message_token('PROCEDURE', l_proc);
858: hr_utility.set_message_token('STEP', '12');
859: hr_utility.raise_error;
860: end if;
861:
862: close c_tc_info;
855: close c_tc_info;
856: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
857: hr_utility.set_message_token('PROCEDURE', l_proc);
858: hr_utility.set_message_token('STEP', '12');
859: hr_utility.raise_error;
860: end if;
861:
862: close c_tc_info;
863:
865: g_trace := '40';
866:
867: --fetch approval detail
868: if g_debug then
869: hr_utility.trace('app id=' || l_ap_bb_id);
870: hr_utility.trace('app ovn=' || l_ap_bb_ovn);
871: end if;
872: OPEN c_approval_comp(l_ap_bb_id, l_ap_bb_ovn);
873: FETCH c_approval_comp INTO l_approval_mechanism
866:
867: --fetch approval detail
868: if g_debug then
869: hr_utility.trace('app id=' || l_ap_bb_id);
870: hr_utility.trace('app ovn=' || l_ap_bb_ovn);
871: end if;
872: OPEN c_approval_comp(l_ap_bb_id, l_ap_bb_ovn);
873: FETCH c_approval_comp INTO l_approval_mechanism
874: ,l_approval_mechanism_id
895: ,l_wf_name;
896:
897: if(c_approval_comp_alt%notfound) then
898: close c_approval_comp_alt;
899: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
900: hr_utility.set_message_token('PROCEDURE', l_proc);
901: hr_utility.set_message_token('STEP', '18');
902: hr_utility.raise_error;
903: else
896:
897: if(c_approval_comp_alt%notfound) then
898: close c_approval_comp_alt;
899: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
900: hr_utility.set_message_token('PROCEDURE', l_proc);
901: hr_utility.set_message_token('STEP', '18');
902: hr_utility.raise_error;
903: else
904: close c_approval_comp_alt;
897: if(c_approval_comp_alt%notfound) then
898: close c_approval_comp_alt;
899: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
900: hr_utility.set_message_token('PROCEDURE', l_proc);
901: hr_utility.set_message_token('STEP', '18');
902: hr_utility.raise_error;
903: else
904: close c_approval_comp_alt;
905: end if;
898: close c_approval_comp_alt;
899: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
900: hr_utility.set_message_token('PROCEDURE', l_proc);
901: hr_utility.set_message_token('STEP', '18');
902: hr_utility.raise_error;
903: else
904: close c_approval_comp_alt;
905: end if;
906:
907: else
908: CLOSE c_approval_comp;
909: END IF;
910: if g_debug then
911: hr_utility.trace('mechanism=' || l_approval_mechanism);
912: hr_utility.trace('mechanism_id=' || l_approval_mechanism_id);
913: hr_utility.trace('item_type=' || l_wf_item_type);
914: hr_utility.trace('wf_name=' || l_wf_name);
915: end if;
908: CLOSE c_approval_comp;
909: END IF;
910: if g_debug then
911: hr_utility.trace('mechanism=' || l_approval_mechanism);
912: hr_utility.trace('mechanism_id=' || l_approval_mechanism_id);
913: hr_utility.trace('item_type=' || l_wf_item_type);
914: hr_utility.trace('wf_name=' || l_wf_name);
915: end if;
916: g_trace := '60';
909: END IF;
910: if g_debug then
911: hr_utility.trace('mechanism=' || l_approval_mechanism);
912: hr_utility.trace('mechanism_id=' || l_approval_mechanism_id);
913: hr_utility.trace('item_type=' || l_wf_item_type);
914: hr_utility.trace('wf_name=' || l_wf_name);
915: end if;
916: g_trace := '60';
917:
910: if g_debug then
911: hr_utility.trace('mechanism=' || l_approval_mechanism);
912: hr_utility.trace('mechanism_id=' || l_approval_mechanism_id);
913: hr_utility.trace('item_type=' || l_wf_item_type);
914: hr_utility.trace('wf_name=' || l_wf_name);
915: end if;
916: g_trace := '60';
917:
918: -- set tokens used by all notifications
948: );
949:
950: exception
951: when others then
952: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
953: hr_utility.set_message_token('PROCEDURE', l_proc);
954: hr_utility.set_message_token('STEP', '20');
955: hr_utility.raise_error;
956: end;
949:
950: exception
951: when others then
952: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
953: hr_utility.set_message_token('PROCEDURE', l_proc);
954: hr_utility.set_message_token('STEP', '20');
955: hr_utility.raise_error;
956: end;
957:
950: exception
951: when others then
952: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
953: hr_utility.set_message_token('PROCEDURE', l_proc);
954: hr_utility.set_message_token('STEP', '20');
955: hr_utility.raise_error;
956: end;
957:
958: end if;
951: when others then
952: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
953: hr_utility.set_message_token('PROCEDURE', l_proc);
954: hr_utility.set_message_token('STEP', '20');
955: hr_utility.raise_error;
956: end;
957:
958: end if;
959:
1060: p_result := 'COMPLETE:PROJECT_MANAGER';
1061:
1062: else
1063: g_trace := '250';
1064: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1065: hr_utility.set_message_token('PROCEDURE', l_proc);
1066: hr_utility.set_message_token('STEP', '30');
1067: hr_utility.raise_error;
1068: end if;
1061:
1062: else
1063: g_trace := '250';
1064: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1065: hr_utility.set_message_token('PROCEDURE', l_proc);
1066: hr_utility.set_message_token('STEP', '30');
1067: hr_utility.raise_error;
1068: end if;
1069:
1062: else
1063: g_trace := '250';
1064: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1065: hr_utility.set_message_token('PROCEDURE', l_proc);
1066: hr_utility.set_message_token('STEP', '30');
1067: hr_utility.raise_error;
1068: end if;
1069:
1070: end if;
1063: g_trace := '250';
1064: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1065: hr_utility.set_message_token('PROCEDURE', l_proc);
1066: hr_utility.set_message_token('STEP', '30');
1067: hr_utility.raise_error;
1068: end if;
1069:
1070: end if;
1071:
1145: is
1146: l_proc constant varchar2(61) := g_pkg || '.' || 'capture_approved_status';
1147: l_approvers_visited number;
1148: begin
1149: g_debug:=hr_utility.debug_enabled;
1150: --sb_msgs_pkg.begin_call(l_proc);
1151: --sb_msgs_pkg.trace('p_funcmode>' || p_funcmode || '<');
1152: if g_debug then
1153: hr_utility.trace('capture approved status');
1149: g_debug:=hr_utility.debug_enabled;
1150: --sb_msgs_pkg.begin_call(l_proc);
1151: --sb_msgs_pkg.trace('p_funcmode>' || p_funcmode || '<');
1152: if g_debug then
1153: hr_utility.trace('capture approved status');
1154: end if;
1155: if p_funcmode = 'RUN' then
1156:
1157: set_real_approver(
1165: itemtype => p_itemtype,
1166: itemkey => p_itemkey,
1167: aname => 'APPROVERS_VISITED');
1168: if g_debug then
1169: hr_utility.trace('l_approvers_visited=' || l_approvers_visited);
1170: end if;
1171: wf_engine.SetItemAttrNumber(itemtype => p_itemtype,
1172: itemkey => p_itemkey,
1173: aname => 'APPROVED_AT_LEVEL',
1397:
1398: l_proc VARCHAR2(100);
1399: l_is_blank varchar2(1);
1400: begin
1401: g_debug:=hr_utility.debug_enabled;
1402: if g_debug then
1403: l_proc := g_pkg || 'find_project_manager';
1404: hr_utility.trace('in ' || l_proc);
1405: end if;
1400: begin
1401: g_debug:=hr_utility.debug_enabled;
1402: if g_debug then
1403: l_proc := g_pkg || 'find_project_manager';
1404: hr_utility.trace('in ' || l_proc);
1405: end if;
1406: l_ap_bb_id := wf_engine.GetItemAttrNumber(
1407: itemtype => p_itemtype,
1408: itemkey => p_itemkey,
1453: IF l_project_manager IS NULL
1454: THEN
1455: g_trace :=' project manager is null';
1456:
1457: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1458: hr_utility.set_message_token('PROCEDURE', l_proc);
1459: hr_utility.set_message_token('STEP', '10');
1460: hr_utility.raise_error;
1461:
1454: THEN
1455: g_trace :=' project manager is null';
1456:
1457: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1458: hr_utility.set_message_token('PROCEDURE', l_proc);
1459: hr_utility.set_message_token('STEP', '10');
1460: hr_utility.raise_error;
1461:
1462: END IF;
1455: g_trace :=' project manager is null';
1456:
1457: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1458: hr_utility.set_message_token('PROCEDURE', l_proc);
1459: hr_utility.set_message_token('STEP', '10');
1460: hr_utility.raise_error;
1461:
1462: END IF;
1463:
1456:
1457: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1458: hr_utility.set_message_token('PROCEDURE', l_proc);
1459: hr_utility.set_message_token('STEP', '10');
1460: hr_utility.raise_error;
1461:
1462: END IF;
1463:
1464: wf_engine.SetItemAttrNumber(
1486: avalue => l_project_manager);
1487: p_result := 'COMPLETE';
1488: else
1489: if g_debug then
1490: hr_utility.trace('project id and previous approver are null');
1491: end if;
1492: g_trace :='no project id or approver';
1493: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1494: hr_utility.set_message_token('PROCEDURE', l_proc);
1489: if g_debug then
1490: hr_utility.trace('project id and previous approver are null');
1491: end if;
1492: g_trace :='no project id or approver';
1493: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1494: hr_utility.set_message_token('PROCEDURE', l_proc);
1495: hr_utility.set_message_token('STEP', '20');
1496: hr_utility.raise_error;
1497: end if;
1490: hr_utility.trace('project id and previous approver are null');
1491: end if;
1492: g_trace :='no project id or approver';
1493: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1494: hr_utility.set_message_token('PROCEDURE', l_proc);
1495: hr_utility.set_message_token('STEP', '20');
1496: hr_utility.raise_error;
1497: end if;
1498: END IF;
1491: end if;
1492: g_trace :='no project id or approver';
1493: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1494: hr_utility.set_message_token('PROCEDURE', l_proc);
1495: hr_utility.set_message_token('STEP', '20');
1496: hr_utility.raise_error;
1497: end if;
1498: END IF;
1499:
1492: g_trace :='no project id or approver';
1493: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1494: hr_utility.set_message_token('PROCEDURE', l_proc);
1495: hr_utility.set_message_token('STEP', '20');
1496: hr_utility.raise_error;
1497: end if;
1498: END IF;
1499:
1500: EXCEPTION
1502: -- The line below records this function call in the error system
1503: -- in the case of an exception.
1504: --
1505: if g_debug then
1506: hr_utility.set_location(l_proc, 999);
1507: --
1508: hr_utility.trace('IN EXCEPTION IN find_project_manager');
1509: --
1510: end if;
1504: --
1505: if g_debug then
1506: hr_utility.set_location(l_proc, 999);
1507: --
1508: hr_utility.trace('IN EXCEPTION IN find_project_manager');
1509: --
1510: end if;
1511: wf_core.context('HCAPPRWF', l_proc,
1512: p_itemtype, p_itemkey, to_char(p_actid), p_funcmode, g_trace);
1860: avalue => l_apr_person_id);
1861: ELSE
1862: -- Check if the approver is terminated (Bug#3160848)
1863:
1864: hr_utility.set_message(809, 'HXC_APPR_WF_TERMINATED_APPR');-- If approver is terminated then raise an error
1865: hr_utility.raise_error;
1866: end if;
1867: END IF;
1868:
1861: ELSE
1862: -- Check if the approver is terminated (Bug#3160848)
1863:
1864: hr_utility.set_message(809, 'HXC_APPR_WF_TERMINATED_APPR');-- If approver is terminated then raise an error
1865: hr_utility.raise_error;
1866: end if;
1867: END IF;
1868:
1869: --
1875: -- if null returned, approver does not have a self service login name,
1876: -- where does notification get sent?
1877: --
1878: if l_login is null then
1879: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1880: hr_utility.set_message_token('PROCEDURE', l_proc);
1881: hr_utility.set_message_token('STEP', '10');
1882: hr_utility.raise_error;
1883: end if;
1876: -- where does notification get sent?
1877: --
1878: if l_login is null then
1879: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1880: hr_utility.set_message_token('PROCEDURE', l_proc);
1881: hr_utility.set_message_token('STEP', '10');
1882: hr_utility.raise_error;
1883: end if;
1884:
1877: --
1878: if l_login is null then
1879: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1880: hr_utility.set_message_token('PROCEDURE', l_proc);
1881: hr_utility.set_message_token('STEP', '10');
1882: hr_utility.raise_error;
1883: end if;
1884:
1885: --sb_msgs_pkg.trace('approver login>' || l_login || '<');
1878: if l_login is null then
1879: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1880: hr_utility.set_message_token('PROCEDURE', l_proc);
1881: hr_utility.set_message_token('STEP', '10');
1882: hr_utility.raise_error;
1883: end if;
1884:
1885: --sb_msgs_pkg.trace('approver login>' || l_login || '<');
1886:
2089: IN OUT l_approver_person_id,
2090: IN OUT l_message;
2091:
2092: if g_debug then
2093: hr_utility.trace('After client extension');
2094: --
2095: hr_utility.trace('Previous APPR ID is : ' || to_char(l_previous_approver_id));
2096: hr_utility.trace('APPR ID is : ' || to_char(l_approver_person_id));
2097: hr_utility.trace('Message is : ' || l_message);
2091:
2092: if g_debug then
2093: hr_utility.trace('After client extension');
2094: --
2095: hr_utility.trace('Previous APPR ID is : ' || to_char(l_previous_approver_id));
2096: hr_utility.trace('APPR ID is : ' || to_char(l_approver_person_id));
2097: hr_utility.trace('Message is : ' || l_message);
2098: end if;
2099: IF l_message IS NOT NULL
2092: if g_debug then
2093: hr_utility.trace('After client extension');
2094: --
2095: hr_utility.trace('Previous APPR ID is : ' || to_char(l_previous_approver_id));
2096: hr_utility.trace('APPR ID is : ' || to_char(l_approver_person_id));
2097: hr_utility.trace('Message is : ' || l_message);
2098: end if;
2099: IF l_message IS NOT NULL
2100: THEN
2093: hr_utility.trace('After client extension');
2094: --
2095: hr_utility.trace('Previous APPR ID is : ' || to_char(l_previous_approver_id));
2096: hr_utility.trace('APPR ID is : ' || to_char(l_approver_person_id));
2097: hr_utility.trace('Message is : ' || l_message);
2098: end if;
2099: IF l_message IS NOT NULL
2100: THEN
2101: l_message_table := hxc_deposit_wrapper_utilities.string_to_messages
2233:
2234: --
2235: begin
2236:
2237: g_debug:=hr_utility.debug_enabled;
2238:
2239: IF p_funcmode <> 'CANCEL' THEN
2240:
2241: g_trace := 'Begin hr_supervisor_approval';
2239: IF p_funcmode <> 'CANCEL' THEN
2240:
2241: g_trace := 'Begin hr_supervisor_approval';
2242: if g_debug then
2243: hr_utility.trace('Begin hr_supervisor_approval');
2244: end if;
2245:
2246: l_tc_bld_blk_id := wf_engine.GetItemAttrNumber
2247: (itemtype => p_itemtype,
2250:
2251: g_trace := 'Timecard BB ID is : ' || to_char(l_tc_bld_blk_id);
2252:
2253: if g_debug then
2254: hr_utility.trace('Timecard BB ID is : ' || to_char(l_tc_bld_blk_id));
2255: end if;
2256: l_tc_ovn := wf_engine.GetItemAttrNumber
2257: (itemtype => p_itemtype,
2258: itemkey => p_itemkey,
2311: close csr_get_extension;
2312:
2313: g_trace := 'Before client extension=' || l_ext_func2;
2314: if g_debug then
2315: hr_utility.trace('Before client extension=' || l_ext_func2);
2316: end if;
2317: -- Bug 4177487. For an empty Timecard (Timecard that does not have DETAIL level records),
2318: -- we need not call the PA extension function.
2319: open c_details_of_timecard( l_tc_bld_blk_id );
2328: IF l_ext_func2 IS NOT NULL and l_tc_has_details_flag = 'Y'
2329: THEN
2330: g_trace := 'extension not null';
2331: if g_debug then
2332: hr_utility.trace('extension not null');
2333: end if;
2334: IF hxc_approval_wf_pkg.code_chk(l_ext_func2)
2335: THEN
2336: g_trace := 'extension code exists';
2334: IF hxc_approval_wf_pkg.code_chk(l_ext_func2)
2335: THEN
2336: g_trace := 'extension code exists';
2337: if g_debug then
2338: hr_utility.trace('extension code exists');
2339: end if;
2340: wf_engine.SetItemAttrText(itemtype => p_itemtype,
2341: itemkey => p_itemkey,
2342: aname => 'APR_KEY_LEVEL',
2356:
2357: g_trace := 'before processing extension l_previous_approver_id='
2358: || to_char(l_person_id);
2359: if g_debug then
2360: hr_utility.trace('before processing extension l_previous_approver_id='
2361: || to_char(l_person_id));
2362: end if;
2363:
2364: --Bug 5386274
2379:
2380: g_trace := 'after processing extension l_supervisor_id='
2381: || to_char(l_supervisor_id);
2382: if g_debug then
2383: hr_utility.trace('after processing extension l_supervisor_id='
2384: || to_char(l_supervisor_id));
2385: end if;
2386: IF l_supervisor_id IS NOT NULL
2387: THEN
2386: IF l_supervisor_id IS NOT NULL
2387: THEN
2388: g_trace := 'testing if this is the final approver';
2389: if g_debug then
2390: hr_utility.trace('testing if this is the final approver');
2391: end if;
2392: process_extension_func2(
2393: p_tc_id => l_tc_bld_blk_id
2394: ,p_tc_ovn => l_tc_ovn
2399: );
2400:
2401: g_trace := 'end calling extension';
2402: if g_debug then
2403: hr_utility.trace('end calling extension');
2404: end if;
2405: IF l_next_supervisor_id = -99
2406: THEN
2407: wf_engine.SetItemAttrText(itemtype => p_itemtype,
2410: avalue => 'YES');
2411:
2412: g_trace := 'FINAL_APR is : YES';
2413: if g_debug then
2414: hr_utility.trace('FINAL_APR is : YES');
2415: end if;
2416: END IF;
2417:
2418: g_trace := 'end testing final approver';
2416: END IF;
2417:
2418: g_trace := 'end testing final approver';
2419: if g_debug then
2420: hr_utility.trace('end testing final approver');
2421: end if;
2422: END IF;
2423:
2424: ELSE
2422: END IF;
2423:
2424: ELSE
2425: g_trace := 'extension function=' || l_ext_func2 || 'not exist in db';
2426: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2427: hr_utility.set_message_token('PROCEDURE', l_proc);
2428: hr_utility.set_message_token('STEP', '10');
2429: hr_utility.raise_error;
2430:
2423:
2424: ELSE
2425: g_trace := 'extension function=' || l_ext_func2 || 'not exist in db';
2426: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2427: hr_utility.set_message_token('PROCEDURE', l_proc);
2428: hr_utility.set_message_token('STEP', '10');
2429: hr_utility.raise_error;
2430:
2431: END IF;
2424: ELSE
2425: g_trace := 'extension function=' || l_ext_func2 || 'not exist in db';
2426: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2427: hr_utility.set_message_token('PROCEDURE', l_proc);
2428: hr_utility.set_message_token('STEP', '10');
2429: hr_utility.raise_error;
2430:
2431: END IF;
2432: ELSE -- if no client extension, find supervisor from assignments
2425: g_trace := 'extension function=' || l_ext_func2 || 'not exist in db';
2426: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2427: hr_utility.set_message_token('PROCEDURE', l_proc);
2428: hr_utility.set_message_token('STEP', '10');
2429: hr_utility.raise_error;
2430:
2431: END IF;
2432: ELSE -- if no client extension, find supervisor from assignments
2433: wf_engine.SetItemAttrText(itemtype => p_itemtype,
2438:
2439: --Bug 2777538 sonarasi 20-FEB-2003
2440: g_trace := 'no extension function checking assignment';
2441: if g_debug then
2442: hr_utility.trace('no extension function checking assignment');
2443: end if;
2444:
2445: -- Bug 4202019. These variables need to be set outside this IF block.
2446: /*
2479: --
2480: if l_supervisor_id is null and l_approvers_visited = 0 then
2481: g_trace := '200';
2482: if g_debug then
2483: hr_utility.trace('200');
2484: end if;
2485:
2486: hr_utility.set_message(809, 'HXC_APPR_WF_NO_HR_SUP');
2487: hr_utility.raise_error;
2482: if g_debug then
2483: hr_utility.trace('200');
2484: end if;
2485:
2486: hr_utility.set_message(809, 'HXC_APPR_WF_NO_HR_SUP');
2487: hr_utility.raise_error;
2488: end if;
2489:
2490: g_trace := 'supervisor is not null';
2483: hr_utility.trace('200');
2484: end if;
2485:
2486: hr_utility.set_message(809, 'HXC_APPR_WF_NO_HR_SUP');
2487: hr_utility.raise_error;
2488: end if;
2489:
2490: g_trace := 'supervisor is not null';
2491: if g_debug then
2488: end if;
2489:
2490: g_trace := 'supervisor is not null';
2491: if g_debug then
2492: hr_utility.trace('supervisor is not null');
2493: end if;
2494: -- set up timeout properties for first approver in hierarchy
2495:
2496: IF l_ext_func2 IS NULL
2496: IF l_ext_func2 IS NULL
2497: THEN
2498: g_trace := 'setting timeout';
2499: if g_debug then
2500: hr_utility.trace('setting timeout');
2501: end if;
2502: if l_approvers_visited = 0 then
2503:
2504: -- if supervisors exist after first approver then notification
2507: if get_supervisor(l_supervisor_id, SYSDATE) is not null
2508: then
2509: g_trace :='allow timeout';
2510: if g_debug then
2511: hr_utility.trace('allow timeout');
2512: end if;
2513: l_default_timeout := wf_engine.GetItemAttrText(
2514: itemtype => p_itemtype,
2515: itemkey => p_itemkey,
2522: avalue => l_default_timeout);
2523:
2524: g_trace := 'timeout=' || to_char(l_default_timeout);
2525: if g_debug then
2526: hr_utility.trace('timeout=' || to_char(l_default_timeout));
2527: end if;
2528: -- if no more supervisors exist after first approver then
2529: -- notification sent to next approver NOT allowed to timeout
2530: else
2529: -- notification sent to next approver NOT allowed to timeout
2530: else
2531: g_trace :='NOT allow timeout';
2532: if g_debug then
2533: hr_utility.trace('NOT allow timeout');
2534: end if;
2535: wf_engine.SetItemAttrNumber(itemtype => p_itemtype,
2536: itemkey => p_itemkey,
2537: aname => 'APPROVAL_TIMEOUT',
2544:
2545:
2546: g_trace := 'find supervisor self service login';
2547: if g_debug then
2548: hr_utility.trace('find supervisor self service login');
2549: end if;
2550: -- find supervisor self service login
2551: l_login := get_login(p_person_id =>l_supervisor_id);
2552:
2552:
2553: if l_login is null then
2554: g_trace := 'RAISE: no self service login for supervisor';
2555: if g_debug then
2556: hr_utility.trace('RAISE: no self service login for supervisor');
2557: end if;
2558: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2559: hr_utility.set_message_token('PROCEDURE', l_proc);
2560: hr_utility.set_message_token('STEP', '30');
2554: g_trace := 'RAISE: no self service login for supervisor';
2555: if g_debug then
2556: hr_utility.trace('RAISE: no self service login for supervisor');
2557: end if;
2558: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2559: hr_utility.set_message_token('PROCEDURE', l_proc);
2560: hr_utility.set_message_token('STEP', '30');
2561: hr_utility.raise_error;
2562: end if;
2555: if g_debug then
2556: hr_utility.trace('RAISE: no self service login for supervisor');
2557: end if;
2558: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2559: hr_utility.set_message_token('PROCEDURE', l_proc);
2560: hr_utility.set_message_token('STEP', '30');
2561: hr_utility.raise_error;
2562: end if;
2563:
2556: hr_utility.trace('RAISE: no self service login for supervisor');
2557: end if;
2558: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2559: hr_utility.set_message_token('PROCEDURE', l_proc);
2560: hr_utility.set_message_token('STEP', '30');
2561: hr_utility.raise_error;
2562: end if;
2563:
2564: g_trace := 'supervisor ss login=' || l_login;
2557: end if;
2558: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2559: hr_utility.set_message_token('PROCEDURE', l_proc);
2560: hr_utility.set_message_token('STEP', '30');
2561: hr_utility.raise_error;
2562: end if;
2563:
2564: g_trace := 'supervisor ss login=' || l_login;
2565: if g_debug then
2562: end if;
2563:
2564: g_trace := 'supervisor ss login=' || l_login;
2565: if g_debug then
2566: hr_utility.trace('supervisor ss login=' || l_login);
2567: end if;
2568:
2569: -- supervisor found and notification to be sent,
2570: -- keep track of approvers visted to date
2570: -- keep track of approvers visted to date
2571:
2572: g_trace := 'increase approvers visited';
2573: if g_debug then
2574: hr_utility.trace('increase approvers visited');
2575: end if;
2576: inc_approvers_visited(p_itemtype, p_itemkey);
2577:
2578: wf_engine.SetItemAttrText(
2583: );
2584:
2585: g_trace := 'setting apr_name';
2586: if g_debug then
2587: hr_utility.trace('setting apr_name');
2588: end if;
2589: -- set information for notification
2590: wf_engine.SetItemAttrText(
2591: itemtype => p_itemtype,
2595: );
2596:
2597: g_trace := 'setting from_role';
2598: if g_debug then
2599: hr_utility.trace('setting from_role');
2600: end if;
2601: wf_engine.SetItemAttrText(
2602: itemtype => p_itemtype,
2603: itemkey => p_itemkey,
2606: );
2607:
2608: g_trace := '300';
2609: if g_debug then
2610: hr_utility.trace('Notification Sent to : '||to_char(l_supervisor_id));
2611: end if;
2612: --
2613: -- set supervisor's person id, ready for next iteration
2614:
2677:
2678:
2679: g_trace := '500';
2680: if g_debug then
2681: hr_utility.trace('500');
2682: end if;
2683: p_result := 'COMPLETE:Y';
2684:
2685: end if;
2851: l_apr_key_level number;
2852: l_approved_at_level number;
2853: l_approvers_visited number;
2854: begin
2855: g_debug:=hr_utility.debug_enabled;
2856: --sb_msgs_pkg.begin_call(l_proc);
2857: --sb_msgs_pkg.trace('p_funcmode>' || p_funcmode || '<');
2858: if g_debug then
2859: hr_utility.trace('is final approver');
2855: g_debug:=hr_utility.debug_enabled;
2856: --sb_msgs_pkg.begin_call(l_proc);
2857: --sb_msgs_pkg.trace('p_funcmode>' || p_funcmode || '<');
2858: if g_debug then
2859: hr_utility.trace('is final approver');
2860: end if;
2861: if p_funcmode = 'RUN' then
2862:
2863: l_final_apr := wf_engine.GetItemAttrText(
2867:
2868:
2869: IF l_final_apr = 'YES' THEN
2870: if g_debug then
2871: hr_utility.trace('Final!');
2872: end if;
2873: p_result := 'COMPLETE:Y';
2874: return;
2875: ELSIF l_final_apr = 'NO' THEN
2873: p_result := 'COMPLETE:Y';
2874: return;
2875: ELSIF l_final_apr = 'NO' THEN
2876: if g_debug then
2877: hr_utility.trace('extension not final');
2878: end if;
2879: p_result := 'COMPLETE:N';
2880: return;
2881: END IF;
2891: return;
2892: END IF;
2893:
2894: if g_debug then
2895: hr_utility.trace('NOT final');
2896: end if;
2897:
2898: l_effective_date := wf_engine.GetItemAttrDate(
2899: itemtype => p_itemtype,
2935: if l_approvers_visited + 1 < l_apr_key_level then
2936: --sb_msgs_pkg.trace('10 - if');
2937:
2938: if g_debug then
2939: hr_utility.trace('not final 1');
2940: end if;
2941:
2942: wf_engine.SetItemAttrNumber(itemtype => p_itemtype,
2943: itemkey => p_itemkey,
2975: avalue => 0);
2976: end if;
2977:
2978: if g_debug then
2979: hr_utility.trace('not final 2');
2980: end if;
2981:
2982: p_result := 'COMPLETE:N';
2983: --
2991:
2992: if l_approved_at_level >= l_apr_key_level then
2993: --sb_msgs_pkg.trace('32 - if');
2994: if g_debug then
2995: hr_utility.trace('Yes final 1');
2996: end if;
2997: p_result := 'COMPLETE:Y';
2998: else
2999: --sb_msgs_pkg.trace('34 - else');
2998: else
2999: --sb_msgs_pkg.trace('34 - else');
3000:
3001: if g_debug then
3002: hr_utility.trace('not final 3');
3003: end if;
3004:
3005: wf_engine.SetItemAttrNumber(itemtype => p_itemtype,
3006: itemkey => p_itemkey,
3021: end if;
3022:
3023: if p_funcmode = 'CANCEL' then
3024: if g_debug then
3025: hr_utility.trace('cancelled');
3026: end if;
3027:
3028: p_result := 'COMPLETE';
3029: end if;
3030:
3031: if p_funcmode = 'TIMEOUT' then
3032:
3033: if g_debug then
3034: hr_utility.trace('completed');
3035: end if;
3036:
3037: p_result := 'COMPLETE';
3038: end if;
3082: --sb_msgs_pkg.trace('p_funcmode>' || p_funcmode || '<');
3083:
3084: if g_debug then
3085: l_proc := g_pkg || '.' || 'formula_selects_mechanism';
3086: hr_utility.set_location(l_proc, 10);
3087: end if;
3088:
3089: l_person_id := wf_engine.GetItemAttrNumber(
3090: itemtype => p_itemtype,
3101: itemkey => p_itemkey,
3102: aname => 'FORMULA_ID');
3103:
3104: if g_debug then
3105: hr_utility.set_location(l_proc, 20);
3106: end if;
3107:
3108: --
3109: -- initialise formula
3118: -- nb. no contexts are used
3119: --
3120:
3121: if g_debug then
3122: hr_utility.set_location(l_proc, 30);
3123: end if;
3124:
3125: hr_utility.trace('Input count is:'||l_inputs.count);
3126:
3121: if g_debug then
3122: hr_utility.set_location(l_proc, 30);
3123: end if;
3124:
3125: hr_utility.trace('Input count is:'||l_inputs.count);
3126:
3127: for i in l_inputs.first..l_inputs.last loop
3128:
3129: hr_utility.trace('Input name:'||l_inputs(i).name);
3125: hr_utility.trace('Input count is:'||l_inputs.count);
3126:
3127: for i in l_inputs.first..l_inputs.last loop
3128:
3129: hr_utility.trace('Input name:'||l_inputs(i).name);
3130:
3131: if l_inputs(i).name = 'TIMECARD_BB_ID' then
3132:
3133: if g_debug then
3130:
3131: if l_inputs(i).name = 'TIMECARD_BB_ID' then
3132:
3133: if g_debug then
3134: hr_utility.set_location(l_proc, 40);
3135: end if;
3136: l_inputs(i).value := wf_engine.GetItemAttrNumber(
3137: itemtype => p_itemtype,
3138: itemkey => p_itemkey,
3139: aname => 'TC_BLD_BLK_ID');
3140:
3141: elsif l_inputs(i).name = 'TIMECARD_BB_OVN' then
3142: if g_debug then
3143: hr_utility.set_location(l_proc, 50);
3144: end if;
3145: l_inputs(i).value := wf_engine.GetItemAttrNumber(
3146: itemtype => p_itemtype,
3147: itemkey => p_itemkey,
3148: aname => 'TC_BLD_BLK_OVN');
3149:
3150: elsif l_inputs(i).name = 'APPLICATION_PERIOD_BB_ID' then
3151: if g_debug then
3152: hr_utility.set_location(l_proc, 60);
3153: end if;
3154: l_inputs(i).value := wf_engine.GetItemAttrNumber(
3155: itemtype => p_itemtype,
3156: itemkey => p_itemkey,
3157: aname => 'APP_BB_ID');
3158:
3159: elsif l_inputs(i).name = 'APPLICATION_PERIOD_BB_OVN' then
3160: if g_debug then
3161: hr_utility.set_location(l_proc, 70);
3162: end if;
3163: l_inputs(i).value := wf_engine.GetItemAttrNumber(
3164: itemtype => p_itemtype,
3165: itemkey => p_itemkey,
3166: aname => 'APP_BB_OVN');
3167:
3168: elsif l_inputs(i).name = 'TIME_RECIPIENT_ID' then
3169: if g_debug then
3170: hr_utility.set_location(l_proc, 80);
3171: end if;
3172: l_inputs(i).value := wf_engine.GetItemAttrNumber(
3173: itemtype => p_itemtype,
3174: itemkey => p_itemkey,
3176: l_inputs(i).value := 5;
3177:
3178: elsif l_inputs(i).name = 'RESOURCE_ID' then
3179: if g_debug then
3180: hr_utility.set_location(l_proc, 90);
3181: end if;
3182: l_inputs(i).value := wf_engine.GetItemAttrNumber(
3183: itemtype => p_itemtype,
3184: itemkey => p_itemkey,
3185: aname => 'RESOURCE_ID');
3186:
3187: elsif l_inputs(i).name = 'RESOURCE_TYPE' then
3188: if g_debug then
3189: hr_utility.set_location(l_proc, 100);
3190: end if;
3191: l_inputs(i).value := 'abc';
3192:
3193: else
3193: else
3194: --
3195: -- context not recognised
3196: --
3197: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3198: hr_utility.set_message_token('PROCEDURE', l_proc);
3199: hr_utility.set_message_token('STEP', '20');
3200: hr_utility.raise_error;
3201: end if;
3194: --
3195: -- context not recognised
3196: --
3197: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3198: hr_utility.set_message_token('PROCEDURE', l_proc);
3199: hr_utility.set_message_token('STEP', '20');
3200: hr_utility.raise_error;
3201: end if;
3202: end loop;
3195: -- context not recognised
3196: --
3197: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3198: hr_utility.set_message_token('PROCEDURE', l_proc);
3199: hr_utility.set_message_token('STEP', '20');
3200: hr_utility.raise_error;
3201: end if;
3202: end loop;
3203:
3196: --
3197: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3198: hr_utility.set_message_token('PROCEDURE', l_proc);
3199: hr_utility.set_message_token('STEP', '20');
3200: hr_utility.raise_error;
3201: end if;
3202: end loop;
3203:
3204: if g_debug then
3201: end if;
3202: end loop;
3203:
3204: if g_debug then
3205: hr_utility.set_location(l_proc, 110);
3206: end if;
3207: --sb_msgs_pkg.trace('STEP 30 - before run_formula()');
3208: ff_exec.run_formula(l_inputs, l_outputs);
3209:
3207: --sb_msgs_pkg.trace('STEP 30 - before run_formula()');
3208: ff_exec.run_formula(l_inputs, l_outputs);
3209:
3210: if g_debug then
3211: hr_utility.set_location(l_proc, 120);
3212: end if;
3213:
3214: --
3215: -- obtain return values,
3219:
3220: for i in l_outputs.first..l_outputs.last loop
3221:
3222: if g_debug then
3223: hr_utility.set_location(l_proc, 130);
3224: end if;
3225:
3226: if l_outputs(i).name = 'APPROVAL_MECHANISM' then
3227: l_approval_mechanism := l_outputs(i).value;
3241: elsif l_outputs(i).name = 'FORMULA_MESSAGE' then
3242: l_formula_message := l_outputs(i).value;
3243:
3244: else
3245: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3246: hr_utility.set_message_token('PROCEDURE', l_proc);
3247: hr_utility.set_message_token('STEP', '50');
3248: hr_utility.raise_error;
3249: end if;
3242: l_formula_message := l_outputs(i).value;
3243:
3244: else
3245: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3246: hr_utility.set_message_token('PROCEDURE', l_proc);
3247: hr_utility.set_message_token('STEP', '50');
3248: hr_utility.raise_error;
3249: end if;
3250: end loop;
3243:
3244: else
3245: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3246: hr_utility.set_message_token('PROCEDURE', l_proc);
3247: hr_utility.set_message_token('STEP', '50');
3248: hr_utility.raise_error;
3249: end if;
3250: end loop;
3251:
3244: else
3245: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3246: hr_utility.set_message_token('PROCEDURE', l_proc);
3247: hr_utility.set_message_token('STEP', '50');
3248: hr_utility.raise_error;
3249: end if;
3250: end loop;
3251:
3252: --
3252: --
3253: -- check whether formual has raised an error and act appropriately
3254: --
3255: if g_debug then
3256: hr_utility.set_location(l_proc, 140);
3257: end if;
3258:
3259: if l_formula_status = 'E' then
3260: --
3260: --
3261: -- formula has failed, raise an error
3262: --
3263: if g_debug then
3264: hr_utility.set_location(l_proc, 150);
3265: end if;
3266:
3267: if l_formula_message is null then
3268: --
3269: -- user not defined an error message, raise OTC default message
3270: -- stub - need our own error message
3271: --
3272: fnd_message.set_name('PAY', 'HR_6648_ELE_ENTRY_FORMULA_ERR');
3273: hr_utility.raise_error;
3274: else
3275: --
3276: -- user has defined message, raise it
3277: --
3276: -- user has defined message, raise it
3277: --
3278: fnd_message.set_name('PAY', 'HR_ELE_ENTRY_FORMULA_HINT');
3279: fnd_message.set_token('FORMULA_TEXT', l_formula_message, false);
3280: hr_utility.raise_error;
3281: end if;
3282:
3283: elsif l_formula_status = 'W' then
3284:
3282:
3283: elsif l_formula_status = 'W' then
3284:
3285: if g_debug then
3286: hr_utility.set_location(l_proc, 160);
3287: end if;
3288: --
3289: -- formula has failed, but only warning necessary
3290: --
3292: --
3293: -- user has not defined an error message
3294: --
3295: fnd_message.set_name('PAY', 'HR_6648_ELE_ENTRY_FORMULA_ERR');
3296: hr_utility.set_warning;
3297: else
3298: --
3299: -- user has defined message, raise it
3300: --
3299: -- user has defined message, raise it
3300: --
3301: fnd_message.set_name('PAY', 'HR_ELE_ENTRY_FORMULA_HINT');
3302: fnd_message.set_token('FORMULA_TEXT', l_formula_message, false);
3303: hr_utility.set_warning;
3304: end if;
3305: end if;
3306:
3307: --
3309: --
3310: -- auto approval no further context is required
3311: --
3312: if g_debug then
3313: hr_utility.set_location(l_proc, 170);
3314: end if;
3315:
3316: if l_approval_mechanism = 'AUTO_APPROVE' then
3317: --sb_msgs_pkg.trace('formula selects auto approve approval');
3322: --
3323: elsif l_approval_mechanism = 'PERSON' then
3324: --sb_msgs_pkg.trace('formula selects person approval');
3325: if g_debug then
3326: hr_utility.set_location(l_proc, 180);
3327: end if;
3328:
3329: wf_engine.SetItemAttrNumber(itemtype => p_itemtype,
3330: itemkey => p_itemkey,
3331: aname => 'APR_PERSON_ID',
3332: avalue => l_approval_mechanism_id);
3333:
3334: if g_debug then
3335: hr_utility.set_location(l_proc, 190);
3336: end if;
3337:
3338: --
3339: -- HR supervisor approval, approving person id can derived from
3368: elsif l_approval_mechanism = 'PROJECT_MANAGER'
3369: then
3370: NULL;
3371: else
3372: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3373: hr_utility.set_message_token('PROCEDURE', l_proc);
3374: hr_utility.set_message_token('STEP', '60');
3375: hr_utility.raise_error;
3376: end if;
3369: then
3370: NULL;
3371: else
3372: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3373: hr_utility.set_message_token('PROCEDURE', l_proc);
3374: hr_utility.set_message_token('STEP', '60');
3375: hr_utility.raise_error;
3376: end if;
3377:
3370: NULL;
3371: else
3372: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3373: hr_utility.set_message_token('PROCEDURE', l_proc);
3374: hr_utility.set_message_token('STEP', '60');
3375: hr_utility.raise_error;
3376: end if;
3377:
3378: --
3371: else
3372: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3373: hr_utility.set_message_token('PROCEDURE', l_proc);
3374: hr_utility.set_message_token('STEP', '60');
3375: hr_utility.raise_error;
3376: end if;
3377:
3378: --
3379: -- set result code for transition to next activity
3581: );
3582: p_result := 'COMPLETE:REJECTED';
3583:
3584: else
3585: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3586: hr_utility.set_message_token('PROCEDURE', l_proc);
3587: hr_utility.set_message_token('STEP', '10');
3588: hr_utility.raise_error;
3589: end if;
3582: p_result := 'COMPLETE:REJECTED';
3583:
3584: else
3585: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3586: hr_utility.set_message_token('PROCEDURE', l_proc);
3587: hr_utility.set_message_token('STEP', '10');
3588: hr_utility.raise_error;
3589: end if;
3590: end if;
3583:
3584: else
3585: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3586: hr_utility.set_message_token('PROCEDURE', l_proc);
3587: hr_utility.set_message_token('STEP', '10');
3588: hr_utility.raise_error;
3589: end if;
3590: end if;
3591:
3584: else
3585: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3586: hr_utility.set_message_token('PROCEDURE', l_proc);
3587: hr_utility.set_message_token('STEP', '10');
3588: hr_utility.raise_error;
3589: end if;
3590: end if;
3591:
3592: if p_funcmode = 'CANCEL' then
3624:
3625: l_proc VARCHAR2(150);
3626:
3627: BEGIN
3628: g_debug:=hr_utility.debug_enabled;
3629: if g_debug then
3630: l_proc := 'set_next_app_period';
3631: hr_utility.trace('in set next period');
3632: end if;
3627: BEGIN
3628: g_debug:=hr_utility.debug_enabled;
3629: if g_debug then
3630: l_proc := 'set_next_app_period';
3631: hr_utility.trace('in set next period');
3632: end if;
3633: IF p_funcmode = 'RUN'
3634: THEN
3635: l_next_period_id := wf_engine.GetItemAttrNumber(
3637: itemkey => p_itemkey,
3638: aname => 'NEXT_APP_BB_ID');
3639:
3640: if g_debug then
3641: hr_utility.set_location(l_proc, 60);
3642: end if;
3643:
3644: l_next_period_ovn := wf_engine.GetItemAttrNumber(
3645: itemtype => p_itemtype,
3667: avalue => '');
3668:
3669:
3670: if g_debug then
3671: hr_utility.trace('next app id=' || l_next_period_id);
3672: hr_utility.trace('next app ovn=' || l_next_period_ovn);
3673: end if;
3674: p_result := 'COMPLETE';
3675: END IF;
3668:
3669:
3670: if g_debug then
3671: hr_utility.trace('next app id=' || l_next_period_id);
3672: hr_utility.trace('next app ovn=' || l_next_period_ovn);
3673: end if;
3674: p_result := 'COMPLETE';
3675: END IF;
3676: