141: IF (AMS_DEBUG_HIGH_ON) THEN
142:
143:
144:
145: AMS_Utility_PVT.debug_message(l_full_name||': start');
146:
147: END IF;
148:
149: IF FND_API.to_boolean(p_init_msg_list) THEN
165: -- Insert the Record
166: --
167: IF (AMS_DEBUG_HIGH_ON) THEN
168:
169: AMS_Utility_PVT.debug_message(l_full_name ||': insert');
170: END IF;
171:
172: --
173: -- open cursor AND fetch into local variable
245: IF (AMS_DEBUG_HIGH_ON) THEN
246:
247:
248:
249: AMS_Utility_PVT.debug_message(l_full_name ||': end');
250:
251: END IF;
252:
253:
469: IF (AMS_DEBUG_HIGH_ON) THEN
470:
471:
472:
473: ams_utility_pvt.debug_message('Owner Person : '||l_person_id);
474:
475: END IF;
476:
477: Get_User_Role
541: -- l_mgr_person_id := 12038 ; -- Userid for NRENGASW
542: --l_mgr_person_id := 10446 ; -- Userid for PTENDULK
543: IF (AMS_DEBUG_HIGH_ON) THEN
544:
545: ams_utility_pvt.debug_message('Manager: '||l_man_person_id );
546: END IF;
547:
548: Get_User_Role
549: ( p_user_id => l_man_person_id,
839: -- If workflowprocess is NOT passed, the selector function
840: -- defined in the item type will determine which process to run.
841: IF (AMS_DEBUG_HIGH_ON) THEN
842:
843: AMS_Utility_PVT.debug_message('Start :Item Type : '||itemtype||' Item key : '||itemkey);
844: END IF;
845: -- dbms_output.put_line('Start :Item Type : '||itemtype||' Item key : '||itemkey);
846:
847: WF_ENGINE.CreateProcess (itemtype => itemtype, --itemtype,
916: -- aname => 'AMS_MANAGER',
917: -- avalue => l_manager_role );
918: --
919:
920: -- IF (AMS_DEBUG_HIGH_ON) THEN AMS_Utility_PVT.debug_message('Manager : '||l_manager_role); END IF;
921: -- dbms_output.put_line('Manager : '||l_manager_role);
922: IF (AMS_DEBUG_HIGH_ON) THEN
923:
924: AMS_Utility_PVT.debug_message('requester : '||l_requester_role);
920: -- IF (AMS_DEBUG_HIGH_ON) THEN AMS_Utility_PVT.debug_message('Manager : '||l_manager_role); END IF;
921: -- dbms_output.put_line('Manager : '||l_manager_role);
922: IF (AMS_DEBUG_HIGH_ON) THEN
923:
924: AMS_Utility_PVT.debug_message('requester : '||l_requester_role);
925: END IF;
926: -- dbms_output.put_line('requester : '||l_requester_role);
927:
928: WF_ENGINE.SetItemAttrText(itemtype => itemtype,
995: -- PL/SQL Block
996: BEGIN
997: IF (AMS_DEBUG_HIGH_ON) THEN
998:
999: AMS_Utility_PVT.debug_message('In Selector Function');
1000: END IF;
1001: -- dbms_output.put_line('In Selector Function');
1002: --
1003: -- RUN mode - normal process execution
1788:
1789: BEGIN
1790: IF (AMS_DEBUG_HIGH_ON) THEN
1791:
1792: AMS_Utility_PVT.debug_message('Process Set_Activity_Details');
1793: END IF;
1794: -- dbms_output.put_line('Process Set_Activity_Details');
1795:
1796: -- RUN mode - Normal Process Execution
1837: IF (AMS_DEBUG_HIGH_ON) THEN
1838:
1839:
1840:
1841: AMS_Utility_PVT.debug_message('Approval Required : '||l_appr_type);
1842:
1843: END IF;
1844: -- dbms_output.put_line('Approval Required Ret Stat : '||l_return_status);
1845: -- dbms_output.put_line('Approval Type : '||l_appr_type);
1894: aname => 'AMS_MANAGER',
1895: avalue => l_manager );
1896: IF (AMS_DEBUG_HIGH_ON) THEN
1897:
1898: AMS_Utility_PVT.debug_message('Manager : '||l_Manager);
1899: END IF;
1900:
1901: --
1902: -- Find the Owner
1909: IF (AMS_DEBUG_HIGH_ON) THEN
1910:
1911:
1912:
1913: AMS_Utility_PVT.debug_message('Owner : '||l_owner);
1914:
1915: END IF;
1916: -- dbms_output.put_line('Owner : '||l_owner);
1917: WF_ENGINE.SetItemAttrText(itemtype => itemtype ,
2550: END IF; -- For ELSIF l_appr_type = 'THEME' THEN
2551: END IF;
2552: END IF;
2553:
2554: -- IF (AMS_DEBUG_HIGH_ON) THEN AMS_Utility_PVT.debug_message('Process Set_Activity_Details End : '||result); END IF;
2555: -- dbms_output.put_line('Process Set_Activity_Details End : '||result);
2556: END IF;
2557:
2558: -- CANCEL mode - Normal Process Execution
2612: l_appr_flag VARCHAR2(1);
2613: BEGIN
2614: IF (AMS_DEBUG_HIGH_ON) THEN
2615:
2616: AMS_Utility_PVT.debug_message('Process Appr_Required_Check');
2617: END IF;
2618: -- dbms_output.put_line('Process Appr_Required_Check');
2619: -- RUN mode - Normal Process Execution
2620: IF (funcmode = 'RUN')
2707:
2708: BEGIN
2709: IF (AMS_DEBUG_HIGH_ON) THEN
2710:
2711: AMS_Utility_PVT.debug_message('Process Approval_Type');
2712: END IF;
2713: -- dbms_output.put_line('Process Approval_Type');
2714: -- RUN mode - Normal Process Execution
2715: IF (funcmode = 'RUN')
2826: l_theme_appr_flag VARCHAR2(1);
2827: BEGIN
2828: IF (AMS_DEBUG_HIGH_ON) THEN
2829:
2830: AMS_Utility_PVT.debug_message('Process Fund_Appr_Req_Check');
2831: END IF;
2832: -- dbms_output.put_line('Process Fund_Appr_Req_Check');
2833: -- RUN mode - Normal Process Execution
2834: IF (funcmode = 'RUN')
3054:
3055: begin
3056: IF (AMS_DEBUG_HIGH_ON) THEN
3057:
3058: AMS_Utility_PVT.debug_message('Create Documents');
3059: END IF;
3060:
3061: -- dbms_output.put_line('Create Documents');
3062: -- parse document_id for the ':' dividing item type name from item key value
3540:
3541: BEGIN
3542: IF (AMS_DEBUG_HIGH_ON) THEN
3543:
3544: AMS_Utility_PVT.debug_message('Prepare Documents');
3545: END IF;
3546: -- RUN mode - Normal Process Execution
3547: IF (funcmode = 'RUN')
3548: THEN
3952: l_appr_type VARCHAR2(30);
3953: BEGIN
3954: IF (AMS_DEBUG_HIGH_ON) THEN
3955:
3956: AMS_Utility_PVT.debug_message('Process Owner_appr_check');
3957: END IF;
3958: -- dbms_output.put_line('Process Owner_appr_check');
3959: -- RUN mode - Normal Process Execution
3960: IF (funcmode = 'RUN')
4146:
4147: BEGIN
4148: IF (AMS_DEBUG_HIGH_ON) THEN
4149:
4150: AMS_Utility_PVT.debug_message('Process Updt_Stat_apprTA');
4151: END IF;
4152: -- dbms_output.put_line('Process Updt_Stat_apprTA');
4153: -- RUN mode - Normal Process Execution
4154: IF (funcmode = 'RUN')
4387: l_note VARCHAR2(2000);
4388: BEGIN
4389: IF (AMS_DEBUG_HIGH_ON) THEN
4390:
4391: AMS_Utility_PVT.debug_message('Process Update Status_rej');
4392: END IF;
4393: -- dbms_output.put_line('Process Update Status_rej');
4394: -- RUN mode - Normal Process Execution
4395: IF (funcmode = 'RUN')
4566:
4567: BEGIN
4568: IF (AMS_DEBUG_HIGH_ON) THEN
4569:
4570: AMS_Utility_PVT.debug_message('Process Revert Status');
4571: END IF;
4572: -- dbms_output.put_line('Process Revert Status');
4573: -- RUN mode - Normal Process Execution
4574: IF (funcmode = 'RUN')
4724: l_budget_appr_flag VARCHAR2(1);
4725: BEGIN
4726: IF (AMS_DEBUG_HIGH_ON) THEN
4727:
4728: AMS_Utility_PVT.debug_message('Process Fund Appr Req_Check');
4729: END IF;
4730: -- dbms_output.put_line('Process Fund Appr Req_Check');
4731: -- RUN mode - Normal Process Execution
4732: IF (funcmode = 'RUN')
4806: l_owner VARCHAR2(100);
4807: BEGIN
4808: IF (AMS_DEBUG_HIGH_ON) THEN
4809:
4810: AMS_Utility_PVT.debug_message('Process BA_OWNER_APPR_CHECK');
4811: END IF;
4812: -- dbms_output.put_line('Process BA_OWNER_APPR_CHECK');
4813: -- RUN mode - Normal Process Execution
4814: IF (funcmode = 'RUN')
4934:
4935: BEGIN
4936: IF (AMS_DEBUG_HIGH_ON) THEN
4937:
4938: AMS_Utility_PVT.debug_message('Process Update Status APPRBA');
4939: END IF;
4940: -- dbms_output.put_line('Process Update Status APPRBA');
4941: -- RUN mode - Normal Process Execution
4942: IF (funcmode = 'RUN')
5103: itemtype VARCHAR2(30) := nvl(p_itemtype,'AMSAPPR') ;
5104: BEGIN
5105: IF (AMS_DEBUG_HIGH_ON) THEN
5106:
5107: AMS_Utility_PVT.debug_message('Process Abort Process');
5108: END IF;
5109: -- dbms_output.put_line('Process Abort Process');
5110:
5111: WF_ENGINE.AbortProcess (itemtype => itemtype,