[Home] [Help]
659: l_consigned_flag PO_HEADERS_ALL.CONSIGNED_CONSUMPTION_FLAG%TYPE;
660: l_autoapprove_retro varchar2(1);
661:
662: l_okc_doc_type varchar2(20); --
663: l_vendor po_vendors.vendor_name%type; --Bug 4254468
664: l_vendor_site_code po_vendor_sites_all.vendor_site_code%type; --Bug 4254468
665:
666: l_communicatePriceChange VARCHAR2(1); -- bug4176111
667: BEGIN
1400: select pov.vendor_name,
1401: pvs.vendor_site_code
1402: into l_vendor,
1403: l_vendor_site_code
1404: from po_vendors pov,po_headers poh,po_vendor_sites_all pvs
1405: where pov.vendor_id = poh.vendor_id
1406: and poh.po_header_id = DocumentId
1407: and poh.vendor_site_id = pvs.vendor_site_id;
1408: else
1410: pvs.vendor_site_code
1411: into l_vendor,
1412: l_vendor_site_code
1413: from po_releases por,po_headers poh,
1414: po_vendors pov,po_vendor_sites_all pvs
1415: where por.po_release_id = DocumentId
1416: and por.po_header_id = poh.po_header_id
1417: and poh.vendor_id = pov.vendor_id
1418: and poh.vendor_site_id = pvs.vendor_site_id;
4376:
4377:
4378: /*CONERMS FPJ START*/
4379: -- declare local variables to hold output of get_supplier_userlist call
4380: l_supplier_user_tbl po_vendors_grp.external_user_tbl_type;
4381: l_namelist varchar2(31990):=null;
4382: l_namelist_for_sql varchar2(32000):=null;
4383: l_num_users number := 0;
4384: l_vendor_id NUMBER;
4407: l_step := '0';
4408:
4409: /* CONTERMS FPJ START */
4410: -- The code to create the user list has been sliced into another procedure
4411: -- called po_vendors_grp.get_external_userlist. This procedure now makes a
4412: -- call to it to retrieve, comma and space delimited userlist, and number
4413: -- of users, supplier list in a table and vendor id.
4414: /*po_doc_utl_pvt.get_supplier_userlist(p_document_id => p_document_id
4415: ,p_document_type => p_document_type
4419: ,x_supplier_userlist_for_sql => l_namelist_for_sql
4420: ,x_num_users => l_num_users
4421: ,x_vendor_id => l_vendor_id);*/
4422:
4423: po_vendors_grp.get_external_userlist
4424: (p_api_version => 1.0
4425: ,p_init_msg_list => FND_API.G_FALSE
4426: ,p_document_id => p_document_id
4427: ,p_document_type => p_document_type
4469: end if;
4470: begin
4471: select vendor_name
4472: into l_role_display_name
4473: from po_vendors
4474: where vendor_id=l_vendor_id;
4475: exception
4476: when others then
4477: l_role_display_name:=' ';
8422: x_user_id number;
8423: x_document_id number;
8424: x_document_type_code varchar2(30);
8425: x_po_header_id po_headers_all.po_header_id%TYPE;
8426: x_vendor po_vendors.vendor_name%TYPE; /* Bug 7172641 Changing the size as equal to the column size of vendor_name in po_vendors table */
8427: x_supp_user_name varchar2(100);
8428: x_supplier_displayname varchar2(100);
8429: x_revision_num number; -- RDP
8430: -- x_accp_type varchar2(100);
8459:
8460: if x_document_type_code <> 'RELEASE' then
8461: select pov.vendor_name,poh.revision_num
8462: into x_vendor,x_revision_num -- RDP
8463: from po_vendors pov,po_headers poh
8464: where pov.vendor_id = poh.vendor_id
8465: and poh.po_header_id=x_document_id;
8466: else
8467: select pov.vendor_name, poh.po_header_id, por.revision_num --RDP
8467: select pov.vendor_name, poh.po_header_id, por.revision_num --RDP
8468: into x_vendor,x_po_header_id,x_revision_num
8469: from po_releases por,
8470: po_headers_all poh, --
8471: po_vendors pov
8472: where por.po_release_id = x_document_id
8473: and por.po_header_id = poh.po_header_id
8474: and poh.vendor_id = pov.vendor_id;
8475: end if;
8633: poh.revision_num
8634: into
8635: x_vendor,
8636: l_revision_num
8637: from po_vendors pov,po_headers poh
8638: where pov.vendor_id = poh.vendor_id
8639: and poh.po_header_id=x_document_id;
8640:
8641: x_progress := '002';
8654: x_vendor,
8655: l_revision_num
8656: from po_releases por,
8657: po_headers_all poh, --
8658: po_vendors pov
8659: where por.po_release_id = x_document_id
8660: and por.po_header_id = poh.po_header_id
8661: and poh.vendor_id = pov.vendor_id;
8662: