[Home] [Help]
22: --
23: if (funcmode = 'RUN') then
24:
25: -- Get Chagne Id
26: Eng_Workflow_Util.GetChangeObject
27: ( p_item_type => itemtype
28: , p_item_key => itemkey
29: , x_change_id => l_change_id
30: ) ;
30: ) ;
31:
32:
33: -- Get Chagne Line Id
34: Eng_Workflow_Util.GetChangeLineObject
35: ( p_item_type => itemtype
36: , p_item_key => itemkey
37: , x_change_line_id => l_change_line_id
38: ) ;
145:
146: IF l_adhoc_party_list IS NULL THEN
147:
148: -- Get Action Id
149: Eng_Workflow_Util.GetActionId
150: ( p_item_type => itemtype
151: , p_item_key => itemkey
152: , x_action_id => l_action_id
153: ) ;
175: return;
176: END IF ;
177:
178: -- Set Adhoc Party Role
179: Eng_Workflow_Util.SetAdhocPartyRole
180: ( x_return_status => l_return_status
181: , x_msg_count => l_msg_count
182: , x_msg_data => l_msg_data
183: , p_item_type => itemtype
192: result := 'COMPLETE';
193: return;
194:
195: -- None
196: ELSIF l_return_status = Eng_Workflow_Util.G_RET_STS_NONE THEN
197:
198: -- set result
199: result := 'COMPLETE:NONE';
200: return;
278: --
279: if (funcmode = 'RUN') then
280:
281:
282: Eng_Workflow_Util.Get_Debug_Mode
283: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
284:
285: -- For Test/Debug
286: IF l_debug_flag THEN
283: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
284:
285: -- For Test/Debug
286: IF l_debug_flag THEN
287: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
288: , l_debug_filename || actid ) ;
289: END IF ;
290:
291:
289: END IF ;
290:
291:
292: -- Set Adhoc Party Role
293: Eng_Workflow_Util.SetAssigneeRole
294: ( x_return_status => l_return_status
295: , x_msg_count => l_msg_count
296: , x_msg_data => l_msg_data
297: , p_item_type => itemtype
302: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
303:
304:
305: IF l_debug_flag THEN
306: Eng_Workflow_Util.Close_Debug_Session ;
307: END IF ;
308:
309: -- set result
310: result := 'COMPLETE';
310: result := 'COMPLETE';
311: return;
312:
313: -- None
314: ELSIF l_return_status = Eng_Workflow_Util.G_RET_STS_NONE THEN
315:
316: -- set result
317: result := 'COMPLETE:NONE';
318:
316: -- set result
317: result := 'COMPLETE:NONE';
318:
319: IF l_debug_flag THEN
320: Eng_Workflow_Util.Close_Debug_Session ;
321: END IF ;
322:
323: return;
324: ELSE
361:
362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
363:
364: IF l_debug_flag THEN
365: Eng_Workflow_Util.Close_Debug_Session ;
366: END IF ;
367:
368: -- The line below records this function call in the error system
369: -- in the case of an exception.
374:
375: WHEN OTHERS THEN
376:
377: IF l_debug_flag THEN
378: Eng_Workflow_Util.Close_Debug_Session ;
379: END IF ;
380:
381: -- The line below records this function call in the error system
382: -- in the case of an exception.
408: --
409: if (funcmode = 'RUN') then
410:
411: -- Set Reviewers Role
412: Eng_Workflow_Util.SetReviewersRole
413: ( x_return_status => l_return_status
414: , x_msg_count => l_msg_count
415: , x_msg_data => l_msg_data
416: , p_item_type => itemtype
425: result := 'COMPLETE';
426: return;
427:
428: -- None
429: ELSIF l_return_status = Eng_Workflow_Util.G_RET_STS_NONE THEN
430:
431: -- set result
432: result := 'COMPLETE:NONE';
433: return;
508: --
509: if (funcmode = 'RUN') then
510:
511: -- Set Reviewers Role
512: Eng_Workflow_Util.SetReviewersRole
513: ( x_return_status => l_return_status
514: , x_msg_count => l_msg_count
515: , x_msg_data => l_msg_data
516: , p_item_type => itemtype
525: result := 'COMPLETE';
526: return;
527:
528: -- None
529: ELSIF l_return_status = Eng_Workflow_Util.G_RET_STS_NONE THEN
530:
531: -- set result
532: result := 'COMPLETE:NONE';
533: return;
609: --
610: if (funcmode = 'RUN') then
611:
612:
613: Eng_Workflow_Util.Get_Debug_Mode
614: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
615:
616: -- For Test/Debug
617: IF l_debug_flag THEN
614: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
615:
616: -- For Test/Debug
617: IF l_debug_flag THEN
618: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
619: , l_debug_filename || actid ) ;
620: END IF ;
621:
622: -- Set Adhoc Party Role
619: , l_debug_filename || actid ) ;
620: END IF ;
621:
622: -- Set Adhoc Party Role
623: Eng_Workflow_Util.SetLineAssigneeRole
624: ( x_return_status => l_return_status
625: , x_msg_count => l_msg_count
626: , x_msg_data => l_msg_data
627: , p_item_type => itemtype
631:
632: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
633:
634: IF l_debug_flag THEN
635: Eng_Workflow_Util.Close_Debug_Session ;
636: END IF ;
637:
638: -- set result
639: result := 'COMPLETE';
639: result := 'COMPLETE';
640: return;
641:
642: -- None
643: ELSIF l_return_status = Eng_Workflow_Util.G_RET_STS_NONE THEN
644:
645: -- set result
646: result := 'COMPLETE:NONE';
647:
645: -- set result
646: result := 'COMPLETE:NONE';
647:
648: IF l_debug_flag THEN
649: Eng_Workflow_Util.Close_Debug_Session ;
650: END IF ;
651:
652: return;
653: ELSE
689:
690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
691:
692: IF l_debug_flag THEN
693: Eng_Workflow_Util.Close_Debug_Session ;
694: END IF ;
695:
696: -- The line below records this function call in the error system
697: -- in the case of an exception.
702:
703: WHEN OTHERS THEN
704:
705: IF l_debug_flag THEN
706: Eng_Workflow_Util.Close_Debug_Session ;
707: END IF ;
708:
709: -- The line below records this function call in the error system
710: -- in the case of an exception.
738: -- RUN mode - normal process execution
739: --
740: if (funcmode = 'RUN') then
741:
742: Eng_Workflow_Util.Get_Debug_Mode
743: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
744:
745: -- For Test/Debug
746: IF l_debug_flag THEN
744:
745: -- For Test/Debug
746: IF l_debug_flag THEN
747:
748: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
749: , l_debug_filename || actid ) ;
750: END IF ;
751:
752: -- Set Reviewers Role
749: , l_debug_filename || actid ) ;
750: END IF ;
751:
752: -- Set Reviewers Role
753: Eng_Workflow_Util.SetLineReviewersRole
754: ( x_return_status => l_return_status
755: , x_msg_count => l_msg_count
756: , x_msg_data => l_msg_data
757: , p_item_type => itemtype
763:
764: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
765:
766: IF l_debug_flag THEN
767: Eng_Workflow_Util.Close_Debug_Session ;
768: END IF ;
769:
770:
771: -- set result
772: result := 'COMPLETE';
773: return;
774:
775: -- None
776: ELSIF l_return_status = Eng_Workflow_Util.G_RET_STS_NONE THEN
777:
778: IF l_debug_flag THEN
779: Eng_Workflow_Util.Close_Debug_Session ;
780: END IF ;
775: -- None
776: ELSIF l_return_status = Eng_Workflow_Util.G_RET_STS_NONE THEN
777:
778: IF l_debug_flag THEN
779: Eng_Workflow_Util.Close_Debug_Session ;
780: END IF ;
781:
782:
783: -- set result
822: EXCEPTION
823:
824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
825: IF l_debug_flag THEN
826: Eng_Workflow_Util.Close_Debug_Session ;
827: END IF ;
828:
829: -- The line below records this function call in the error system
830: -- in the case of an exception.
834:
835:
836: WHEN OTHERS THEN
837: IF l_debug_flag THEN
838: Eng_Workflow_Util.Close_Debug_Session ;
839: END IF ;
840:
841: -- The line below records this function call in the error system
842: -- in the case of an exception.
868: --
869: if (funcmode = 'RUN') then
870:
871: -- Set Reviewers Role
872: Eng_Workflow_Util.SetLineReviewersRole
873: ( x_return_status => l_return_status
874: , x_msg_count => l_msg_count
875: , x_msg_data => l_msg_data
876: , p_item_type => itemtype
885: result := 'COMPLETE';
886: return;
887:
888: -- None
889: ELSIF l_return_status = Eng_Workflow_Util.G_RET_STS_NONE THEN
890:
891: -- set result
892: result := 'COMPLETE:NONE';
893: return;
970: if (funcmode = 'RUN') then
971:
972:
973: -- Get Chagne Id
974: Eng_Workflow_Util.GetChangeObject
975: ( p_item_type => itemtype
976: , p_item_key => itemkey
977: , x_change_id => l_change_id
978: ) ;
977: , x_change_id => l_change_id
978: ) ;
979:
980: -- Get Host URL
981: Eng_Workflow_Util.GetHostURL
982: ( p_item_type => itemtype
983: , p_item_key => itemkey
984: , x_host_url => l_host_url
985: ) ;
984: , x_host_url => l_host_url
985: ) ;
986:
987: -- Get WF User Id
988: Eng_Workflow_Util.GetWFUserId
989: ( p_item_type => itemtype
990: , p_item_key => itemkey
991: , x_wf_user_id => l_wf_user_id
992: ) ;
994:
995:
996: -- Start Change Lines Initiate Change Workflows
997: -- ENGCLACT:INITIATE_CHANGE
998: Eng_Workflow_Util.StartAllLineWorkflows
999: ( x_return_status => l_return_status
1000: , x_msg_count => l_msg_count
1001: , x_msg_data => l_msg_data
1002: , p_item_type => itemtype
1003: , p_item_key => itemkey
1004: , p_change_id => l_change_id
1005: , p_wf_user_id => l_wf_user_id
1006: , p_host_url => l_host_url
1007: , p_line_item_type => Eng_Workflow_Util.G_CHANGE_LINE_ACTION_ITEM_TYPE
1008: , p_line_process_name => Eng_Workflow_Util.G_CL_INITIATE_CHANGE_PROC
1009: ) ;
1010:
1011: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1004: , p_change_id => l_change_id
1005: , p_wf_user_id => l_wf_user_id
1006: , p_host_url => l_host_url
1007: , p_line_item_type => Eng_Workflow_Util.G_CHANGE_LINE_ACTION_ITEM_TYPE
1008: , p_line_process_name => Eng_Workflow_Util.G_CL_INITIATE_CHANGE_PROC
1009: ) ;
1010:
1011: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1012:
1088: --
1089: if (funcmode = 'RUN') then
1090:
1091: -- Set Adhoc Party Role
1092: Eng_Workflow_Util.SetRoutePeopleRole
1093: ( x_return_status => l_return_status
1094: , x_msg_count => l_msg_count
1095: , x_msg_data => l_msg_data
1096: , p_item_type => itemtype
1104: result := 'COMPLETE';
1105: return;
1106:
1107: -- None
1108: ELSIF l_return_status = Eng_Workflow_Util.G_RET_STS_NONE THEN
1109:
1110: -- set result
1111: result := 'COMPLETE:NONE';
1112: return;
1187: --
1188: if (funcmode = 'RUN') then
1189:
1190: -- Set Adhoc Party Role
1191: Eng_Workflow_Util.SetStepPeopleRole
1192: ( x_return_status => l_return_status
1193: , x_msg_count => l_msg_count
1194: , x_msg_data => l_msg_data
1195: , p_item_type => itemtype
1203: result := 'COMPLETE';
1204: return;
1205:
1206: -- None
1207: ELSIF l_return_status = Eng_Workflow_Util.G_RET_STS_NONE THEN
1208:
1209: -- set result
1210: result := 'COMPLETE:NONE';
1211: return;
1286: --
1287: if (funcmode = 'RUN') then
1288:
1289: -- Delete Workflow Adhoc Role and Local Users
1290: Eng_Workflow_Util.DeleteAdhocRolesAndUsers
1291: ( x_return_status => l_return_status
1292: , x_msg_count => l_msg_count
1293: , x_msg_data => l_msg_data
1294: , p_item_type => itemtype
1383: --
1384: if (funcmode = 'RUN') then
1385:
1386: -- Get Response Timeout Min
1387: Eng_Workflow_Util.GetNtfResponseTimeOut
1388: ( p_item_type => itemtype
1389: , p_item_key => itemkey
1390: , x_timeout_min => l_timeout_min
1391: ) ;
1392:
1393: IF l_timeout_min IS NULL
1394: THEN
1395: -- Get Action Id
1396: Eng_Workflow_Util.GetActionId
1397: ( p_item_type => itemtype
1398: , p_item_key => itemkey
1399: , x_action_id => l_action_id
1400: ) ;
1410: -- 115.10
1411: -- The Response By Date is still null for Reqeust Comment Action
1412: -- This call is just for fugure reference
1413: -- Set Response Timeout Min
1414: Eng_Workflow_Util.SetNtfResponseTimeOut
1415: ( p_item_type => itemtype
1416: , p_item_key => itemkey
1417: , p_response_by_date => l_response_by_date
1418: ) ;
1499: --
1500: if (funcmode = 'RUN') then
1501:
1502: -- Get Route Step Id
1503: Eng_Workflow_Util.GetRouteStepId
1504: ( p_item_type => itemtype
1505: , p_item_key => itemkey
1506: , x_route_step_id => l_route_step_id
1507: ) ;
1517: END LOOP ;
1518:
1519: -- Set Step Action Voting Option based on step condition type
1520: -- code
1521: Eng_Workflow_Util.SetStepActVotingOption
1522: ( p_item_type => itemtype
1523: , p_item_key => itemkey
1524: , p_condition_type_code => l_condition_type_code
1525: ) ;
1524: , p_condition_type_code => l_condition_type_code
1525: ) ;
1526:
1527: -- Get Response Timeout Min
1528: Eng_Workflow_Util.GetNtfResponseTimeOut
1529: ( p_item_type => itemtype
1530: , p_item_key => itemkey
1531: , x_timeout_min => l_timeout_min
1532: ) ;
1538: -- Comment out for reminder notification
1539: -- We disabled time out functionality
1540: --
1541: -- Set Response Timeout Min
1542: -- Eng_Workflow_Util.SetNtfResponseTimeOut
1543: -- ( p_item_type => itemtype
1544: -- , p_item_key => itemkey
1545: -- , p_response_by_date => l_response_by_date
1546: -- ) ;
1547: --
1548:
1549: -- Use the number of days to set Response TimeOut
1550: -- Set Response Timeout Min
1551: Eng_Workflow_Util.SetNtfResponseTimeOut
1552: ( p_item_type => itemtype
1553: , p_item_key => itemkey
1554: , p_required_relative_days => l_required_relative_days
1555: ) ;
1656: --
1657: if (funcmode = 'RUN') then
1658:
1659:
1660: Eng_Workflow_Util.Get_Debug_Mode
1661: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
1662:
1663: -- For Test/Debug
1664: IF l_debug_flag THEN
1661: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
1662:
1663: -- For Test/Debug
1664: IF l_debug_flag THEN
1665: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
1666: , 'RUN:RESPOND_TO_COMMENT_REQUEST-' || actid ) ;
1667: END IF ;
1668:
1669: IF l_debug_flag THEN
1666: , 'RUN:RESPOND_TO_COMMENT_REQUEST-' || actid ) ;
1667: END IF ;
1668:
1669: IF l_debug_flag THEN
1670: Eng_Workflow_Util.Write_Debug('calling VoteForReuslt. . . ' ) ;
1671: END IF ;
1672:
1673:
1674: /* Bug2885157
1678: , funcmode
1679: , result ) ;
1680: */
1681:
1682: Eng_Workflow_Util.RouteStepVoteForResultType
1683: ( itemtype
1684: , itemkey
1685: , actid
1686: , funcmode
1687: , result ) ;
1688:
1689:
1690: IF l_debug_flag THEN
1691: Eng_Workflow_Util.Close_Debug_Session ;
1692: END IF ;
1693:
1694: return;
1695:
1703: --
1704: if (funcmode = 'RESPOND') then
1705:
1706:
1707: Eng_Workflow_Util.Get_Debug_Mode
1708: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
1709:
1710: -- For Test/Debug
1711: IF l_debug_flag THEN
1708: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
1709:
1710: -- For Test/Debug
1711: IF l_debug_flag THEN
1712: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
1713: , l_debug_filename || actid ) ;
1714: END IF ;
1715:
1716:
1720: , aname => 'RESULT'
1721: );
1722:
1723: -- Record Action
1724: Eng_Workflow_Util.CreateAction
1725: ( x_return_status => l_return_status
1726: , x_msg_count => l_msg_count
1727: , x_msg_data => l_msg_data
1728: , p_item_type => itemtype
1727: , x_msg_data => l_msg_data
1728: , p_item_type => itemtype
1729: , p_item_key => itemkey
1730: , p_notification_id => WF_ENGINE.context_nid
1731: , p_action_type => Eng_Workflow_Util.G_ACT_REPLIED
1732: , x_action_id => l_created_action_id
1733: , p_raise_event_flag => FND_API.G_TRUE -- R12
1734: ) ;
1735:
1734: ) ;
1735:
1736:
1737: IF l_debug_flag THEN
1738: Eng_Workflow_Util.Write_Debug('After call Eng_Workflow_Util.CreateAction: Return: ' || l_return_status ) ;
1739: END IF ;
1740:
1741:
1742: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1749:
1750:
1751: -- Send Reponse FYI notification to original requestor of
1752: -- the comment request from Response FYI process
1753: Eng_Workflow_Util.START_RESPONSE_FYI_PROCESS
1754: ( p_itemtype => itemtype
1755: , p_itemkey => itemkey
1756: , p_orig_response_option => NULL
1757: , p_responded_ntf_id => WF_ENGINE.context_nid
1767: -- set result
1768: result := 'COMPLETE';
1769:
1770: IF l_debug_flag THEN
1771: Eng_Workflow_Util.Close_Debug_Session ;
1772: END IF ;
1773:
1774: return;
1775:
1838:
1839: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1840:
1841: IF l_debug_flag THEN
1842: Eng_Workflow_Util.Close_Debug_Session ;
1843: END IF ;
1844:
1845: -- The line below records this function call in the error system
1846: -- in the case of an exception.
1851:
1852: WHEN OTHERS THEN
1853:
1854: IF l_debug_flag THEN
1855: Eng_Workflow_Util.Close_Debug_Session ;
1856: END IF ;
1857:
1858: -- The line below records this function call in the error system
1859: -- in the case of an exception.
1890: -- RUN mode - normal process execution
1891: --
1892: if (funcmode = 'RUN') then
1893:
1894: Eng_Workflow_Util.Get_Debug_Mode
1895: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
1896:
1897: -- For Test/Debug
1898: IF l_debug_flag THEN
1895: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
1896:
1897: -- For Test/Debug
1898: IF l_debug_flag THEN
1899: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
1900: , l_debug_filename || '-' || funcmode || '-' || actid ) ;
1901: END IF ;
1902:
1903: IF l_debug_flag THEN
1900: , l_debug_filename || '-' || funcmode || '-' || actid ) ;
1901: END IF ;
1902:
1903: IF l_debug_flag THEN
1904: Eng_Workflow_Util.Write_Debug('calling VoteForReuslt. . . ' ) ;
1905: END IF ;
1906:
1907:
1908: /* Bug2885157
1912: , funcmode
1913: , result ) ;
1914: */
1915:
1916: Eng_Workflow_Util.RouteStepVoteForResultType
1917: ( itemtype
1918: , itemkey
1919: , actid
1920: , funcmode
1922:
1923:
1924: -- For Test/Debug
1925: IF l_debug_flag THEN
1926: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
1927: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
1928: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
1929: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
1930: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
1923:
1924: -- For Test/Debug
1925: IF l_debug_flag THEN
1926: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
1927: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
1928: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
1929: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
1930: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
1931: END IF ;
1924: -- For Test/Debug
1925: IF l_debug_flag THEN
1926: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
1927: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
1928: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
1929: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
1930: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
1931: END IF ;
1932:
1925: IF l_debug_flag THEN
1926: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
1927: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
1928: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
1929: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
1930: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
1931: END IF ;
1932:
1933:
1926: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
1927: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
1928: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
1929: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
1930: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
1931: END IF ;
1932:
1933:
1934: IF l_debug_flag THEN
1931: END IF ;
1932:
1933:
1934: IF l_debug_flag THEN
1935: Eng_Workflow_Util.Close_Debug_Session ;
1936: END IF ;
1937:
1938: return;
1939:
1946: --
1947: if (funcmode = 'RESPOND') then
1948:
1949:
1950: -- Eng_Workflow_Util.Get_Debug_Mode
1951: -- (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
1952:
1953: -- For Test/Debug
1954: IF l_debug_flag THEN
1951: -- (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
1952:
1953: -- For Test/Debug
1954: IF l_debug_flag THEN
1955: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
1956: , l_debug_filename || actid ) ;
1957: END IF ;
1958:
1959: l_response_code := WF_NOTIFICATION.GetAttrText
1961: , aname => 'RESULT'
1962: );
1963:
1964: -- Record Route Response
1965: Eng_Workflow_Util.SetRouteResponse
1966: ( x_return_status => l_return_status
1967: , x_msg_count => l_msg_count
1968: , x_msg_data => l_msg_data
1969: , p_item_type => itemtype
1975: ) ;
1976:
1977:
1978: IF l_debug_flag THEN
1979: Eng_Workflow_Util.Write_Debug('After call Eng_Workflow_Util.SetRouteResponse: Return: ' || l_return_status ) ;
1980: END IF ;
1981:
1982:
1983: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1985: -- set result
1986: result := 'COMPLETE';
1987:
1988: IF l_debug_flag THEN
1989: Eng_Workflow_Util.Close_Debug_Session ;
1990: END IF ;
1991:
1992: return;
1993:
2009: -- Notificaction Reassignment
2010: --
2011: if (funcmode = 'TRANSFER' OR funcmode = 'FORWARD' )
2012: then
2013: Eng_Workflow_Util.reassignRoutePeople( x_return_status => l_return_status
2014: , x_msg_count => l_msg_count
2015: , x_msg_data => l_msg_data
2016: , p_item_type => itemtype
2017: , p_item_key => itemkey
2053:
2054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2055:
2056: IF l_debug_flag THEN
2057: Eng_Workflow_Util.Close_Debug_Session ;
2058: END IF ;
2059:
2060: -- The line below records this function call in the error system
2061: -- in the case of an exception.
2066:
2067: WHEN OTHERS THEN
2068:
2069: IF l_debug_flag THEN
2070: Eng_Workflow_Util.Close_Debug_Session ;
2071: END IF ;
2072:
2073: -- The line below records this function call in the error system
2074: -- in the case of an exception.
2107: -- RUN mode - normal process execution
2108: --
2109: if (funcmode = 'RUN') then
2110:
2111: Eng_Workflow_Util.Get_Debug_Mode
2112: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
2113:
2114:
2115: -- For Test/Debug
2113:
2114:
2115: -- For Test/Debug
2116: IF l_debug_flag THEN
2117: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
2118: , l_debug_filename || actid ) ;
2119: END IF ;
2120:
2121: IF l_debug_flag THEN
2118: , l_debug_filename || actid ) ;
2119: END IF ;
2120:
2121: IF l_debug_flag THEN
2122: Eng_Workflow_Util.Write_Debug('calling VoteForReuslt. . . ' ) ;
2123: END IF ;
2124:
2125: /* Bug2885157
2126: WF_STANDARD.VoteForResultType ( itemtype
2129: , funcmode
2130: , result ) ;
2131: */
2132:
2133: Eng_Workflow_Util.RouteStepVoteForResultType
2134: ( itemtype
2135: , itemkey
2136: , actid
2137: , funcmode
2138: , result ) ;
2139:
2140:
2141: IF l_debug_flag THEN
2142: Eng_Workflow_Util.Close_Debug_Session ;
2143: END IF ;
2144:
2145: return;
2146:
2154: --
2155: if (funcmode = 'RESPOND') then
2156:
2157:
2158: Eng_Workflow_Util.Get_Debug_Mode
2159: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
2160:
2161: -- For Test/Debug
2162: IF l_debug_flag THEN
2159: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
2160:
2161: -- For Test/Debug
2162: IF l_debug_flag THEN
2163: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
2164: , l_debug_filename || actid ) ;
2165: END IF ;
2166:
2167:
2171: , aname => 'RESULT'
2172: );
2173:
2174: -- Record Route Response
2175: Eng_Workflow_Util.SetRouteResponse
2176: ( x_return_status => l_return_status
2177: , x_msg_count => l_msg_count
2178: , x_msg_data => l_msg_data
2179: , p_item_type => itemtype
2178: , x_msg_data => l_msg_data
2179: , p_item_type => itemtype
2180: , p_item_key => itemkey
2181: , p_notification_id => WF_ENGINE.context_nid
2182: , p_response_code => Eng_Workflow_Util.G_RT_REPLIED
2183: , p_actid => actid
2184: , p_funcmode => funcmode
2185: ) ;
2186:
2184: , p_funcmode => funcmode
2185: ) ;
2186:
2187: IF l_debug_flag THEN
2188: Eng_Workflow_Util.Write_Debug('After call Eng_Workflow_Util.SetRouteResponse: Return: ' || l_return_status ) ;
2189: END IF ;
2190:
2191:
2192: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2194: -- set result
2195: result := 'COMPLETE';
2196:
2197: IF l_debug_flag THEN
2198: Eng_Workflow_Util.Close_Debug_Session ;
2199: END IF ;
2200:
2201:
2202: return;
2211:
2212: /*
2213: -- Send Reponse FYI notification to original requestor of
2214: -- the comment request from Response FYI process
2215: Eng_Workflow_Util.START_RESPONSE_FYI_PROCESS
2216: ( p_itemtype => itemtype
2217: , p_itemkey => itemkey
2218: , p_orig_response_option => NULL
2219: , p_responded_ntf_id => WF_ENGINE.context_nid
2229: -- set result
2230: result := 'COMPLETE';
2231:
2232: IF l_debug_flag THEN
2233: Eng_Workflow_Util.Close_Debug_Session ;
2234: END IF ;
2235:
2236: return;
2237:
2251: -- Notificaction Reassignment
2252: --
2253: if (funcmode = 'TRANSFER' OR funcmode = 'FORWARD' )
2254: then
2255: Eng_Workflow_Util.reassignRoutePeople( x_return_status => l_return_status
2256: , x_msg_count => l_msg_count
2257: , x_msg_data => l_msg_data
2258: , p_item_type => itemtype
2259: , p_item_key => itemkey
2296:
2297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2298:
2299: IF l_debug_flag THEN
2300: Eng_Workflow_Util.Close_Debug_Session ;
2301: END IF ;
2302:
2303: -- The line below records this function call in the error system
2304: -- in the case of an exception.
2309:
2310: WHEN OTHERS THEN
2311:
2312: IF l_debug_flag THEN
2313: Eng_Workflow_Util.Close_Debug_Session ;
2314: END IF ;
2315:
2316: -- The line below records this function call in the error system
2317: -- in the case of an exception.
2353: -- RUN mode - normal process execution
2354: --
2355: if (funcmode = 'RUN') then
2356:
2357: Eng_Workflow_Util.Get_Debug_Mode
2358: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
2359:
2360:
2361: -- For Test/Debug
2359:
2360:
2361: -- For Test/Debug
2362: IF l_debug_flag THEN
2363: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
2364: , l_debug_filename || '-' || funcmode || '-' || actid ) ;
2365: END IF ;
2366:
2367: IF l_debug_flag THEN
2364: , l_debug_filename || '-' || funcmode || '-' || actid ) ;
2365: END IF ;
2366:
2367: IF l_debug_flag THEN
2368: Eng_Workflow_Util.Write_Debug('calling VoteForReuslt. . . ' ) ;
2369: END IF ;
2370:
2371:
2372: /* Bug2885157
2376: , funcmode
2377: , result ) ;
2378: */
2379:
2380: Eng_Workflow_Util.RouteStepVoteForResultType
2381: ( itemtype
2382: , itemkey
2383: , actid
2384: , funcmode
2386:
2387:
2388: -- For Test/Debug
2389: IF l_debug_flag THEN
2390: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
2391: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
2392: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
2393: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
2394: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
2387:
2388: -- For Test/Debug
2389: IF l_debug_flag THEN
2390: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
2391: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
2392: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
2393: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
2394: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
2395: END IF ;
2388: -- For Test/Debug
2389: IF l_debug_flag THEN
2390: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
2391: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
2392: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
2393: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
2394: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
2395: END IF ;
2396:
2389: IF l_debug_flag THEN
2390: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
2391: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
2392: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
2393: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
2394: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
2395: END IF ;
2396:
2397:
2390: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
2391: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
2392: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
2393: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
2394: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
2395: END IF ;
2396:
2397:
2398: IF l_debug_flag THEN
2395: END IF ;
2396:
2397:
2398: IF l_debug_flag THEN
2399: Eng_Workflow_Util.Close_Debug_Session ;
2400: END IF ;
2401:
2402: return;
2403:
2410: --
2411: if (funcmode = 'RESPOND') then
2412:
2413:
2414: Eng_Workflow_Util.Get_Debug_Mode
2415: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
2416:
2417: -- For Test/Debug
2418: IF l_debug_flag THEN
2415: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
2416:
2417: -- For Test/Debug
2418: IF l_debug_flag THEN
2419: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
2420: , l_debug_filename || actid ) ;
2421: END IF ;
2422:
2423: l_response_code := WF_NOTIFICATION.GetAttrText
2425: , aname => 'RESULT'
2426: );
2427:
2428: -- Record Route Response
2429: Eng_Workflow_Util.SetRouteResponse
2430: ( x_return_status => l_return_status
2431: , x_msg_count => l_msg_count
2432: , x_msg_data => l_msg_data
2433: , p_item_type => itemtype
2439: ) ;
2440:
2441:
2442: IF l_debug_flag THEN
2443: Eng_Workflow_Util.Write_Debug('After call Eng_Workflow_Util.SetRouteResponse: Return: ' || l_return_status ) ;
2444: END IF ;
2445:
2446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2447: -- Unexpected Exception
2450: END IF ;
2451:
2452:
2453: -- Get Host URL
2454: Eng_Workflow_Util.GetHostURL
2455: ( p_item_type => itemtype
2456: , p_item_key => itemkey
2457: , x_host_url => l_host_url
2458: ) ;
2457: , x_host_url => l_host_url
2458: ) ;
2459:
2460: -- Get WF User Id
2461: Eng_Workflow_Util.GetWFUserId
2462: ( p_item_type => itemtype
2463: , p_item_key => itemkey
2464: , x_wf_user_id => l_wf_user_id
2465: ) ;
2464: , x_wf_user_id => l_wf_user_id
2465: ) ;
2466:
2467: -- Get Route Id
2468: Eng_Workflow_Util.GetRouteId
2469: ( p_item_type => itemtype
2470: , p_item_key => itemkey
2471: , x_route_id => l_route_id
2472: ) ;
2471: , x_route_id => l_route_id
2472: ) ;
2473:
2474: -- Get Route Step Id
2475: Eng_Workflow_Util.GetRouteStepId
2476: ( p_item_type => itemtype
2477: , p_item_key => itemkey
2478: , x_route_step_id => l_route_step_id
2479: ) ;
2485: -- Starting a place folder def process with no validation
2486: -- per each response does not seem to be right
2487: -- Also we don't document this yet
2488: -- Start Workflow to validate definitions
2489: -- Eng_Workflow_Util.StartValidateDefProcess
2490: -- ( x_msg_count => l_msg_count
2491: -- , x_msg_data => l_msg_data
2492: -- , x_return_status => l_return_status
2493: -- , x_val_def_item_key => l_val_def_item_key
2495: -- , p_step_item_key => itemkey
2496: -- , p_responded_ntf_id => WF_ENGINE.context_nid
2497: -- , p_route_id => l_route_id
2498: -- , p_route_step_id => l_route_step_id
2499: -- , p_val_def_item_type => Eng_Workflow_Util.G_CHANGE_ROUTE_STEP_ITEM_TYPE
2500: -- , p_val_def_process_name => Eng_Workflow_Util.G_VALIDATE_DEFINITION_PROC
2501: -- , p_host_url => l_host_url
2502: -- , p_orig_response => l_response_code
2503: -- ) ;
2496: -- , p_responded_ntf_id => WF_ENGINE.context_nid
2497: -- , p_route_id => l_route_id
2498: -- , p_route_step_id => l_route_step_id
2499: -- , p_val_def_item_type => Eng_Workflow_Util.G_CHANGE_ROUTE_STEP_ITEM_TYPE
2500: -- , p_val_def_process_name => Eng_Workflow_Util.G_VALIDATE_DEFINITION_PROC
2501: -- , p_host_url => l_host_url
2502: -- , p_orig_response => l_response_code
2503: -- ) ;
2504: --
2508: -- set result
2509: result := 'COMPLETE';
2510:
2511: IF l_debug_flag THEN
2512: Eng_Workflow_Util.Close_Debug_Session ;
2513: END IF ;
2514:
2515: return;
2516:
2532: -- Notificaction Reassignment
2533: --
2534: if (funcmode = 'TRANSFER' OR funcmode = 'FORWARD' )
2535: then
2536: Eng_Workflow_Util.reassignRoutePeople( x_return_status => l_return_status
2537: , x_msg_count => l_msg_count
2538: , x_msg_data => l_msg_data
2539: , p_item_type => itemtype
2540: , p_item_key => itemkey
2577:
2578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2579:
2580: IF l_debug_flag THEN
2581: Eng_Workflow_Util.Close_Debug_Session ;
2582: END IF ;
2583:
2584: -- The line below records this function call in the error system
2585: -- in the case of an exception.
2590:
2591: WHEN OTHERS THEN
2592:
2593: IF l_debug_flag THEN
2594: Eng_Workflow_Util.Close_Debug_Session ;
2595: END IF ;
2596:
2597: -- The line below records this function call in the error system
2598: -- in the case of an exception.
2634: -- RUN mode - normal process execution
2635: --
2636: if (funcmode = 'RUN') then
2637:
2638: Eng_Workflow_Util.Get_Debug_Mode
2639: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
2640:
2641:
2642: -- For Test/Debug
2640:
2641:
2642: -- For Test/Debug
2643: IF l_debug_flag THEN
2644: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
2645: , l_debug_filename || '-' || funcmode || '-' || actid ) ;
2646: END IF ;
2647:
2648: IF l_debug_flag THEN
2645: , l_debug_filename || '-' || funcmode || '-' || actid ) ;
2646: END IF ;
2647:
2648: IF l_debug_flag THEN
2649: Eng_Workflow_Util.Write_Debug('calling VoteForReuslt. . . ' ) ;
2650: END IF ;
2651:
2652:
2653: /* Bug2885157
2657: , funcmode
2658: , result ) ;
2659: */
2660:
2661: Eng_Workflow_Util.RouteStepVoteForResultType
2662: ( itemtype
2663: , itemkey
2664: , actid
2665: , funcmode
2667:
2668:
2669: -- For Test/Debug
2670: IF l_debug_flag THEN
2671: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
2672: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
2673: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
2674: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
2675: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
2668:
2669: -- For Test/Debug
2670: IF l_debug_flag THEN
2671: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
2672: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
2673: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
2674: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
2675: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
2676: END IF ;
2669: -- For Test/Debug
2670: IF l_debug_flag THEN
2671: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
2672: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
2673: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
2674: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
2675: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
2676: END IF ;
2677:
2670: IF l_debug_flag THEN
2671: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
2672: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
2673: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
2674: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
2675: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
2676: END IF ;
2677:
2678:
2671: Eng_Workflow_Util.Write_Debug('itemtype: ' || itemtype ) ;
2672: Eng_Workflow_Util.Write_Debug('itemkey: ' || itemkey ) ;
2673: Eng_Workflow_Util.Write_Debug('actid: ' || actid ) ;
2674: Eng_Workflow_Util.Write_Debug('funcmode: ' || funcmode ) ;
2675: Eng_Workflow_Util.Write_Debug('result: ' || result ) ;
2676: END IF ;
2677:
2678:
2679: IF l_debug_flag THEN
2676: END IF ;
2677:
2678:
2679: IF l_debug_flag THEN
2680: Eng_Workflow_Util.Close_Debug_Session ;
2681: END IF ;
2682:
2683: return;
2684:
2691: --
2692: if (funcmode = 'RESPOND') then
2693:
2694:
2695: Eng_Workflow_Util.Get_Debug_Mode
2696: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
2697:
2698: -- For Test/Debug
2699: IF l_debug_flag THEN
2696: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
2697:
2698: -- For Test/Debug
2699: IF l_debug_flag THEN
2700: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
2701: , l_debug_filename || actid ) ;
2702: END IF ;
2703:
2704: l_response_code := WF_NOTIFICATION.GetAttrText
2706: , aname => 'RESULT'
2707: );
2708:
2709: -- Record Route Response
2710: Eng_Workflow_Util.SetRouteResponse
2711: ( x_return_status => l_return_status
2712: , x_msg_count => l_msg_count
2713: , x_msg_data => l_msg_data
2714: , p_item_type => itemtype
2720: ) ;
2721:
2722:
2723: IF l_debug_flag THEN
2724: Eng_Workflow_Util.Write_Debug('After call Eng_Workflow_Util.SetRouteResponse: Return: ' || l_return_status ) ;
2725: END IF ;
2726:
2727: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2728: -- Unexpected Exception
2731: END IF ;
2732:
2733:
2734: -- Need to call validation workflow only in case that response is Approved
2735: IF l_response_code = Eng_Workflow_Util.G_RT_APPROVED
2736: THEN
2737:
2738:
2739: -- Get Host URL
2736: THEN
2737:
2738:
2739: -- Get Host URL
2740: Eng_Workflow_Util.GetHostURL
2741: ( p_item_type => itemtype
2742: , p_item_key => itemkey
2743: , x_host_url => l_host_url
2744: ) ;
2743: , x_host_url => l_host_url
2744: ) ;
2745:
2746: -- Get WF User Id
2747: Eng_Workflow_Util.GetWFUserId
2748: ( p_item_type => itemtype
2749: , p_item_key => itemkey
2750: , x_wf_user_id => l_wf_user_id
2751: ) ;
2750: , x_wf_user_id => l_wf_user_id
2751: ) ;
2752:
2753: -- Get Route Id
2754: Eng_Workflow_Util.GetRouteId
2755: ( p_item_type => itemtype
2756: , p_item_key => itemkey
2757: , x_route_id => l_route_id
2758: ) ;
2757: , x_route_id => l_route_id
2758: ) ;
2759:
2760: -- Get Route Step Id
2761: Eng_Workflow_Util.GetRouteStepId
2762: ( p_item_type => itemtype
2763: , p_item_key => itemkey
2764: , x_route_step_id => l_route_step_id
2765: ) ;
2771: -- Starting a place folder def process with no validation
2772: -- per each response does not seem to be right
2773: -- Also we don't document this yet
2774: -- Start Workflow to validate definitions
2775: -- Eng_Workflow_Util.StartValidateDefProcess
2776: -- ( x_msg_count => l_msg_count
2777: -- , x_msg_data => l_msg_data
2778: -- , x_return_status => l_return_status
2779: -- , x_val_def_item_key => l_val_def_item_key
2781: -- , p_step_item_key => itemkey
2782: -- , p_responded_ntf_id => WF_ENGINE.context_nid
2783: -- , p_route_id => l_route_id
2784: -- , p_route_step_id => l_route_step_id
2785: -- , p_val_def_item_type => Eng_Workflow_Util.G_CHANGE_ROUTE_STEP_ITEM_TYPE
2786: -- , p_val_def_process_name => Eng_Workflow_Util.G_VALIDATE_DEFINITION_PROC
2787: -- , p_host_url => l_host_url
2788: -- , p_orig_response => l_response_code
2789: -- ) ;
2782: -- , p_responded_ntf_id => WF_ENGINE.context_nid
2783: -- , p_route_id => l_route_id
2784: -- , p_route_step_id => l_route_step_id
2785: -- , p_val_def_item_type => Eng_Workflow_Util.G_CHANGE_ROUTE_STEP_ITEM_TYPE
2786: -- , p_val_def_process_name => Eng_Workflow_Util.G_VALIDATE_DEFINITION_PROC
2787: -- , p_host_url => l_host_url
2788: -- , p_orig_response => l_response_code
2789: -- ) ;
2790: --
2798: -- set result
2799: result := 'COMPLETE';
2800:
2801: IF l_debug_flag THEN
2802: Eng_Workflow_Util.Close_Debug_Session ;
2803: END IF ;
2804:
2805: return;
2806:
2820: -- Notificaction Reassignment
2821: --
2822: if (funcmode = 'TRANSFER' OR funcmode = 'FORWARD' )
2823: then
2824: Eng_Workflow_Util.reassignRoutePeople( x_return_status => l_return_status
2825: , x_msg_count => l_msg_count
2826: , x_msg_data => l_msg_data
2827: , p_item_type => itemtype
2828: , p_item_key => itemkey
2864:
2865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2866:
2867: IF l_debug_flag THEN
2868: Eng_Workflow_Util.Close_Debug_Session ;
2869: END IF ;
2870:
2871: -- The line below records this function call in the error system
2872: -- in the case of an exception.
2877:
2878: WHEN OTHERS THEN
2879:
2880: IF l_debug_flag THEN
2881: Eng_Workflow_Util.Close_Debug_Session ;
2882: END IF ;
2883:
2884: -- The line below records this function call in the error system
2885: -- in the case of an exception.
2919: if (funcmode = 'RUN') then
2920:
2921: -- For Test/Debug
2922: IF l_debug_flag THEN
2923: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
2924: , l_debug_filename || actid ) ;
2925: END IF ;
2926:
2927: IF l_debug_flag THEN
2924: , l_debug_filename || actid ) ;
2925: END IF ;
2926:
2927: IF l_debug_flag THEN
2928: Eng_Workflow_Util.Write_Debug('calling VoteForReuslt. . . ' ) ;
2929: END IF ;
2930:
2931: /* Bug2885157
2932: WF_STANDARD.VoteForResultType ( itemtype
2935: , funcmode
2936: , result ) ;
2937: */
2938:
2939: Eng_Workflow_Util.RouteStepVoteForResultType
2940: ( itemtype
2941: , itemkey
2942: , actid
2943: , funcmode
2944: , result ) ;
2945:
2946:
2947: IF l_debug_flag THEN
2948: Eng_Workflow_Util.Close_Debug_Session ;
2949: END IF ;
2950:
2951: return;
2952:
2960: --
2961: if (funcmode = 'RESPOND') then
2962:
2963:
2964: Eng_Workflow_Util.Get_Debug_Mode
2965: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
2966:
2967: -- For Test/Debug
2968: IF l_debug_flag THEN
2965: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
2966:
2967: -- For Test/Debug
2968: IF l_debug_flag THEN
2969: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
2970: , l_debug_filename || actid ) ;
2971: END IF ;
2972:
2973:
2989: -- set result
2990: result := 'COMPLETE';
2991:
2992: IF l_debug_flag THEN
2993: Eng_Workflow_Util.Close_Debug_Session ;
2994: END IF ;
2995:
2996:
2997: return;
3035:
3036: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3037:
3038: IF l_debug_flag THEN
3039: Eng_Workflow_Util.Close_Debug_Session ;
3040: END IF ;
3041:
3042: -- The line below records this function call in the error system
3043: -- in the case of an exception.
3048:
3049: WHEN OTHERS THEN
3050:
3051: IF l_debug_flag THEN
3052: Eng_Workflow_Util.Close_Debug_Session ;
3053: END IF ;
3054:
3055: -- The line below records this function call in the error system
3056: -- in the case of an exception.
3092: -- RUN mode - normal process execution
3093: --
3094: if (funcmode = 'RUN') then
3095:
3096: Eng_Workflow_Util.Get_Debug_Mode
3097: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
3098:
3099:
3100:
3099:
3100:
3101: -- For Test/Debug
3102: IF l_debug_flag THEN
3103: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
3104: , l_debug_filename || actid ) ;
3105: END IF ;
3106:
3107:
3105: END IF ;
3106:
3107:
3108: IF l_debug_flag THEN
3109: Eng_Workflow_Util.Write_Debug('calling VoteForReuslt. . . ' ) ;
3110: END IF ;
3111:
3112: Eng_Workflow_Util.RouteStepVoteForResultType
3113: ( itemtype
3108: IF l_debug_flag THEN
3109: Eng_Workflow_Util.Write_Debug('calling VoteForReuslt. . . ' ) ;
3110: END IF ;
3111:
3112: Eng_Workflow_Util.RouteStepVoteForResultType
3113: ( itemtype
3114: , itemkey
3115: , actid
3116: , funcmode
3117: , result ) ;
3118:
3119:
3120: IF l_debug_flag THEN
3121: Eng_Workflow_Util.Close_Debug_Session ;
3122: END IF ;
3123:
3124: return;
3125:
3133: --
3134: if (funcmode = 'RESPOND') then
3135:
3136:
3137: Eng_Workflow_Util.Get_Debug_Mode
3138: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
3139:
3140: -- For Test/Debug
3141: IF l_debug_flag THEN
3138: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
3139:
3140: -- For Test/Debug
3141: IF l_debug_flag THEN
3142: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
3143: , l_debug_filename || actid ) ;
3144: END IF ;
3145:
3146:
3154: -- R12B Modified to support AUTO_REVOKE_RESPONSE NTF Attribute
3155: -- If the response is the value specified in AUTO_REVOKE_RESPONSE NTF Attribute
3156: -- we will revoke roles on this wf assignee
3157: -- Record Route Response
3158: Eng_Workflow_Util.SetRouteResponse
3159: ( x_return_status => l_return_status
3160: , x_msg_count => l_msg_count
3161: , x_msg_data => l_msg_data
3162: , p_item_type => itemtype
3167: , p_funcmode => funcmode
3168: ) ;
3169:
3170: IF l_debug_flag THEN
3171: Eng_Workflow_Util.Write_Debug('After call Eng_Workflow_Util.SetRouteResponse: Return: ' || l_return_status ) ;
3172: END IF ;
3173:
3174:
3175: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3177: -- set result
3178: result := 'COMPLETE';
3179:
3180: IF l_debug_flag THEN
3181: Eng_Workflow_Util.Close_Debug_Session ;
3182: END IF ;
3183:
3184:
3185: return;
3194:
3195: /*
3196: -- Send Reponse FYI notification to original requestor of
3197: -- the comment request from Response FYI process
3198: Eng_Workflow_Util.START_RESPONSE_FYI_PROCESS
3199: ( p_itemtype => itemtype
3200: , p_itemkey => itemkey
3201: , p_orig_response_option => NULL
3202: , p_responded_ntf_id => WF_ENGINE.context_nid
3212: -- set result
3213: result := 'COMPLETE';
3214:
3215: IF l_debug_flag THEN
3216: Eng_Workflow_Util.Close_Debug_Session ;
3217: END IF ;
3218:
3219: return;
3220:
3234: -- Notificaction Reassignment
3235: --
3236: if (funcmode = 'TRANSFER' OR funcmode = 'FORWARD' )
3237: then
3238: Eng_Workflow_Util.reassignRoutePeople( x_return_status => l_return_status
3239: , x_msg_count => l_msg_count
3240: , x_msg_data => l_msg_data
3241: , p_item_type => itemtype
3242: , p_item_key => itemkey
3279:
3280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3281:
3282: IF l_debug_flag THEN
3283: Eng_Workflow_Util.Close_Debug_Session ;
3284: END IF ;
3285:
3286: -- The line below records this function call in the error system
3287: -- in the case of an exception.
3292:
3293: WHEN OTHERS THEN
3294:
3295: IF l_debug_flag THEN
3296: Eng_Workflow_Util.Close_Debug_Session ;
3297: END IF ;
3298:
3299: -- The line below records this function call in the error system
3300: -- in the case of an exception.
3342: if (funcmode = 'RUN') then
3343:
3344:
3345: IF l_debug_flag THEN
3346: Eng_Workflow_Util.Write_Debug('In START_ROUTE_STEP . . . ' ) ;
3347: END IF ;
3348:
3349: -- Get Chagne Id
3350: Eng_Workflow_Util.GetChangeObject
3346: Eng_Workflow_Util.Write_Debug('In START_ROUTE_STEP . . . ' ) ;
3347: END IF ;
3348:
3349: -- Get Chagne Id
3350: Eng_Workflow_Util.GetChangeObject
3351: ( p_item_type => itemtype
3352: , p_item_key => itemkey
3353: , x_change_id => l_change_id
3354: ) ;
3354: ) ;
3355:
3356:
3357: -- Get Chagne Line Id
3358: Eng_Workflow_Util.GetChangeLineObject
3359: ( p_item_type => itemtype
3360: , p_item_key => itemkey
3361: , x_change_line_id => l_change_line_id
3362: ) ;
3361: , x_change_line_id => l_change_line_id
3362: ) ;
3363:
3364: -- Get Host URL
3365: Eng_Workflow_Util.GetHostURL
3366: ( p_item_type => itemtype
3367: , p_item_key => itemkey
3368: , x_host_url => l_host_url
3369: ) ;
3368: , x_host_url => l_host_url
3369: ) ;
3370:
3371: -- Get WF User Id
3372: Eng_Workflow_Util.GetWFUserId
3373: ( p_item_type => itemtype
3374: , p_item_key => itemkey
3375: , x_wf_user_id => l_wf_user_id
3376: ) ;
3375: , x_wf_user_id => l_wf_user_id
3376: ) ;
3377:
3378: -- Get Route Id
3379: Eng_Workflow_Util.GetRouteId
3380: ( p_item_type => itemtype
3381: , p_item_key => itemkey
3382: , x_route_id => l_route_id
3383: ) ;
3382: , x_route_id => l_route_id
3383: ) ;
3384:
3385: IF l_debug_flag THEN
3386: Eng_Workflow_Util.Write_Debug('calling Eng_Workflow_Util.StartNextRouteStep. . . ' ) ;
3387: END IF ;
3388:
3389:
3390: -- Get Action Id for Parent Route to record
3389:
3390: -- Get Action Id for Parent Route to record
3391: -- Individual User Response for the Step into Action log
3392: -- as a child of Parent Action correctly
3393: Eng_Workflow_Util.GetActionId
3394: ( p_item_type => itemtype
3395: , p_item_key => itemkey
3396: , x_action_id => l_action_id
3397: ) ;
3397: ) ;
3398:
3399:
3400: -- Start Next Route Step Workflow
3401: Eng_Workflow_Util.StartNextRouteStep
3402: ( x_return_status => l_return_status
3403: , x_msg_count => l_msg_count
3404: , x_msg_data => l_msg_data
3405: , p_route_item_type => itemtype
3415: , x_step_item_key => l_step_item_key
3416: ) ;
3417:
3418: IF l_debug_flag THEN
3419: Eng_Workflow_Util.Write_Debug('after calling Eng_Workflow_Util.StartNextRouteStep. . . ' ) ;
3420: END IF ;
3421:
3422:
3423: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3423: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3424:
3425:
3426: IF l_debug_flag THEN
3427: Eng_Workflow_Util.Write_Debug('Set route step id. ' || to_char(l_route_step_id) ) ;
3428: END IF ;
3429:
3430: -- Set started Step Id as current step id
3431: Eng_Workflow_Util.SetRouteStepId
3427: Eng_Workflow_Util.Write_Debug('Set route step id. ' || to_char(l_route_step_id) ) ;
3428: END IF ;
3429:
3430: -- Set started Step Id as current step id
3431: Eng_Workflow_Util.SetRouteStepId
3432: ( p_item_type => itemtype
3433: , p_item_key => itemkey
3434: , p_route_step_id =>l_route_step_id
3435: ) ;
3437: result := 'COMPLETE';
3438: return;
3439:
3440: -- None
3441: ELSIF l_return_status = Eng_Workflow_Util.G_RET_STS_NONE THEN
3442:
3443: result := 'COMPLETE:NONE';
3444: return;
3445: ELSE
3514: --
3515: if (funcmode = 'RUN') then
3516:
3517: -- Get Route Step Id
3518: Eng_Workflow_Util.GetRouteStepId
3519: ( p_item_type => itemtype
3520: , p_item_key => itemkey
3521: , x_route_step_id => l_route_step_id
3522: ) ;
3521: , x_route_step_id => l_route_step_id
3522: ) ;
3523:
3524: -- Get Route Step Status
3525: Eng_Workflow_Util.GetRouteStepStatus
3526: ( p_item_type => itemtype
3527: , p_item_key => itemkey
3528: , p_route_step_id => l_route_step_id
3529: , x_status_code => l_step_status_code
3596: --
3597: if (funcmode = 'RUN') then
3598:
3599: -- Get Chagne Id
3600: Eng_Workflow_Util.GetChangeObject
3601: ( p_item_type => itemtype
3602: , p_item_key => itemkey
3603: , x_change_id => l_change_id
3604: ) ;
3603: , x_change_id => l_change_id
3604: ) ;
3605:
3606:
3607: Eng_Workflow_Util.CheckAllLineApproved
3608: ( x_return_status => l_return_status
3609: , x_msg_count => l_msg_count
3610: , x_msg_data => l_msg_data
3611: , p_change_id => l_change_id
3697: --
3698: if (funcmode = 'RUN') then
3699:
3700: -- Get Route Id
3701: Eng_Workflow_Util.GetRouteId
3702: ( p_item_type => itemtype
3703: , p_item_key => itemkey
3704: , x_route_id => l_route_id
3705: ) ;
3705: ) ;
3706:
3707:
3708: -- Find Next Route Step Workflow
3709: Eng_Workflow_Util.FindNextRouteStep
3710: ( x_return_status => l_return_status
3711: , x_msg_count => l_msg_count
3712: , x_msg_data => l_msg_data
3713: , p_route_id => l_route_id
3820: --
3821: if (funcmode = 'RUN') then
3822:
3823: -- Get WF User Id
3824: Eng_Workflow_Util.GetWFUserId
3825: ( p_item_type => itemtype
3826: , p_item_key => itemkey
3827: , x_wf_user_id => l_wf_user_id
3828: ) ;
3827: , x_wf_user_id => l_wf_user_id
3828: ) ;
3829:
3830: -- Get Change Object Identifier
3831: Eng_Workflow_Util.GetChangeObject
3832: ( p_item_type => itemtype
3833: , p_item_key => itemkey
3834: , x_change_id => l_change_id
3835: ) ;
3834: , x_change_id => l_change_id
3835: ) ;
3836:
3837: -- Get Chagne Line Id
3838: Eng_Workflow_Util.GetChangeLineObject
3839: ( p_item_type => itemtype
3840: , p_item_key => itemkey
3841: , x_change_line_id => l_change_line_id
3842: ) ;
3842: ) ;
3843:
3844:
3845: -- Get Route Id
3846: Eng_Workflow_Util.GetRouteId
3847: ( p_item_type => itemtype
3848: , p_item_key => itemkey
3849: , x_route_id => l_route_id
3850: ) ;
3849: , x_route_id => l_route_id
3850: ) ;
3851:
3852: -- Get Route Type Code
3853: Eng_Workflow_Util.GetRouteTypeCode
3854: ( p_route_id => l_route_id
3855: , x_route_type_code => l_route_type_code
3856: ) ;
3857:
3856: ) ;
3857:
3858:
3859: -- Get Route Status Completion Code
3860: Eng_Workflow_Util.GetRouteComplStatusCode
3861: ( p_route_id => l_route_id
3862: , p_route_type_code => l_route_type_code
3863: , x_route_compl_status_code => l_route_compl_status_code
3864: ) ;
3864: ) ;
3865:
3866:
3867: -- Set Route Status
3868: Eng_Workflow_Util.SetRouteStatus
3869: ( p_item_type => itemtype
3870: , p_item_key => itemkey
3871: , p_wf_user_id => l_wf_user_id
3872: , p_route_id => l_route_id
3880: IF l_change_id IS NOT NULL AND l_change_id > 0
3881: THEN
3882:
3883: -- Get Action Id and set this as parent action id
3884: Eng_Workflow_Util.GetActionId
3885: ( p_item_type => itemtype
3886: , p_item_key => itemkey
3887: , x_action_id => l_parent_action_id
3888: ) ;
3891: /*************************************************
3892: -- in 115.10, Workflow Routing will not update
3893: -- Approval Status of Change Object
3894: -- Set Approval Status
3895: -- Eng_Workflow_Util.SetChangeApprovalStatus
3896: -- ( x_return_status => l_return_status
3897: -- , x_msg_count => l_msg_count
3898: -- , x_msg_data => l_msg_data
3899: -- , p_item_type => itemtype
3901: -- , p_change_id => l_change_id
3902: -- , p_change_line_id => l_change_line_id
3903: -- , p_wf_user_id => l_wf_user_id
3904: -- , p_sync_lines => 1 -- Set sync mode: True
3905: -- , p_new_appr_status_type => Eng_Workflow_Util.G_APPROVED
3906: -- ) ;
3907:
3908: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3909:
3913: -- END IF ;
3914: **************************************************/
3915:
3916:
3917: l_action_type := Eng_Workflow_Util.ConvertRouteStatusToActionType
3918: ( p_route_status_code => l_route_compl_status_code
3919: , p_convert_type => 'WF_PROCESS' ) ;
3920:
3921: Eng_Workflow_Util.CreateRouteAction
3917: l_action_type := Eng_Workflow_Util.ConvertRouteStatusToActionType
3918: ( p_route_status_code => l_route_compl_status_code
3919: , p_convert_type => 'WF_PROCESS' ) ;
3920:
3921: Eng_Workflow_Util.CreateRouteAction
3922: ( x_return_status => l_return_status
3923: , x_msg_count => l_msg_count
3924: , x_msg_data => l_msg_data
3925: , p_change_id => l_change_id
3924: , x_msg_data => l_msg_data
3925: , p_change_id => l_change_id
3926: , p_change_line_id => l_change_line_id
3927: , p_action_type => l_action_type
3928: , p_user_id => Eng_Workflow_Util.G_ACT_SYSTEM_USER_ID
3929: , p_parent_action_id => l_parent_action_id
3930: , p_route_id => l_route_id
3931: , p_comment => NULL
3932: , x_action_id => l_action_id
4022: --
4023: if (funcmode = 'RUN') then
4024:
4025: -- Get WF User Id
4026: Eng_Workflow_Util.GetWFUserId
4027: ( p_item_type => itemtype
4028: , p_item_key => itemkey
4029: , x_wf_user_id => l_wf_user_id
4030: ) ;
4030: ) ;
4031:
4032:
4033: -- Get Change Object Identifier
4034: Eng_Workflow_Util.GetChangeObject
4035: ( p_item_type => itemtype
4036: , p_item_key => itemkey
4037: , x_change_id => l_change_id
4038: ) ;
4037: , x_change_id => l_change_id
4038: ) ;
4039:
4040: -- Get Chagne Line Id
4041: Eng_Workflow_Util.GetChangeLineObject
4042: ( p_item_type => itemtype
4043: , p_item_key => itemkey
4044: , x_change_line_id => l_change_line_id
4045: ) ;
4044: , x_change_line_id => l_change_line_id
4045: ) ;
4046:
4047: -- Get Route Id
4048: Eng_Workflow_Util.GetRouteId
4049: ( p_item_type => itemtype
4050: , p_item_key => itemkey
4051: , x_route_id => l_route_id
4052: ) ;
4052: ) ;
4053:
4054:
4055: -- Set Route Status
4056: Eng_Workflow_Util.SetRouteStatus
4057: ( p_item_type => itemtype
4058: , p_item_key => itemkey
4059: , p_wf_user_id => l_wf_user_id
4060: , p_route_id => l_route_id
4057: ( p_item_type => itemtype
4058: , p_item_key => itemkey
4059: , p_wf_user_id => l_wf_user_id
4060: , p_route_id => l_route_id
4061: , p_new_status_code => Eng_Workflow_Util.G_RT_REJECTED
4062: , p_change_id => l_change_id
4063: , p_change_line_id => l_change_line_id -- Added in R12B
4064: ) ;
4065:
4072: /*************************************************
4073: -- in 115.10, Workflow Routing will not update
4074: -- Approval Status of Change Object
4075: -- Set Approval Status
4076: -- Eng_Workflow_Util.SetChangeApprovalStatus
4077: -- ( x_return_status => l_return_status
4078: -- , x_msg_count => l_msg_count
4079: -- , x_msg_data => l_msg_data
4080: -- , p_item_type => itemtype
4081: -- , p_item_key => itemkey
4082: -- , p_change_id => l_change_id
4083: -- , p_change_line_id => l_change_line_id
4084: -- , p_wf_user_id => l_wf_user_id
4085: -- , p_new_appr_status_type => Eng_Workflow_Util.G_REJECTED
4086: -- ) ;
4087:
4088:
4089: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4095: *************************************************/
4096:
4097:
4098: -- Get Action Id and set this as parent action id
4099: Eng_Workflow_Util.GetActionId
4100: ( p_item_type => itemtype
4101: , p_item_key => itemkey
4102: , x_action_id => l_parent_action_id
4103: ) ;
4101: , p_item_key => itemkey
4102: , x_action_id => l_parent_action_id
4103: ) ;
4104:
4105: l_action_type := Eng_Workflow_Util.ConvertRouteStatusToActionType
4106: ( p_route_status_code => Eng_Workflow_Util.G_RT_REJECTED
4107: , p_convert_type => 'WF_PROCESS' ) ;
4108:
4109:
4102: , x_action_id => l_parent_action_id
4103: ) ;
4104:
4105: l_action_type := Eng_Workflow_Util.ConvertRouteStatusToActionType
4106: ( p_route_status_code => Eng_Workflow_Util.G_RT_REJECTED
4107: , p_convert_type => 'WF_PROCESS' ) ;
4108:
4109:
4110: Eng_Workflow_Util.CreateRouteAction
4106: ( p_route_status_code => Eng_Workflow_Util.G_RT_REJECTED
4107: , p_convert_type => 'WF_PROCESS' ) ;
4108:
4109:
4110: Eng_Workflow_Util.CreateRouteAction
4111: ( x_return_status => l_return_status
4112: , x_msg_count => l_msg_count
4113: , x_msg_data => l_msg_data
4114: , p_change_id => l_change_id
4113: , x_msg_data => l_msg_data
4114: , p_change_id => l_change_id
4115: , p_change_line_id => l_change_line_id
4116: , p_action_type => l_action_type
4117: , p_user_id => Eng_Workflow_Util.G_ACT_SYSTEM_USER_ID
4118: , p_parent_action_id => l_parent_action_id
4119: , p_route_id => l_route_id
4120: , p_comment => NULL
4121: , x_action_id => l_action_id
4210: --
4211: if (funcmode = 'RUN') then
4212:
4213: -- Get WF User Id
4214: Eng_Workflow_Util.GetWFUserId
4215: ( p_item_type => itemtype
4216: , p_item_key => itemkey
4217: , x_wf_user_id => l_wf_user_id
4218: ) ;
4218: ) ;
4219:
4220:
4221: -- Get Change Object Identifier
4222: Eng_Workflow_Util.GetChangeObject
4223: ( p_item_type => itemtype
4224: , p_item_key => itemkey
4225: , x_change_id => l_change_id
4226: ) ;
4225: , x_change_id => l_change_id
4226: ) ;
4227:
4228: -- Get Chagne Line Id
4229: Eng_Workflow_Util.GetChangeLineObject
4230: ( p_item_type => itemtype
4231: , p_item_key => itemkey
4232: , x_change_line_id => l_change_line_id
4233: ) ;
4233: ) ;
4234:
4235:
4236: -- Get Route Id
4237: Eng_Workflow_Util.GetRouteId
4238: ( p_item_type => itemtype
4239: , p_item_key => itemkey
4240: , x_route_id => l_route_id
4241: ) ;
4241: ) ;
4242:
4243:
4244: -- Set Route Status
4245: Eng_Workflow_Util.SetRouteStatus
4246: ( p_item_type => itemtype
4247: , p_item_key => itemkey
4248: , p_wf_user_id => l_wf_user_id
4249: , p_route_id => l_route_id
4246: ( p_item_type => itemtype
4247: , p_item_key => itemkey
4248: , p_wf_user_id => l_wf_user_id
4249: , p_route_id => l_route_id
4250: , p_new_status_code => Eng_Workflow_Util.G_RT_TIME_OUT
4251: , p_change_id => l_change_id
4252: , p_change_line_id => l_change_line_id -- Added in R12B
4253: ) ;
4254:
4260: /*************************************************
4261: -- in 115.10, Workflow Routing will not update
4262: -- Approval Status of Change Object
4263: -- Set Approval Status
4264: -- Eng_Workflow_Util.SetChangeApprovalStatus
4265: -- ( x_return_status => l_return_status
4266: -- , x_msg_count => l_msg_count
4267: -- , x_msg_data => l_msg_data
4268: -- , p_item_type => itemtype
4269: -- , p_item_key => itemkey
4270: -- , p_change_id => l_change_id
4271: -- , p_change_line_id => l_change_line_id
4272: -- , p_wf_user_id => l_wf_user_id
4273: -- , p_new_appr_status_type => Eng_Workflow_Util.G_TIME_OUT
4274: -- ) ;
4275:
4276: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4277:
4282: *************************************************/
4283:
4284:
4285: -- Get Action Id and set this as parent action id
4286: Eng_Workflow_Util.GetActionId
4287: ( p_item_type => itemtype
4288: , p_item_key => itemkey
4289: , x_action_id => l_parent_action_id
4290: ) ;
4289: , x_action_id => l_parent_action_id
4290: ) ;
4291:
4292:
4293: l_action_type := Eng_Workflow_Util.ConvertRouteStatusToActionType
4294: ( p_route_status_code => Eng_Workflow_Util.G_RT_TIME_OUT
4295: , p_convert_type => 'WF_PROCESS' ) ;
4296:
4297:
4290: ) ;
4291:
4292:
4293: l_action_type := Eng_Workflow_Util.ConvertRouteStatusToActionType
4294: ( p_route_status_code => Eng_Workflow_Util.G_RT_TIME_OUT
4295: , p_convert_type => 'WF_PROCESS' ) ;
4296:
4297:
4298: Eng_Workflow_Util.CreateRouteAction
4294: ( p_route_status_code => Eng_Workflow_Util.G_RT_TIME_OUT
4295: , p_convert_type => 'WF_PROCESS' ) ;
4296:
4297:
4298: Eng_Workflow_Util.CreateRouteAction
4299: ( x_return_status => l_return_status
4300: , x_msg_count => l_msg_count
4301: , x_msg_data => l_msg_data
4302: , p_change_id => l_change_id
4301: , x_msg_data => l_msg_data
4302: , p_change_id => l_change_id
4303: , p_change_line_id => l_change_line_id
4304: , p_action_type => l_action_type
4305: , p_user_id => Eng_Workflow_Util.G_ACT_SYSTEM_USER_ID
4306: , p_parent_action_id => l_parent_action_id
4307: , p_route_id => l_route_id
4308: , p_comment => NULL
4309: , x_action_id => l_action_id
4392: if (funcmode = 'RUN') then
4393:
4394:
4395: -- Get WF User Id
4396: Eng_Workflow_Util.GetWFUserId
4397: ( p_item_type => itemtype
4398: , p_item_key => itemkey
4399: , x_wf_user_id => l_wf_user_id
4400: ) ;
4400: ) ;
4401:
4402:
4403: -- Get Route Id
4404: Eng_Workflow_Util.GetRouteId
4405: ( p_item_type => itemtype
4406: , p_item_key => itemkey
4407: , x_route_id => l_route_id
4408: ) ;
4408: ) ;
4409:
4410:
4411: -- Get Route Step Id
4412: Eng_Workflow_Util.GetRouteStepId
4413: ( p_item_type => itemtype
4414: , p_item_key => itemkey
4415: , x_route_step_id => l_route_step_id
4416: ) ;
4415: , x_route_step_id => l_route_step_id
4416: ) ;
4417:
4418: -- Set Route Step Status
4419: Eng_Workflow_Util.SetRouteStepStatus
4420: ( p_item_type => itemtype
4421: , p_item_key => itemkey
4422: , p_wf_user_id => l_wf_user_id
4423: , p_route_id => l_route_id
4421: , p_item_key => itemkey
4422: , p_wf_user_id => l_wf_user_id
4423: , p_route_id => l_route_id
4424: , p_route_step_id => l_route_step_id
4425: , p_new_status_code => Eng_Workflow_Util.G_RT_COMPLETED
4426: ) ;
4427:
4428: -- set result
4429: result := 'COMPLETE';
4488: --
4489: if (funcmode = 'RUN') then
4490:
4491: -- Get WF User Id
4492: Eng_Workflow_Util.GetWFUserId
4493: ( p_item_type => itemtype
4494: , p_item_key => itemkey
4495: , x_wf_user_id => l_wf_user_id
4496: ) ;
4496: ) ;
4497:
4498:
4499: -- Get Route Id
4500: Eng_Workflow_Util.GetRouteId
4501: ( p_item_type => itemtype
4502: , p_item_key => itemkey
4503: , x_route_id => l_route_id
4504: ) ;
4504: ) ;
4505:
4506:
4507: -- Get Route Step Id
4508: Eng_Workflow_Util.GetRouteStepId
4509: ( p_item_type => itemtype
4510: , p_item_key => itemkey
4511: , x_route_step_id => l_route_step_id
4512: ) ;
4511: , x_route_step_id => l_route_step_id
4512: ) ;
4513:
4514: -- Set Route Step Status
4515: Eng_Workflow_Util.SetRouteStepStatus
4516: ( p_item_type => itemtype
4517: , p_item_key => itemkey
4518: , p_wf_user_id => l_wf_user_id
4519: , p_route_id => l_route_id
4517: , p_item_key => itemkey
4518: , p_wf_user_id => l_wf_user_id
4519: , p_route_id => l_route_id
4520: , p_route_step_id => l_route_step_id
4521: , p_new_status_code => Eng_Workflow_Util.G_RT_APPROVED
4522: ) ;
4523:
4524: -- set result
4525: result := 'COMPLETE';
4582: --
4583: if (funcmode = 'RUN') then
4584:
4585: -- Get WF User Id
4586: Eng_Workflow_Util.GetWFUserId
4587: ( p_item_type => itemtype
4588: , p_item_key => itemkey
4589: , x_wf_user_id => l_wf_user_id
4590: ) ;
4589: , x_wf_user_id => l_wf_user_id
4590: ) ;
4591:
4592: -- Get Route Id
4593: Eng_Workflow_Util.GetRouteId
4594: ( p_item_type => itemtype
4595: , p_item_key => itemkey
4596: , x_route_id => l_route_id
4597: ) ;
4596: , x_route_id => l_route_id
4597: ) ;
4598:
4599: -- Get Route Step Id
4600: Eng_Workflow_Util.GetRouteStepId
4601: ( p_item_type => itemtype
4602: , p_item_key => itemkey
4603: , x_route_step_id => l_route_step_id
4604: ) ;
4603: , x_route_step_id => l_route_step_id
4604: ) ;
4605:
4606: -- Set Route Step Status
4607: Eng_Workflow_Util.SetRouteStepStatus
4608: ( p_item_type => itemtype
4609: , p_item_key => itemkey
4610: , p_wf_user_id => l_wf_user_id
4611: , p_route_id => l_route_id
4609: , p_item_key => itemkey
4610: , p_wf_user_id => l_wf_user_id
4611: , p_route_id => l_route_id
4612: , p_route_step_id => l_route_step_id
4613: , p_new_status_code => Eng_Workflow_Util.G_RT_REJECTED
4614: ) ;
4615:
4616: -- set result
4617: result := 'COMPLETE';
4677: if (funcmode = 'RUN') then
4678:
4679:
4680: -- Get WF User Id
4681: Eng_Workflow_Util.GetWFUserId
4682: ( p_item_type => itemtype
4683: , p_item_key => itemkey
4684: , x_wf_user_id => l_wf_user_id
4685: ) ;
4684: , x_wf_user_id => l_wf_user_id
4685: ) ;
4686:
4687: -- Get Route Id
4688: Eng_Workflow_Util.GetRouteId
4689: ( p_item_type => itemtype
4690: , p_item_key => itemkey
4691: , x_route_id => l_route_id
4692: ) ;
4691: , x_route_id => l_route_id
4692: ) ;
4693:
4694: -- Get Route Step Id
4695: Eng_Workflow_Util.GetRouteStepId
4696: ( p_item_type => itemtype
4697: , p_item_key => itemkey
4698: , x_route_step_id => l_route_step_id
4699: ) ;
4698: , x_route_step_id => l_route_step_id
4699: ) ;
4700:
4701: -- Set Route Step Status
4702: Eng_Workflow_Util.SetRouteStepStatus
4703: ( p_item_type => itemtype
4704: , p_item_key => itemkey
4705: , p_wf_user_id => l_wf_user_id
4706: , p_route_id => l_route_id
4704: , p_item_key => itemkey
4705: , p_wf_user_id => l_wf_user_id
4706: , p_route_id => l_route_id
4707: , p_route_step_id => l_route_step_id
4708: , p_new_status_code => Eng_Workflow_Util.G_RT_TIME_OUT
4709: ) ;
4710:
4711: -- set result
4712: result := 'COMPLETE';
4774: if (funcmode = 'RUN') then
4775:
4776:
4777: -- Get Chagne Id
4778: Eng_Workflow_Util.GetChangeObject
4779: ( p_item_type => itemtype
4780: , p_item_key => itemkey
4781: , x_change_id => l_change_id
4782: ) ;
4781: , x_change_id => l_change_id
4782: ) ;
4783:
4784: -- Get Route Step Id
4785: Eng_Workflow_Util.GetRouteStepId
4786: ( p_item_type => itemtype
4787: , p_item_key => itemkey
4788: , x_route_step_id => l_route_step_id
4789: ) ;
4789: ) ;
4790:
4791:
4792: -- Grant Role to Step People
4793: Eng_Workflow_Util.GrantChangeRoleToStepPeople
4794: ( x_return_status => l_return_status
4795: , x_msg_count => l_msg_count
4796: , x_msg_data => l_msg_data
4797: , p_item_type => itemtype
4884: --
4885: if (funcmode = 'RUN') then
4886:
4887: -- Get Route Step Id
4888: -- Eng_Workflow_Util.GetRouteStepId
4889: -- ( p_item_type => itemtype
4890: -- , p_item_key => itemkey
4891: -- , x_route_step_id => l_route_step_id
4892: -- ) ;
4986: --
4987: if (funcmode = 'RUN') then
4988:
4989: -- Get Route Object
4990: Eng_Workflow_Util.GetRouteObject
4991: ( p_item_type => itemtype
4992: , p_item_key => itemkey
4993: , x_route_object => l_route_object
4994: ) ;
5068: --
5069: if (funcmode = 'RUN') then
5070:
5071: -- Get Route Id
5072: Eng_Workflow_Util.GetRouteId
5073: ( p_item_type => itemtype
5074: , p_item_key => itemkey
5075: , x_route_id => l_route_id
5076: ) ;
5076: ) ;
5077:
5078:
5079: -- Call Sync Change Lifecycle Phase API
5080: Eng_Workflow_Util.SyncChangeLCPhase
5081: ( x_return_status => l_return_status
5082: , x_msg_count => l_msg_count
5083: , x_msg_data => l_msg_data
5084: , p_route_id => l_route_id
5081: ( x_return_status => l_return_status
5082: , x_msg_count => l_msg_count
5083: , x_msg_data => l_msg_data
5084: , p_route_id => l_route_id
5085: , p_api_caller => Eng_Workflow_Util.G_WF_CALL
5086: ) ;
5087:
5088: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5089:
5181: if (funcmode = 'RUN') then
5182:
5183:
5184: -- Get Chagne Id
5185: Eng_Workflow_Util.GetChangeObject
5186: ( p_item_type => itemtype
5187: , p_item_key => itemkey
5188: , x_change_id => l_change_id
5189: ) ;
5287: if (funcmode = 'RUN') then
5288:
5289:
5290: -- Get Chagne Id
5291: Eng_Workflow_Util.GetChangeObject
5292: ( p_item_type => itemtype
5293: , p_item_key => itemkey
5294: , x_change_id => l_change_id
5295: ) ;
5294: , x_change_id => l_change_id
5295: ) ;
5296:
5297: -- Get Base CM Type code
5298: l_base_cm_type_code := Eng_Workflow_Util.GetBaseChangeMgmtTypeCode(l_change_id) ;
5299:
5300: -- no result needed
5301: result := 'COMPLETE:' || l_base_cm_type_code ;
5302: return;
5377: if (funcmode = 'RUN') then
5378:
5379:
5380: -- Get Chagne Id
5381: Eng_Workflow_Util.GetChangeObject
5382: ( p_item_type => itemtype
5383: , p_item_key => itemkey
5384: , x_change_id => l_change_id
5385: ) ;
5385: ) ;
5386:
5387:
5388: -- Get WF User Id
5389: Eng_Workflow_Util.GetWFUserId
5390: ( p_item_type => itemtype
5391: , p_item_key => itemkey
5392: , x_wf_user_id => l_wf_user_id
5393: ) ;
5392: , x_wf_user_id => l_wf_user_id
5393: ) ;
5394:
5395: -- Call SetChangeOrderMRPFlag
5396: Eng_Workflow_Util.SetChangeOrderMRPFlag
5397: ( x_return_status => l_return_status
5398: , x_msg_count => l_msg_count
5399: , x_msg_data => l_msg_data
5400: , p_change_id => l_change_id
5397: ( x_return_status => l_return_status
5398: , x_msg_count => l_msg_count
5399: , x_msg_data => l_msg_data
5400: , p_change_id => l_change_id
5401: , p_mrp_flag => Eng_Workflow_Util.G_MRP_FLAG_YES
5402: , p_wf_user_id => l_wf_user_id
5403: , p_api_caller => Eng_Workflow_Util.G_WF_CALL
5404: ) ;
5405:
5399: , x_msg_data => l_msg_data
5400: , p_change_id => l_change_id
5401: , p_mrp_flag => Eng_Workflow_Util.G_MRP_FLAG_YES
5402: , p_wf_user_id => l_wf_user_id
5403: , p_api_caller => Eng_Workflow_Util.G_WF_CALL
5404: ) ;
5405:
5406: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5407:
5490: if (funcmode = 'RUN') then
5491:
5492:
5493: -- Get Chagne Id
5494: Eng_Workflow_Util.GetChangeObject
5495: ( p_item_type => itemtype
5496: , p_item_key => itemkey
5497: , x_change_id => l_change_id
5498: ) ;
5498: ) ;
5499:
5500:
5501: -- Get WF User Id
5502: Eng_Workflow_Util.GetWFUserId
5503: ( p_item_type => itemtype
5504: , p_item_key => itemkey
5505: , x_wf_user_id => l_wf_user_id
5506: ) ;
5506: ) ;
5507:
5508:
5509: -- Call SetChangeOrderMRPFlag
5510: Eng_Workflow_Util.SetChangeOrderMRPFlag
5511: ( x_return_status => l_return_status
5512: , x_msg_count => l_msg_count
5513: , x_msg_data => l_msg_data
5514: , p_change_id => l_change_id
5511: ( x_return_status => l_return_status
5512: , x_msg_count => l_msg_count
5513: , x_msg_data => l_msg_data
5514: , p_change_id => l_change_id
5515: , p_mrp_flag => Eng_Workflow_Util.G_MRP_FLAG_NO
5516: , p_wf_user_id => l_wf_user_id
5517: , p_api_caller => Eng_Workflow_Util.G_WF_CALL
5518: ) ;
5519:
5513: , x_msg_data => l_msg_data
5514: , p_change_id => l_change_id
5515: , p_mrp_flag => Eng_Workflow_Util.G_MRP_FLAG_NO
5516: , p_wf_user_id => l_wf_user_id
5517: , p_api_caller => Eng_Workflow_Util.G_WF_CALL
5518: ) ;
5519:
5520: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5521:
5607:
5608:
5609:
5610: -- Get WF Admin Statuss Monigor URL
5611: Eng_Workflow_Util.GetWorkflowMonitorURL
5612: ( p_api_version => 1.0
5613: , p_init_msg_list => FND_API.G_FALSE
5614: , p_commit => FND_API.G_FALSE
5615: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
5617: , x_msg_count => l_msg_count
5618: , x_msg_data => l_msg_data
5619: , p_item_type => itemtype
5620: , p_item_key => itemkey
5621: , p_url_type => Eng_Workflow_Util.G_MONITOR_ADVANCED_ENVELOPE
5622: , p_admin_mode => FND_API.G_TRUE
5623: -- , p_admin_mode => FND_API.G_FALSE
5624: , p_option => 'ALL'
5625: , x_url => l_url
5801: IF l_change_id IS NOT NULL
5802: THEN
5803:
5804: -- Get Change Object Info
5805: Eng_Workflow_Util.GetChangeObjectInfo
5806: ( p_change_id => l_change_id
5807: , x_change_notice => l_change_notice
5808: , x_organization_id => l_organization_id
5809: , x_change_name => l_change_name
5821: ) ;
5822:
5823:
5824: -- Get Organization Info
5825: Eng_Workflow_Util.GetOrgInfo
5826: ( p_organization_id => l_organization_id
5827: , x_organization_code => l_organization_code
5828: , x_organization_name => l_organization_name ) ;
5829:
6025: --
6026: if (funcmode = 'RUN') then
6027:
6028:
6029: Eng_Workflow_Util.Get_Debug_Mode
6030: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
6031:
6032: -- For Test/Debug
6033: IF l_debug_flag THEN
6030: (itemtype, itemkey, l_debug_flag, l_output_dir , l_debug_filename);
6031:
6032: -- For Test/Debug
6033: IF l_debug_flag THEN
6034: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
6035: , l_debug_filename || actid ) ;
6036: Eng_Workflow_Util.Write_Debug('Get activity params . . . ' ) ;
6037: END IF ;
6038:
6032: -- For Test/Debug
6033: IF l_debug_flag THEN
6034: Eng_Workflow_Util.Open_Debug_Session( l_output_dir
6035: , l_debug_filename || actid ) ;
6036: Eng_Workflow_Util.Write_Debug('Get activity params . . . ' ) ;
6037: END IF ;
6038:
6039:
6040: l_waiting_activity := UPPER(Wf_Engine.GetActivityAttrText(
6042: l_waiting_flow_type := UPPER(Wf_Engine.GetActivityAttrText(
6043: itemtype, itemkey, actid,'WAITING_FLOW_TYPE'));
6044:
6045: IF l_debug_flag THEN
6046: Eng_Workflow_Util.Write_Debug('WAITING_ACTIVITY : ' || l_waiting_activity ) ;
6047: Eng_Workflow_Util.Write_Debug('WAITING_FLOW_TYPE : ' || l_waiting_flow_type ) ;
6048: END IF ;
6049:
6050:
6043: itemtype, itemkey, actid,'WAITING_FLOW_TYPE'));
6044:
6045: IF l_debug_flag THEN
6046: Eng_Workflow_Util.Write_Debug('WAITING_ACTIVITY : ' || l_waiting_activity ) ;
6047: Eng_Workflow_Util.Write_Debug('WAITING_FLOW_TYPE : ' || l_waiting_flow_type ) ;
6048: END IF ;
6049:
6050:
6051: -- Currently we are supporting only for Header Route Approval Flow.
6052: -- e.g. seeded WAITING_FLOW value is 'APPROVAL'
6053: -- In future, we may need to support other type of flow
6054: --
6055: -- if ( l_waiting_flow = 'APPROVAL' ) then
6056: -- Eng_Workflow_Util.WaitForLineApprovalFlow . . .
6057: -- elsif ( l_waiting_flow = 'XXXX' ) then
6058: -- null
6059: -- else
6060: -- raise exception ;
6062: -- end if;
6063: --
6064:
6065: IF l_debug_flag THEN
6066: Eng_Workflow_Util.Write_Debug('Calling Eng_Workflow_Util.ContinueHeaderRoute. . . ' ) ;
6067: END IF ;
6068:
6069:
6070: Eng_Workflow_Util.ContinueHeaderRoute
6066: Eng_Workflow_Util.Write_Debug('Calling Eng_Workflow_Util.ContinueHeaderRoute. . . ' ) ;
6067: END IF ;
6068:
6069:
6070: Eng_Workflow_Util.ContinueHeaderRoute
6071: ( x_return_status => l_return_status
6072: , x_msg_count => l_msg_count
6073: , x_msg_data => l_msg_data
6074: , p_item_type => itemtype
6079: , x_resultout => result
6080: ) ;
6081:
6082: IF l_debug_flag THEN
6083: Eng_Workflow_Util.Write_Debug('Return Status : ' || l_return_status ) ;
6084: Eng_Workflow_Util.Write_Debug('Result : ' || result ) ;
6085: END IF ;
6086:
6087:
6080: ) ;
6081:
6082: IF l_debug_flag THEN
6083: Eng_Workflow_Util.Write_Debug('Return Status : ' || l_return_status ) ;
6084: Eng_Workflow_Util.Write_Debug('Result : ' || result ) ;
6085: END IF ;
6086:
6087:
6088: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6087:
6088: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6089:
6090: IF l_debug_flag THEN
6091: Eng_Workflow_Util.Close_Debug_Session ;
6092: END IF ;
6093:
6094: -- Unexpected Exception
6095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6096:
6097: END IF ;
6098:
6099: IF l_debug_flag THEN
6100: Eng_Workflow_Util.Close_Debug_Session ;
6101: END IF ;
6102:
6103: -- result is set by ContinueHeaderRoute util api
6104: return;
6134:
6135: WHEN OTHERS THEN
6136:
6137: IF l_debug_flag THEN
6138: Eng_Workflow_Util.Close_Debug_Session ;
6139: END IF ;
6140:
6141: -- The line below records this function call in the error system
6142: -- in the case of an exception.
6184: -- e.g. seeded CONTINUATION_FLOW value is 'APPROVAL'
6185: -- In future, we may need to support other type of flow
6186: --
6187: -- if ( l_continuation_flow_type = 'APPROVAL' ) then
6188: -- Eng_Workflow_Util.WaitForLineApprovalFlow . . .
6189: -- elsif ( l_continuation_flow_type = 'XXXX' ) then
6190: -- null
6191: -- else
6192: -- call ContinueFlow.WaitForFlow
6192: -- call ContinueFlow.WaitForFlow
6193: -- end if;
6194: --
6195:
6196: Eng_Workflow_Util.WaitForLineRoute
6197: ( x_return_status => l_return_status
6198: , x_msg_count => l_msg_count
6199: , x_msg_data => l_msg_data
6200: , p_item_type => itemtype