[Home] [Help]
3690: When you initiate the create doc workflow from requisition import
3691: for a batch of 5000 requisitions or more, the process
3692: failed to create the po for one or two requisitions bcos
3693: we were not truncating the sysdate before a comparison in the following
3694: if logic and thereby not creating records in the po_headers_interface
3695: table for the autocreate logic to process the req to a PO.
3696: */
3697:
3698:
3864: Added code to update vendor_contact_id when po_headers is inserted for first time. */
3865: if (x_carry_contact_to_po_flag = 'TRUE' and
3866: valid_contact(c2_suggested_vendor_site_id, x_suggested_vendor_contact_id)) then
3867: begin
3868: update po_headers_interface
3869: set vendor_contact_id = x_suggested_vendor_contact_id
3870: where interface_header_id = x_interface_header_id;
3871: exception
3872: when others then
3948: if (x_carry_contact_to_po_flag = 'TRUE' and
3949: valid_contact(c2_suggested_vendor_site_id, x_suggested_vendor_contact_id)) then
3950: begin
3951: x_progress := '55: group_req_lines: updating header with vendor contact :'||x_interface_header_id;
3952: update po_headers_interface
3953: set vendor_contact_id = x_suggested_vendor_contact_id
3954: where interface_header_id = x_interface_header_id;
3955: exception
3956: when others then
3969: if (c2_found='Y') then
3970: Begin
3971:
3972: if ( x_source_contact_id is not null) then
3973: update po_headers_interface
3974: set vendor_contact_id = x_source_contact_id
3975: where interface_header_id = x_interface_header_id;
3976:
3977: elsif (x_carry_contact_to_po_flag = 'FALSE') then -- Implies contacts in Req lines are different
3974: set vendor_contact_id = x_source_contact_id
3975: where interface_header_id = x_interface_header_id;
3976:
3977: elsif (x_carry_contact_to_po_flag = 'FALSE') then -- Implies contacts in Req lines are different
3978: update po_headers_interface
3979: set vendor_contact_id = NULL
3980: where interface_header_id = x_interface_header_id;
3981: elsif (x_carry_contact_to_po_flag = 'TRUE') and (x_prev_sug_vendor_contact_id is not null) then
3982: update po_headers_interface
3978: update po_headers_interface
3979: set vendor_contact_id = NULL
3980: where interface_header_id = x_interface_header_id;
3981: elsif (x_carry_contact_to_po_flag = 'TRUE') and (x_prev_sug_vendor_contact_id is not null) then
3982: update po_headers_interface
3983: set vendor_contact_id = x_prev_sug_vendor_contact_id
3984: where interface_header_id = x_interface_header_id;
3985:
3986: end if;
4022: /***************************************************************************
4023: *
4024: * Procedure: insert_into_headers_interface
4025: *
4026: * Description: Inserts a row into the po_headers_interface
4027: * Returns false if creating PO header fails, and true otherwise (bug 3401653)
4028: *
4029: **************************************************************************/
4030: function insert_into_headers_interface (itemtype IN VARCHAR2,
4063: x_ga_flag varchar2(1); -- FPI GA
4064: x_progress varchar2(300);
4065:
4066: x_grouping_allowed varchar2(1); /* Bug 2974129 */
4067: x_group_code po_headers_interface.group_code%TYPE; /* Bug 2974129 */
4068: l_purchasing_org_id po_headers_all.org_id%TYPE; --
4069:
4070: --begin bug 3401653
4071: l_source_doc_currency_code po_headers_all.currency_code%TYPE := NULL;
4137:
4138:
4139: /* Get the interface_header_id from the sequence */
4140:
4141: select po_headers_interface_s.nextval
4142: into x_interface_header_id
4143: from sys.dual;
4144:
4145: /* Set the batch id which can be the same as
4254: when others then
4255: /* We have found a duplicate so raise the exception */
4256:
4257: x_progress := '45: insert_into_headers_interface: document_num is a ' ||
4258: 'duplicate - not going to insert into po_headers_interface';
4259: IF (g_po_wf_debug = 'Y') THEN
4260: po_wf_debug_pkg.insert_debug(itemtype,itemkey,x_progress);
4261: END IF;
4262:
4289: --end bug 3401653
4290:
4291: /* Bug:565623. gtummala. 10/17/97
4292: * The backend also needs the currency_code to be populated in the
4293: * the po_headers_interface table. Should use functional currency if
4294: * its null.
4295: */
4296: if (x_currency_code is NULL) then
4297: x_currency_code_doc := l_pou_currency_code;
4399:
4400: /* Bug565530. gtummala. 10/23/97.
4401: * Even if the po_releases table gives us the next one in sequence,
4402: * this could conflict with a release_num that we have inserted into
4403: * the po_headers_interface table previously that has yet to converted
4404: * into a release eg. when we have two req lines that will be created
4405: * onto two diff. releases.
4406: */
4407:
4409: -- Commented out the release_num filters for the next 2 queries.
4410:
4411: select count (*)
4412: into x_no_releases
4413: from po_headers_interface phi
4414: where phi.document_num = x_document_num;
4415: -- and phi.release_num = x_release_num;
4416:
4417: if (x_no_releases <> 0) then
4416:
4417: if (x_no_releases <> 0) then
4418: select max(release_num)+1
4419: into x_release_num1
4420: from po_headers_interface phi
4421: where phi.document_num = x_document_num;
4422: -- and phi.release_num = x_release_num;
4423: end if;
4424:
4448:
4449: /* Insert into po_headers_inteface */
4450:
4451: x_progress := '50: insert_into_headers_interface: Just about to insert into ' ||
4452: 'po_headers_interface';
4453: IF (g_po_wf_debug = 'Y') THEN
4454: po_wf_debug_pkg.insert_debug(itemtype,itemkey,x_progress);
4455: END IF;
4456:
4460: po_wf_debug_pkg.insert_debug(itemtype,itemkey,x_progress);
4461: END IF;
4462:
4463: begin
4464: insert into po_headers_interface
4465: (wf_group_id,
4466: interface_header_id,
4467: interface_source_code,
4468: batch_id,
4520:
4521: exception
4522: when others then
4523: x_progress := '55: insert_into_headers_interface: IN EXCEPTION when '||
4524: 'inserting into po_headers_interface';
4525: IF (g_po_wf_debug = 'Y') THEN
4526: po_wf_debug_pkg.insert_debug(itemtype,itemkey,x_progress);
4527: END IF;
4528:
4529: raise;
4530: end;
4531:
4532: x_progress := '60: insert_into_headers_interface: Inserted into ' ||
4533: 'po_headers_interface';
4534: IF (g_po_wf_debug = 'Y') THEN
4535: po_wf_debug_pkg.insert_debug(itemtype,itemkey,x_progress);
4536: END IF;
4537:
4778: select interface_header_id,
4779: document_subtype,
4780: agent_id,
4781: vendor_site_id --
4782: from po_headers_interface
4783: where wf_group_id = x_group_id
4784: order by interface_header_id;
4785:
4786:
6292: valid_contact(c_suggested_vendor_site_id, x_suggested_vendor_contact_id)) then
6293: begin
6294: x_progress := '55: group_req_lines: updating header with vendor contact :'||x_interface_header_id;
6295:
6296: update po_headers_interface
6297: set vendor_contact_id = x_suggested_vendor_contact_id
6298: where interface_header_id = x_interface_header_id;
6299:
6300: exception