[Home] [Help]
25: *
26: * There are 6 procedures in this package, each for a different
27: * document type.
28: *
29: * 1. standard_po_reapproval : Standard Purchase Order
30: * 2. planned_po_reapproval : Planned Purchase Order
31: * 3. blanket_po_reapproval : Blanket Purchase Agreement
32: * 4. contract_po_reapproval : Contract Purchase Agreement
33: * 5. blanket_release_reapproval : Blanket Release
39: * (3) Only modify the IF statement logic.
40: *
41: * The workflow system compares the current and previous version of
42: * the document and reports all modifications.
43: * For example, Standard Purchase Order has 4 sections, namely
44: * header, lines, shipments, and distributions.
45: * The modifications are thus stored in the following data structure:
46: * x_header_control, x_lines_control, x_shipments_control and
47: * x_dist_control.
60: */
61:
62: /**************************************************************************
63: * *
64: * Reapproval Rules for Standard Purchase Order *
65: * *
66: **************************************************************************/
67:
68: PROCEDURE standard_po_reapproval(itemtype IN VARCHAR2,
64: * Reapproval Rules for Standard Purchase Order *
65: * *
66: **************************************************************************/
67:
68: PROCEDURE standard_po_reapproval(itemtype IN VARCHAR2,
69: itemkey IN VARCHAR2,
70: actid IN NUMBER,
71: FUNCMODE IN VARCHAR2,
72: RESULT OUT NOCOPY VARCHAR2)
90: BEGIN
91:
92: IF (g_po_wf_debug = 'Y') THEN
93: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
94: '*** In Procedure: standard_po_reapproval ***');
95: END IF;
96:
97: IF funcmode <> 'RUN' THEN
98: result := 'COMPLETE';
112: , itemkey => itemkey
113: , aname => 'DOCUMENT_SUBTYPE'
114: );
115:
116: IF ((l_document_type = 'PO') AND (l_document_subtype = 'STANDARD')) THEN
117:
118: l_po_header_id := PO_WF_UTIL_PKG.GetItemAttrText(
119: itemtype => itemtype
120: , itemkey => itemkey
186: po_chord_wf1.get_wf_header_control(itemtype, itemkey, x_header_control);
187: po_chord_wf2.get_wf_lines_control(itemtype, itemkey, x_lines_control);
188: po_chord_wf3.get_wf_shipments_control(itemtype, itemkey, x_shipments_control);
189: po_chord_wf4.get_wf_dist_control(itemtype, itemkey, x_dist_control);
190: po_chord_wf6.get_default_tolerance(itemtype, itemkey, x_tolerance_control, 'STANDARD_PO'); --
192: /***************************************************************
193: * Check if the modifications to the document header requires
194: * full reapproval.
384: END IF;
385:
386: IF (g_po_wf_debug = 'Y') THEN
387: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
388: '*** Finish: standard_po_reapproval ***');
389: END IF;
390:
391: return;
392:
1273:
1274: --
1275: -- set the change order type
1276: -- prepare tolerances_table with the required list of tolerance names
1277: if (chord_doc_type = 'STANDARD_PO' OR
1278: chord_doc_type = 'PLANNED_PO') then
1279:
1280: get_tolerances_from_wf (itemtype, itemkey, 'PO',x_tolerance_control );
1281:
1474: --Function:
1475: -- 1. Get the auto-approval tolerances for orders
1476: --Parameters:
1477: --IN:
1478: -- itemtype Workflow item type (Standard WF function parameters)
1479: -- itemkey Workflow item key (Standard WF function parameters)
1480: -- order_type Type of order
1481: --End of Comment
1482: -------------------------------------------------------------------------------
1475: -- 1. Get the auto-approval tolerances for orders
1476: --Parameters:
1477: --IN:
1478: -- itemtype Workflow item type (Standard WF function parameters)
1479: -- itemkey Workflow item key (Standard WF function parameters)
1480: -- order_type Type of order
1481: --End of Comment
1482: -------------------------------------------------------------------------------
1483: PROCEDURE Set_Wf_Order_Tol(
1578: end if;
1579:
1580: end if;
1581:
1582: -- Standard PO tolerances
1583: if (order_type = 'STANDARD') then
1584: if (x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PO_AMOUNT) then
1585:
1586: if x_tol_tab(i).max_increment is not null then
1579:
1580: end if;
1581:
1582: -- Standard PO tolerances
1583: if (order_type = 'STANDARD') then
1584: if (x_tol_tab(i).tolerance_name = PO_CO_TOLERANCES_GRP.G_PO_AMOUNT) then
1585:
1586: if x_tol_tab(i).max_increment is not null then
1587: PO_WF_UTIL_PKG.SetItemAttrText(itemtype,
1708: --Function:
1709: -- 1. Get the auto-approval tolerances for agreements
1710: --Parameters:
1711: --IN:
1712: -- itemtype Workflow item type (Standard WF function parameters)
1713: -- itemkey Workflow item key (Standard WF function parameters)
1714: -- agreement_type Type of agreement
1715: --End of Comment
1716: -------------------------------------------------------------------------------
1709: -- 1. Get the auto-approval tolerances for agreements
1710: --Parameters:
1711: --IN:
1712: -- itemtype Workflow item type (Standard WF function parameters)
1713: -- itemkey Workflow item key (Standard WF function parameters)
1714: -- agreement_type Type of agreement
1715: --End of Comment
1716: -------------------------------------------------------------------------------
1717: PROCEDURE Set_Wf_Agreement_Tol(
1879: --Function:
1880: -- 1. Get the auto-approval tolerances for releases
1881: --Parameters:
1882: --IN:
1883: -- itemtype Workflow item type (Standard WF function parameters)
1884: -- itemkey Workflow item key (Standard WF function parameters)
1885: -- release_type Type of release
1886: --End of Comment
1887: -------------------------------------------------------------------------------
1880: -- 1. Get the auto-approval tolerances for releases
1881: --Parameters:
1882: --IN:
1883: -- itemtype Workflow item type (Standard WF function parameters)
1884: -- itemkey Workflow item key (Standard WF function parameters)
1885: -- release_type Type of release
1886: --End of Comment
1887: -------------------------------------------------------------------------------
1888: PROCEDURE Set_Wf_Release_Tol(