69:
70: BEGIN
71:
72: d_progress := 0;
73: IF (PO_LOG.d_proc) THEN
74: PO_LOG.proc_begin(d_module);
75: PO_LOG.proc_begin(d_module, 'p_vendor_id', p_vendor_id);
76: PO_LOG.proc_begin(d_module, 'p_vendor_site_id', p_vendor_site_id);
77: PO_LOG.proc_begin(d_module, 'p_dup_vendor_id', p_dup_vendor_id);
70: BEGIN
71:
72: d_progress := 0;
73: IF (PO_LOG.d_proc) THEN
74: PO_LOG.proc_begin(d_module);
75: PO_LOG.proc_begin(d_module, 'p_vendor_id', p_vendor_id);
76: PO_LOG.proc_begin(d_module, 'p_vendor_site_id', p_vendor_site_id);
77: PO_LOG.proc_begin(d_module, 'p_dup_vendor_id', p_dup_vendor_id);
78: PO_LOG.proc_begin(d_module, 'p_dup_vendor_site_id', p_dup_vendor_site_id);
71:
72: d_progress := 0;
73: IF (PO_LOG.d_proc) THEN
74: PO_LOG.proc_begin(d_module);
75: PO_LOG.proc_begin(d_module, 'p_vendor_id', p_vendor_id);
76: PO_LOG.proc_begin(d_module, 'p_vendor_site_id', p_vendor_site_id);
77: PO_LOG.proc_begin(d_module, 'p_dup_vendor_id', p_dup_vendor_id);
78: PO_LOG.proc_begin(d_module, 'p_dup_vendor_site_id', p_dup_vendor_site_id);
79: PO_LOG.proc_begin(d_module, 'p_party_id', p_party_id);
72: d_progress := 0;
73: IF (PO_LOG.d_proc) THEN
74: PO_LOG.proc_begin(d_module);
75: PO_LOG.proc_begin(d_module, 'p_vendor_id', p_vendor_id);
76: PO_LOG.proc_begin(d_module, 'p_vendor_site_id', p_vendor_site_id);
77: PO_LOG.proc_begin(d_module, 'p_dup_vendor_id', p_dup_vendor_id);
78: PO_LOG.proc_begin(d_module, 'p_dup_vendor_site_id', p_dup_vendor_site_id);
79: PO_LOG.proc_begin(d_module, 'p_party_id', p_party_id);
80: PO_LOG.proc_begin(d_module, 'p_dup_party_id', p_dup_party_id);
73: IF (PO_LOG.d_proc) THEN
74: PO_LOG.proc_begin(d_module);
75: PO_LOG.proc_begin(d_module, 'p_vendor_id', p_vendor_id);
76: PO_LOG.proc_begin(d_module, 'p_vendor_site_id', p_vendor_site_id);
77: PO_LOG.proc_begin(d_module, 'p_dup_vendor_id', p_dup_vendor_id);
78: PO_LOG.proc_begin(d_module, 'p_dup_vendor_site_id', p_dup_vendor_site_id);
79: PO_LOG.proc_begin(d_module, 'p_party_id', p_party_id);
80: PO_LOG.proc_begin(d_module, 'p_dup_party_id', p_dup_party_id);
81: PO_LOG.proc_begin(d_module, 'p_party_site_id', p_party_site_id);
74: PO_LOG.proc_begin(d_module);
75: PO_LOG.proc_begin(d_module, 'p_vendor_id', p_vendor_id);
76: PO_LOG.proc_begin(d_module, 'p_vendor_site_id', p_vendor_site_id);
77: PO_LOG.proc_begin(d_module, 'p_dup_vendor_id', p_dup_vendor_id);
78: PO_LOG.proc_begin(d_module, 'p_dup_vendor_site_id', p_dup_vendor_site_id);
79: PO_LOG.proc_begin(d_module, 'p_party_id', p_party_id);
80: PO_LOG.proc_begin(d_module, 'p_dup_party_id', p_dup_party_id);
81: PO_LOG.proc_begin(d_module, 'p_party_site_id', p_party_site_id);
82: PO_LOG.proc_begin(d_module, 'p_dup_party_site_id', p_dup_party_site_id);
75: PO_LOG.proc_begin(d_module, 'p_vendor_id', p_vendor_id);
76: PO_LOG.proc_begin(d_module, 'p_vendor_site_id', p_vendor_site_id);
77: PO_LOG.proc_begin(d_module, 'p_dup_vendor_id', p_dup_vendor_id);
78: PO_LOG.proc_begin(d_module, 'p_dup_vendor_site_id', p_dup_vendor_site_id);
79: PO_LOG.proc_begin(d_module, 'p_party_id', p_party_id);
80: PO_LOG.proc_begin(d_module, 'p_dup_party_id', p_dup_party_id);
81: PO_LOG.proc_begin(d_module, 'p_party_site_id', p_party_site_id);
82: PO_LOG.proc_begin(d_module, 'p_dup_party_site_id', p_dup_party_site_id);
83: END IF;
76: PO_LOG.proc_begin(d_module, 'p_vendor_site_id', p_vendor_site_id);
77: PO_LOG.proc_begin(d_module, 'p_dup_vendor_id', p_dup_vendor_id);
78: PO_LOG.proc_begin(d_module, 'p_dup_vendor_site_id', p_dup_vendor_site_id);
79: PO_LOG.proc_begin(d_module, 'p_party_id', p_party_id);
80: PO_LOG.proc_begin(d_module, 'p_dup_party_id', p_dup_party_id);
81: PO_LOG.proc_begin(d_module, 'p_party_site_id', p_party_site_id);
82: PO_LOG.proc_begin(d_module, 'p_dup_party_site_id', p_dup_party_site_id);
83: END IF;
84:
77: PO_LOG.proc_begin(d_module, 'p_dup_vendor_id', p_dup_vendor_id);
78: PO_LOG.proc_begin(d_module, 'p_dup_vendor_site_id', p_dup_vendor_site_id);
79: PO_LOG.proc_begin(d_module, 'p_party_id', p_party_id);
80: PO_LOG.proc_begin(d_module, 'p_dup_party_id', p_dup_party_id);
81: PO_LOG.proc_begin(d_module, 'p_party_site_id', p_party_site_id);
82: PO_LOG.proc_begin(d_module, 'p_dup_party_site_id', p_dup_party_site_id);
83: END IF;
84:
85: -- Initialize API return status to success
78: PO_LOG.proc_begin(d_module, 'p_dup_vendor_site_id', p_dup_vendor_site_id);
79: PO_LOG.proc_begin(d_module, 'p_party_id', p_party_id);
80: PO_LOG.proc_begin(d_module, 'p_dup_party_id', p_dup_party_id);
81: PO_LOG.proc_begin(d_module, 'p_party_site_id', p_party_site_id);
82: PO_LOG.proc_begin(d_module, 'p_dup_party_site_id', p_dup_party_site_id);
83: END IF;
84:
85: -- Initialize API return status to success
86: x_return_status := FND_API.G_RET_STS_SUCCESS;
199: FROM po_doc_style_headers pods
200: WHERE pods.style_id = pha.style_id
201: AND NVL(pods.CLM_FLAG,'N') = 'Y');
202:
203: IF (PO_LOG.d_stmt) THEN
204: PO_LOG.stmt(d_module, d_progress, 'updated PO_HEADERS_ARCHIVE');
205: END IF;
206:
207:
200: WHERE pods.style_id = pha.style_id
201: AND NVL(pods.CLM_FLAG,'N') = 'Y');
202:
203: IF (PO_LOG.d_stmt) THEN
204: PO_LOG.stmt(d_module, d_progress, 'updated PO_HEADERS_ARCHIVE');
205: END IF;
206:
207:
208: -- modify PO_VENDOR_LIST_ENTRIES
232: WHERE vendor_id = p_dup_vendor_id
233: AND vendor_site_id = p_dup_vendor_site_id ;
234:
235:
236: IF (PO_LOG.d_stmt) THEN
237: PO_LOG.stmt(d_module, d_progress, 'updated PO_VENDOR_LIST_ENTRIES');
238: END IF;
239:
240: -- modify PO_AUTOSOURCE_VENDORS
233: AND vendor_site_id = p_dup_vendor_site_id ;
234:
235:
236: IF (PO_LOG.d_stmt) THEN
237: PO_LOG.stmt(d_module, d_progress, 'updated PO_VENDOR_LIST_ENTRIES');
238: END IF;
239:
240: -- modify PO_AUTOSOURCE_VENDORS
241: UPDATE po_autosource_vendors pav1
279: WHERE vendor_id = p_dup_vendor_id ;
280:
281: END IF;
282:
283: IF (PO_LOG.d_stmt) THEN
284: PO_LOG.stmt(d_module, d_progress, 'updated PO_AUTOSOURCE_VENDORS');
285: END IF;
286:
287: -- modify po_autosource_documents
280:
281: END IF;
282:
283: IF (PO_LOG.d_stmt) THEN
284: PO_LOG.stmt(d_module, d_progress, 'updated PO_AUTOSOURCE_VENDORS');
285: END IF;
286:
287: -- modify po_autosource_documents
288: --
330: where vendor_id = p_dup_vendor_id;
331:
332: End If;
333:
334: IF (PO_LOG.d_stmt) THEN
335: PO_LOG.stmt(d_module, d_progress, 'updated PO_AUTOSOURCE_DOCUMENTS');
336: END IF;
337:
338: -- Starting from 11i FPJ we no longer update ga org assignments based on
331:
332: End If;
333:
334: IF (PO_LOG.d_stmt) THEN
335: PO_LOG.stmt(d_module, d_progress, 'updated PO_AUTOSOURCE_DOCUMENTS');
336: END IF;
337:
338: -- Starting from 11i FPJ we no longer update ga org assignments based on
339: -- vendor site code. Instead we just need to update org assignment with
363: po_headers ph
364: WHERE pods.style_id = ph.style_id
365: AND ph.PO_HEADER_ID= pgoa.PO_HEADER_ID
366: AND NVL(pods.CLM_FLAG,'N') = 'Y');
367: IF (PO_LOG.d_stmt) THEN
368: PO_LOG.stmt(d_module, d_progress, 'updated PO_GA_ORG_ASSIGNMENTS');
369: END IF;
370:
371: -- modify PO_REQUISITION_LINES
364: WHERE pods.style_id = ph.style_id
365: AND ph.PO_HEADER_ID= pgoa.PO_HEADER_ID
366: AND NVL(pods.CLM_FLAG,'N') = 'Y');
367: IF (PO_LOG.d_stmt) THEN
368: PO_LOG.stmt(d_module, d_progress, 'updated PO_GA_ORG_ASSIGNMENTS');
369: END IF;
370:
371: -- modify PO_REQUISITION_LINES
372: UPDATE PO_REQUISITION_LINES prl
420: FROM Po_Requisition_Headers_All prha
421: WHERE prha.Requisition_Header_Id = prl.Requisition_Header_Id
422: AND NVL(PRHA.FEDERAL_FLAG,'N')='Y');
423:
424: IF (PO_LOG.d_stmt) THEN
425: PO_LOG.stmt(d_module, d_progress, 'updated PO_REQUISITION_LINES');
426: END IF;
427:
428:
421: WHERE prha.Requisition_Header_Id = prl.Requisition_Header_Id
422: AND NVL(PRHA.FEDERAL_FLAG,'N')='Y');
423:
424: IF (PO_LOG.d_stmt) THEN
425: PO_LOG.stmt(d_module, d_progress, 'updated PO_REQUISITION_LINES');
426: END IF;
427:
428:
429: -- Update Req Template Records
455: WHERE PV.vendor_id = p_dup_vendor_id
456: AND NVL(PV.end_date_active, SYSDATE + 1) <= SYSDATE);
457:
458:
459: IF (PO_LOG.d_stmt) THEN
460: PO_LOG.stmt(d_module, d_progress, 'updated PO_REQEXPRESS_LINES_ALL');
461: END IF;
462:
463: -- modify po_approved_supplier_list
456: AND NVL(PV.end_date_active, SYSDATE + 1) <= SYSDATE);
457:
458:
459: IF (PO_LOG.d_stmt) THEN
460: PO_LOG.stmt(d_module, d_progress, 'updated PO_REQEXPRESS_LINES_ALL');
461: END IF;
462:
463: -- modify po_approved_supplier_list
464: UPDATE po_approved_supplier_list poasl1
522: from po_vendors
523: where vendor_id = p_dup_vendor_id
524: and nvl(end_date_active, sysdate+1) <= sysdate);
525:
526: IF (PO_LOG.d_stmt) THEN
527: PO_LOG.stmt(d_module, d_progress, 'updated PO_APPROVED_SUPPLIER_LIST');
528: END IF;
529:
530: -- modify po_asl_attributes
523: where vendor_id = p_dup_vendor_id
524: and nvl(end_date_active, sysdate+1) <= sysdate);
525:
526: IF (PO_LOG.d_stmt) THEN
527: PO_LOG.stmt(d_module, d_progress, 'updated PO_APPROVED_SUPPLIER_LIST');
528: END IF;
529:
530: -- modify po_asl_attributes
531: UPDATE po_asl_attributes poasl1
587: from po_vendors
588: where vendor_id = p_dup_vendor_id
589: and nvl(end_date_active, sysdate+1) <= sysdate) ;
590:
591: IF (PO_LOG.d_stmt) THEN
592: PO_LOG.stmt(d_module, d_progress, 'updated PO_ASL_ATTRIBUTES');
593: END IF;
594:
595:
588: where vendor_id = p_dup_vendor_id
589: and nvl(end_date_active, sysdate+1) <= sysdate) ;
590:
591: IF (PO_LOG.d_stmt) THEN
592: PO_LOG.stmt(d_module, d_progress, 'updated PO_ASL_ATTRIBUTES');
593: END IF;
594:
595:
596: -- Prepare message name
642: IF FND_API.To_Boolean( p_commit ) THEN
643: COMMIT WORK;
644: END IF;
645:
646: IF (PO_LOG.d_proc) THEN
647: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
648: PO_LOG.proc_end(d_module);
649: END IF;
650:
643: COMMIT WORK;
644: END IF;
645:
646: IF (PO_LOG.d_proc) THEN
647: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
648: PO_LOG.proc_end(d_module);
649: END IF;
650:
651:
644: END IF;
645:
646: IF (PO_LOG.d_proc) THEN
647: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
648: PO_LOG.proc_end(d_module);
649: END IF;
650:
651:
652: EXCEPTION
654: WHEN OTHERS THEN
655: ROLLBACK;
656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
657:
658: IF (PO_LOG.d_proc) THEN
659: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
660: PO_LOG.proc_end(d_module);
661: END IF;
662:
655: ROLLBACK;
656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
657:
658: IF (PO_LOG.d_proc) THEN
659: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
660: PO_LOG.proc_end(d_module);
661: END IF;
662:
663: FND_MSG_PUB.Count_And_Get
656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
657:
658: IF (PO_LOG.d_proc) THEN
659: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
660: PO_LOG.proc_end(d_module);
661: END IF;
662:
663: FND_MSG_PUB.Count_And_Get
664: ( p_count => x_msg_count,