[Home] [Help]
46: l_session_id NUMBER;
47: l_responsibility_id NUMBER;
48: l_item_type wf_items.item_type%TYPE;
49: l_item_key wf_items.item_key%TYPE;
50: l_document_id po_headers.po_header_id%TYPE;
51: l_document_num VARCHAR2(500);
52: l_header_msg VARCHAR2(500);
53: l_document VARCHAR2(32000) := '';
54: NL VARCHAR2(1) := fnd_global.newline;
85:
86: select rowidtochar(ROWID)
87: into p_rowid
88: from AK_FLOW_REGION_RELATIONS
89: where FROM_REGION_CODE = 'ICX_PO_HEADERS_D'
90: and FROM_REGION_APPL_ID = 178
91: and FROM_PAGE_CODE = 'ICX_PO_HEADERS_D'
92: and FROM_PAGE_APPL_ID = 178
93: and TO_PAGE_CODE = 'ICX_PO_HEADERS_DTL_D'
87: into p_rowid
88: from AK_FLOW_REGION_RELATIONS
89: where FROM_REGION_CODE = 'ICX_PO_HEADERS_D'
90: and FROM_REGION_APPL_ID = 178
91: and FROM_PAGE_CODE = 'ICX_PO_HEADERS_D'
92: and FROM_PAGE_APPL_ID = 178
93: and TO_PAGE_CODE = 'ICX_PO_HEADERS_DTL_D'
94: and TO_PAGE_APPL_ID = 178
95: and FLOW_CODE = 'ICX_INQUIRIES'
89: where FROM_REGION_CODE = 'ICX_PO_HEADERS_D'
90: and FROM_REGION_APPL_ID = 178
91: and FROM_PAGE_CODE = 'ICX_PO_HEADERS_D'
92: and FROM_PAGE_APPL_ID = 178
93: and TO_PAGE_CODE = 'ICX_PO_HEADERS_DTL_D'
94: and TO_PAGE_APPL_ID = 178
95: and FLOW_CODE = 'ICX_INQUIRIES'
96: and FLOW_APPLICATION_ID = 178;
97:
303:
304: begin
305: x_progress := '001';
306: select vendor_id into x_vendor_id
307: from po_headers_all
308: where po_header_id = x_document_id;
309:
310: x_progress := '002';
311: exception
317: begin
318: x_progress := '003';
319: select vendor_id
320: into x_vendor_id
321: from po_headers_all
322: where po_header_id = (select po_header_id from po_releases_all
323: where po_release_id = x_document_id);
324:
325: x_progress := '004';
373: -- abort any outstanding acceptance notifications for any previous revision of the document.
374:
375: select nvl(revision_num, 0)
376: into x_doc_revision
377: from po_headers
378: where po_header_id = x_document_id;
379:
380: while x_doc_revision >= 0 loop
381: