[Home] [Help]
1802:
1803: END DocCompleteCheck;
1804:
1805: /*
1806: If the document is self approved, add a new blank row in PO_ACTION_HISTORY
1807: for doc mgr call.
1808: */
1809: PROCEDURE InsertHistForOwnerApprove (itemtype VARCHAR2,
1810: itemkey VARCHAR2,
1812: p_document_type VARCHAR2,
1813: p_document_subtype VARCHAR2) IS
1814: pragma AUTONOMOUS_TRANSACTION;
1815:
1816: l_action_code PO_ACTION_HISTORY.ACTION_CODE%TYPE;
1817: l_sequence_num NUMBER;
1818: l_employee_id NUMBER;
1819: l_object_rev_num NUMBER;
1820: l_approval_path_id NUMBER;
1828: IF (g_po_wf_debug = 'Y') THEN
1829: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1830: END IF;
1831:
1832: -- get data from last entry in po_action_history
1833: select sequence_num,
1834: action_code,
1835: object_revision_num,
1836: approval_path_id
1837: into l_sequence_num,
1838: l_action_code,
1839: l_object_rev_num,
1840: l_approval_path_id
1841: from po_action_history
1842: where object_id = p_document_id
1843: and object_type_code = p_document_type
1844: and sequence_num = (select max(sequence_num)
1845: from po_action_history
1841: from po_action_history
1842: where object_id = p_document_id
1843: and object_type_code = p_document_type
1844: and sequence_num = (select max(sequence_num)
1845: from po_action_history
1846: where object_id = p_document_id
1847: and object_type_code = p_document_type);
1848:
1849: x_progress := 'PO_REQAPPROVAL_ACTION.InsertHistForOwnerApprove action_code: ' || l_action_code;
1851: IF (g_po_wf_debug = 'Y') THEN
1852: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
1853: END IF;
1854:
1855: -- if last entry into po_action_history is submit or reserve, then
1856: -- req is self-approved. Insert approval entry.
1857: if (l_action_code in ('SUBMIT', 'RESERVE', 'NO ACTION')) THEN
1858:
1859: -- get data from last SUBMIT entry in po_action_history (req submission)
1855: -- if last entry into po_action_history is submit or reserve, then
1856: -- req is self-approved. Insert approval entry.
1857: if (l_action_code in ('SUBMIT', 'RESERVE', 'NO ACTION')) THEN
1858:
1859: -- get data from last SUBMIT entry in po_action_history (req submission)
1860: select employee_id
1861: into l_employee_id
1862: from po_action_history
1863: where object_id = p_document_id
1858:
1859: -- get data from last SUBMIT entry in po_action_history (req submission)
1860: select employee_id
1861: into l_employee_id
1862: from po_action_history
1863: where object_id = p_document_id
1864: and object_type_code = p_document_type
1865: and sequence_num = (select max(sequence_num)
1866: from po_action_history
1862: from po_action_history
1863: where object_id = p_document_id
1864: and object_type_code = p_document_type
1865: and sequence_num = (select max(sequence_num)
1866: from po_action_history
1867: where object_id = p_document_id
1868: and action_code = 'SUBMIT'
1869: and object_type_code = p_document_type);
1870:
1873: IF (g_po_wf_debug = 'Y') THEN
1874: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
1875: END IF;
1876:
1877: INSERT into PO_ACTION_HISTORY
1878: (object_id,
1879: object_type_code,
1880: object_sub_type_code,
1881: sequence_num,
1945: --
1946: l_document_type PO_DOCUMENT_TYPES_ALL.document_type_code%TYPE;
1947: l_document_subtype PO_DOCUMENT_TYPES_ALL.document_subtype%TYPE;
1948: l_document_id NUMBER;
1949: l_note PO_ACTION_HISTORY.note%TYPE;
1950: l_approval_path_id NUMBER;
1951:
1952:
1953: l_ret_sts VARCHAR2(1);
2061: --
2062: l_document_type PO_DOCUMENT_TYPES_ALL.document_type_code%TYPE;
2063: l_document_subtype PO_DOCUMENT_TYPES_ALL.document_subtype%TYPE;
2064: l_document_id NUMBER;
2065: l_note PO_ACTION_HISTORY.note%TYPE;
2066: l_approval_path_id NUMBER;
2067: l_forward_to_id NUMBER;
2068:
2069: l_ret_sts VARCHAR2(1);
2075: BEGIN
2076:
2077: --
2078:
2079: /* The action FORWARD_DOCUMENT creates a new row in PO_ACTION_HISTORY
2080: ** with an action_code that is NULL and it sets the status on the
2081: ** DOCUMENT to 'PRE-APPROVED' (PO_HEADERS, REQs or RELEASES).
2082: */
2083:
2172:
2173: l_document_type PO_DOCUMENT_TYPES_ALL.document_type_code%TYPE;
2174: l_document_subtype PO_DOCUMENT_TYPES_ALL.document_subtype%TYPE;
2175: l_document_id NUMBER;
2176: l_note PO_ACTION_HISTORY.note%TYPE;
2177: l_approval_path_id NUMBER;
2178: l_forward_to_id NUMBER;
2179:
2180: l_ret_sts VARCHAR2(1);
2186: BEGIN
2187:
2188: --
2189:
2190: /* The action FORWARD_DOCUMENT creates a new row in PO_ACTION_HISTORY
2191: ** with an action_code that is NULL and it sets the status on the
2192: ** DOCUMENT to 'IN PROCESS' (PO_HEADERS, REQs or RELEASES).
2193: */
2194:
2282:
2283: l_document_type PO_DOCUMENT_TYPES_ALL.document_type_code%TYPE;
2284: l_document_subtype PO_DOCUMENT_TYPES_ALL.document_subtype%TYPE;
2285: l_document_id NUMBER;
2286: l_note PO_ACTION_HISTORY.note%TYPE;
2287: l_approval_path_id NUMBER;
2288: l_forward_to_id NUMBER;
2289:
2290: l_ret_sts VARCHAR2(1);
2297: BEGIN
2298:
2299: --
2300:
2301: /* The action FORWARD_DOCUMENT creates a new row in PO_ACTION_HISTORY
2302: ** with an action_code that is NULL and it sets the status on the
2303: ** DOCUMENT to 'PRE-APPROVED' (PO_HEADERS, REQs or RELEASES).
2304: */
2305:
2393: --
2394: l_document_type PO_DOCUMENT_TYPES_ALL.document_type_code%TYPE;
2395: l_document_subtype PO_DOCUMENT_TYPES_ALL.document_subtype%TYPE;
2396: l_document_id NUMBER;
2397: l_note PO_ACTION_HISTORY.note%TYPE;
2398: l_approval_path_id NUMBER;
2399:
2400: l_ret_sts VARCHAR2(1);
2401: l_exc_msg VARCHAR2(2000);