[Home] [Help]
3388: When you initiate the create doc workflow from requisition import
3389: for a batch of 5000 requisitions or more, the process
3390: failed to create the po for one or two requisitions bcos
3391: we were not truncating the sysdate before a comparison in the following
3392: if logic and thereby not creating records in the po_headers_interface
3393: table for the autocreate logic to process the req to a PO.
3394: */
3395:
3396:
3539: Added code to update vendor_contact_id when po_headers is inserted for first time. */
3540: if (x_carry_contact_to_po_flag = 'TRUE' and
3541: valid_contact(c2_suggested_vendor_site_id, x_suggested_vendor_contact_id)) then
3542: begin
3543: update po_headers_interface
3544: set vendor_contact_id = x_suggested_vendor_contact_id
3545: where interface_header_id = x_interface_header_id;
3546: exception
3547: when others then
3623: if (x_carry_contact_to_po_flag = 'TRUE' and
3624: valid_contact(c2_suggested_vendor_site_id, x_suggested_vendor_contact_id)) then
3625: begin
3626: x_progress := '55: group_req_lines: updating header with vendor contact :'||x_interface_header_id;
3627: update po_headers_interface
3628: set vendor_contact_id = x_suggested_vendor_contact_id
3629: where interface_header_id = x_interface_header_id;
3630: exception
3631: when others then
3644: if (c2_found='Y') then
3645: Begin
3646:
3647: if ( x_source_contact_id is not null) then
3648: update po_headers_interface
3649: set vendor_contact_id = x_source_contact_id
3650: where interface_header_id = x_interface_header_id;
3651:
3652: elsif (x_carry_contact_to_po_flag = 'FALSE') then -- Implies contacts in Req lines are different
3649: set vendor_contact_id = x_source_contact_id
3650: where interface_header_id = x_interface_header_id;
3651:
3652: elsif (x_carry_contact_to_po_flag = 'FALSE') then -- Implies contacts in Req lines are different
3653: update po_headers_interface
3654: set vendor_contact_id = NULL
3655: where interface_header_id = x_interface_header_id;
3656: elsif (x_carry_contact_to_po_flag = 'TRUE') and (x_prev_sug_vendor_contact_id is not null) then
3657: update po_headers_interface
3653: update po_headers_interface
3654: set vendor_contact_id = NULL
3655: where interface_header_id = x_interface_header_id;
3656: elsif (x_carry_contact_to_po_flag = 'TRUE') and (x_prev_sug_vendor_contact_id is not null) then
3657: update po_headers_interface
3658: set vendor_contact_id = x_prev_sug_vendor_contact_id
3659: where interface_header_id = x_interface_header_id;
3660:
3661: end if;
3697: /***************************************************************************
3698: *
3699: * Procedure: insert_into_headers_interface
3700: *
3701: * Description: Inserts a row into the po_headers_interface
3702: * Returns false if creating PO header fails, and true otherwise (bug 3401653)
3703: *
3704: **************************************************************************/
3705: function insert_into_headers_interface (itemtype IN VARCHAR2,
3738: x_ga_flag varchar2(1); -- FPI GA
3739: x_progress varchar2(300);
3740:
3741: x_grouping_allowed varchar2(1); /* Bug 2974129 */
3742: x_group_code po_headers_interface.group_code%TYPE; /* Bug 2974129 */
3743: l_purchasing_org_id po_headers_all.org_id%TYPE; --
3744:
3745: --begin bug 3401653
3746: l_source_doc_currency_code po_headers_all.currency_code%TYPE := NULL;
3812:
3813:
3814: /* Get the interface_header_id from the sequence */
3815:
3816: select po_headers_interface_s.nextval
3817: into x_interface_header_id
3818: from sys.dual;
3819:
3820: /* Set the batch id which can be the same as
3929: when others then
3930: /* We have found a duplicate so raise the exception */
3931:
3932: x_progress := '45: insert_into_headers_interface: document_num is a ' ||
3933: 'duplicate - not going to insert into po_headers_interface';
3934: IF (g_po_wf_debug = 'Y') THEN
3935: po_wf_debug_pkg.insert_debug(itemtype,itemkey,x_progress);
3936: END IF;
3937:
3964: --end bug 3401653
3965:
3966: /* Bug:565623. gtummala. 10/17/97
3967: * The backend also needs the currency_code to be populated in the
3968: * the po_headers_interface table. Should use functional currency if
3969: * its null.
3970: */
3971: if (x_currency_code is NULL) then
3972: x_currency_code_doc := l_pou_currency_code;
4074:
4075: /* Bug565530. gtummala. 10/23/97.
4076: * Even if the po_releases table gives us the next one in sequence,
4077: * this could conflict with a release_num that we have inserted into
4078: * the po_headers_interface table previously that has yet to converted
4079: * into a release eg. when we have two req lines that will be created
4080: * onto two diff. releases.
4081: */
4082:
4084: -- Commented out the release_num filters for the next 2 queries.
4085:
4086: select count (*)
4087: into x_no_releases
4088: from po_headers_interface phi
4089: where phi.document_num = x_document_num;
4090: -- and phi.release_num = x_release_num;
4091:
4092: if (x_no_releases <> 0) then
4091:
4092: if (x_no_releases <> 0) then
4093: select max(release_num)+1
4094: into x_release_num1
4095: from po_headers_interface phi
4096: where phi.document_num = x_document_num;
4097: -- and phi.release_num = x_release_num;
4098: end if;
4099:
4123:
4124: /* Insert into po_headers_inteface */
4125:
4126: x_progress := '50: insert_into_headers_interface: Just about to insert into ' ||
4127: 'po_headers_interface';
4128: IF (g_po_wf_debug = 'Y') THEN
4129: po_wf_debug_pkg.insert_debug(itemtype,itemkey,x_progress);
4130: END IF;
4131:
4135: po_wf_debug_pkg.insert_debug(itemtype,itemkey,x_progress);
4136: END IF;
4137:
4138: begin
4139: insert into po_headers_interface
4140: (wf_group_id,
4141: interface_header_id,
4142: interface_source_code,
4143: batch_id,
4195:
4196: exception
4197: when others then
4198: x_progress := '55: insert_into_headers_interface: IN EXCEPTION when '||
4199: 'inserting into po_headers_interface';
4200: IF (g_po_wf_debug = 'Y') THEN
4201: po_wf_debug_pkg.insert_debug(itemtype,itemkey,x_progress);
4202: END IF;
4203:
4204: raise;
4205: end;
4206:
4207: x_progress := '60: insert_into_headers_interface: Inserted into ' ||
4208: 'po_headers_interface';
4209: IF (g_po_wf_debug = 'Y') THEN
4210: po_wf_debug_pkg.insert_debug(itemtype,itemkey,x_progress);
4211: END IF;
4212:
4453: select interface_header_id,
4454: document_subtype,
4455: agent_id,
4456: vendor_site_id --
4457: from po_headers_interface
4458: where wf_group_id = x_group_id
4459: order by interface_header_id;
4460:
4461:
5874: valid_contact(c_suggested_vendor_site_id, x_suggested_vendor_contact_id)) then
5875: begin
5876: x_progress := '55: group_req_lines: updating header with vendor contact :'||x_interface_header_id;
5877:
5878: update po_headers_interface
5879: set vendor_contact_id = x_suggested_vendor_contact_id
5880: where interface_header_id = x_interface_header_id;
5881:
5882: exception