[Home] [Help]
236: l_org_id number;
237: l_functional_currency VARCHAR2(30);
238: l_transaction_type PO_DOCUMENT_TYPES.AME_TRANSACTION_TYPE%TYPE;
239:
240: n_varname Wf_Engine.NameTabTyp;
241: n_varval Wf_Engine.NumTabTyp;
242:
243: t_varname Wf_Engine.NameTabTyp;
244: t_varval Wf_Engine.TextTabTyp;
237: l_functional_currency VARCHAR2(30);
238: l_transaction_type PO_DOCUMENT_TYPES.AME_TRANSACTION_TYPE%TYPE;
239:
240: n_varname Wf_Engine.NameTabTyp;
241: n_varval Wf_Engine.NumTabTyp;
242:
243: t_varname Wf_Engine.NameTabTyp;
244: t_varval Wf_Engine.TextTabTyp;
245:
239:
240: n_varname Wf_Engine.NameTabTyp;
241: n_varval Wf_Engine.NumTabTyp;
242:
243: t_varname Wf_Engine.NameTabTyp;
244: t_varval Wf_Engine.TextTabTyp;
245:
246: l_no_positionholder exception;
247: l_preparer_user_name fnd_user.user_name%TYPE;
240: n_varname Wf_Engine.NameTabTyp;
241: n_varval Wf_Engine.NumTabTyp;
242:
243: t_varname Wf_Engine.NameTabTyp;
244: t_varval Wf_Engine.TextTabTyp;
245:
246: l_no_positionholder exception;
247: l_preparer_user_name fnd_user.user_name%TYPE;
248: l_doc_string varchar2(200);
288: INTO l_item_key
289: FROM sys.dual;
290:
291: -- Create a child process for the retrieved approver.
292: wf_engine.CreateProcess( itemtype => itemtype,
293: itemkey => l_item_key,
294: process => 'RCO_AME_PARALLEL_APPROVAL');
295:
296:
294: process => 'RCO_AME_PARALLEL_APPROVAL');
295:
296:
297: /* Need to set the parent child relationship between processes */
298: wf_engine.SetItemParent( itemtype => itemtype,
299: itemkey => l_item_key,
300: parent_itemtype => itemtype,
301: parent_itemkey => itemkey,
302: parent_context => NULL);
472: l_start_block_activity := 'Y';
473: end if;
474:
475: -- Set the item attributes.
476: Wf_Engine.SetItemAttrTextArray(itemtype, l_item_key,t_varname,t_varval);
477:
478: n_varname(1) := 'DOCUMENT_ID';
479: n_varval(1) := l_document_id;
480:
492:
493: n_varname(6) := 'CHANGE_REQUEST_GROUP_ID';
494: n_varval(6) := l_change_request_group_id;
495:
496: Wf_Engine.SetItemAttrNumberArray(itemtype, l_item_key,n_varname,n_varval);
497:
498: l_progress := 'Launch_Parallel_Approval: 005 -- Launch Parallel Approval';
499: IF (g_po_wf_debug = 'Y') THEN
500: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey, l_progress);
498: l_progress := 'Launch_Parallel_Approval: 005 -- Launch Parallel Approval';
499: IF (g_po_wf_debug = 'Y') THEN
500: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey, l_progress);
501: END IF;
502: wf_engine.StartProcess( itemtype => itemtype,
503: itemkey => l_item_key );
504:
505: l_approver_index := g_next_approvers.next(l_approver_index);
506:
830: itemkey => l_parent_item_key,
831: aname => 'AME_SUB_APPROVAL_RESPONSE',
832: avalue => 'REJECT');
833:
834: wf_engine.CompleteActivity (itemtype => l_parent_item_type,
835: itemkey => l_parent_item_key,
836: activity => 'BLOCK',
837: result => null);
838:
1430: BEGIN
1431:
1432: x_progress := 'POR_AME_RCO_WF_PVT.Set_Rco_Stat_Approved: 01';
1433:
1434: if (funcmode <> wf_engine.eng_run) then
1435: resultout := wf_engine.eng_null;
1436: return;
1437: end if;
1438:
1431:
1432: x_progress := 'POR_AME_RCO_WF_PVT.Set_Rco_Stat_Approved: 01';
1433:
1434: if (funcmode <> wf_engine.eng_run) then
1435: resultout := wf_engine.eng_null;
1436: return;
1437: end if;
1438:
1439: l_doc_header_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
1435: resultout := wf_engine.eng_null;
1436: return;
1437: end if;
1438:
1439: l_doc_header_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
1440: itemkey => itemkey,
1441: aname => 'DOCUMENT_ID');
1442:
1443: l_doc_type := wf_engine.GetItemAttrText( itemtype => itemtype,
1439: l_doc_header_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
1440: itemkey => itemkey,
1441: aname => 'DOCUMENT_ID');
1442:
1443: l_doc_type := wf_engine.GetItemAttrText( itemtype => itemtype,
1444: itemkey => itemkey,
1445: aname => 'DOCUMENT_TYPE');
1446:
1447: x_progress := 'POR_AME_RCO_WF_PVT.Set_Rco_Stat_Approved: 02 - l_doc_header_id ' || l_doc_header_id || ' -- l_doc_type :' || l_doc_type ;
1453:
1454: UpdateActionHistory(l_doc_header_id, 'NO ACTION',
1455: fnd_message.get_string('ICX', 'ICX_POR_REQ_ALREADY_APPROVED'), NULL);
1456:
1457: wf_engine.SetItemAttrText( itemtype => itemtype,
1458: itemkey => itemkey,
1459: aname => 'AUTHORIZATION_STATUS',
1460: avalue => 'APPROVED');
1461:
1458: itemkey => itemkey,
1459: aname => 'AUTHORIZATION_STATUS',
1460: avalue => 'APPROVED');
1461:
1462: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
1463:
1464: x_progress := 'POR_AME_RCO_WF_PVT.Set_Rco_Stat_Approved: 03';
1465: IF (g_po_wf_debug = 'Y') THEN
1466: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1517: BEGIN
1518:
1519: x_progress := 'POR_AME_RCO_WF_PVT.Set_Rco_Stat_Rejected: 01';
1520:
1521: if (funcmode <> wf_engine.eng_run) then
1522: resultout := wf_engine.eng_null;
1523: return;
1524: end if;
1525:
1518:
1519: x_progress := 'POR_AME_RCO_WF_PVT.Set_Rco_Stat_Rejected: 01';
1520:
1521: if (funcmode <> wf_engine.eng_run) then
1522: resultout := wf_engine.eng_null;
1523: return;
1524: end if;
1525:
1526: l_doc_header_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
1522: resultout := wf_engine.eng_null;
1523: return;
1524: end if;
1525:
1526: l_doc_header_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
1527: itemkey => itemkey,
1528: aname => 'DOCUMENT_ID');
1529:
1530: x_progress := 'POR_AME_RCO_WF_PVT.Set_Rco_Stat_Rejected: 02 - l_doc_header_id ' || l_doc_header_id;
1536:
1537: UpdateActionHistory(l_doc_header_id, 'NO ACTION',
1538: fnd_message.get_string('ICX', 'ICX_POR_REQ_ALREADY_REJECTED'), NULL);
1539:
1540: wf_engine.SetItemAttrText( itemtype => itemtype,
1541: itemkey => itemkey,
1542: aname => 'AUTHORIZATION_STATUS',
1543: avalue => 'REJECTED');
1544:
1541: itemkey => itemkey,
1542: aname => 'AUTHORIZATION_STATUS',
1543: avalue => 'REJECTED');
1544:
1545: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
1546:
1547: x_progress := 'POR_AME_RCO_WF_PVT.Set_Rco_Stat_Rejected: 03';
1548: IF (g_po_wf_debug = 'Y') THEN
1549: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);