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')
3059:
3060: begin
3061: IF (AMS_DEBUG_HIGH_ON) THEN
3062:
3063: AMS_Utility_PVT.debug_message('Create Documents');
3064: END IF;
3065:
3066: -- dbms_output.put_line('Create Documents');
3067: -- parse document_id for the ':' dividing item type name from item key value
3568:
3569: BEGIN
3570: IF (AMS_DEBUG_HIGH_ON) THEN
3571:
3572: AMS_Utility_PVT.debug_message('Prepare Documents');
3573: END IF;
3574: -- RUN mode - Normal Process Execution
3575: IF (funcmode = 'RUN')
3576: THEN
3980: l_appr_type VARCHAR2(30);
3981: BEGIN
3982: IF (AMS_DEBUG_HIGH_ON) THEN
3983:
3984: AMS_Utility_PVT.debug_message('Process Owner_appr_check');
3985: END IF;
3986: -- dbms_output.put_line('Process Owner_appr_check');
3987: -- RUN mode - Normal Process Execution
3988: IF (funcmode = 'RUN')
4174:
4175: BEGIN
4176: IF (AMS_DEBUG_HIGH_ON) THEN
4177:
4178: AMS_Utility_PVT.debug_message('Process Updt_Stat_apprTA');
4179: END IF;
4180: -- dbms_output.put_line('Process Updt_Stat_apprTA');
4181: -- RUN mode - Normal Process Execution
4182: IF (funcmode = 'RUN')
4415: l_note VARCHAR2(2000);
4416: BEGIN
4417: IF (AMS_DEBUG_HIGH_ON) THEN
4418:
4419: AMS_Utility_PVT.debug_message('Process Update Status_rej');
4420: END IF;
4421: -- dbms_output.put_line('Process Update Status_rej');
4422: -- RUN mode - Normal Process Execution
4423: IF (funcmode = 'RUN')
4594:
4595: BEGIN
4596: IF (AMS_DEBUG_HIGH_ON) THEN
4597:
4598: AMS_Utility_PVT.debug_message('Process Revert Status');
4599: END IF;
4600: -- dbms_output.put_line('Process Revert Status');
4601: -- RUN mode - Normal Process Execution
4602: IF (funcmode = 'RUN')
4752: l_budget_appr_flag VARCHAR2(1);
4753: BEGIN
4754: IF (AMS_DEBUG_HIGH_ON) THEN
4755:
4756: AMS_Utility_PVT.debug_message('Process Fund Appr Req_Check');
4757: END IF;
4758: -- dbms_output.put_line('Process Fund Appr Req_Check');
4759: -- RUN mode - Normal Process Execution
4760: IF (funcmode = 'RUN')
4834: l_owner VARCHAR2(100);
4835: BEGIN
4836: IF (AMS_DEBUG_HIGH_ON) THEN
4837:
4838: AMS_Utility_PVT.debug_message('Process BA_OWNER_APPR_CHECK');
4839: END IF;
4840: -- dbms_output.put_line('Process BA_OWNER_APPR_CHECK');
4841: -- RUN mode - Normal Process Execution
4842: IF (funcmode = 'RUN')
4962:
4963: BEGIN
4964: IF (AMS_DEBUG_HIGH_ON) THEN
4965:
4966: AMS_Utility_PVT.debug_message('Process Update Status APPRBA');
4967: END IF;
4968: -- dbms_output.put_line('Process Update Status APPRBA');
4969: -- RUN mode - Normal Process Execution
4970: IF (funcmode = 'RUN')
5131: itemtype VARCHAR2(30) := nvl(p_itemtype,'AMSAPPR') ;
5132: BEGIN
5133: IF (AMS_DEBUG_HIGH_ON) THEN
5134:
5135: AMS_Utility_PVT.debug_message('Process Abort Process');
5136: END IF;
5137: -- dbms_output.put_line('Process Abort Process');
5138:
5139: WF_ENGINE.AbortProcess (itemtype => itemtype,