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;
133: vendor_site_id = p_vendor_site_id
134: WHERE vendor_id = p_dup_vendor_id
135: AND vendor_site_id = p_dup_vendor_site_id ;
136:
137: IF (PO_LOG.d_stmt) THEN
138: PO_LOG.stmt(d_module, d_progress, 'updated PO_HEADERS_ARCHIVE');
139: END IF;
140:
141:
134: WHERE vendor_id = p_dup_vendor_id
135: AND vendor_site_id = p_dup_vendor_site_id ;
136:
137: IF (PO_LOG.d_stmt) THEN
138: PO_LOG.stmt(d_module, d_progress, 'updated PO_HEADERS_ARCHIVE');
139: END IF;
140:
141:
142: -- modify PO_VENDOR_LIST_ENTRIES
166: WHERE vendor_id = p_dup_vendor_id
167: AND vendor_site_id = p_dup_vendor_site_id ;
168:
169:
170: IF (PO_LOG.d_stmt) THEN
171: PO_LOG.stmt(d_module, d_progress, 'updated PO_VENDOR_LIST_ENTRIES');
172: END IF;
173:
174: -- modify PO_AUTOSOURCE_VENDORS
167: AND vendor_site_id = p_dup_vendor_site_id ;
168:
169:
170: IF (PO_LOG.d_stmt) THEN
171: PO_LOG.stmt(d_module, d_progress, 'updated PO_VENDOR_LIST_ENTRIES');
172: END IF;
173:
174: -- modify PO_AUTOSOURCE_VENDORS
175: UPDATE po_autosource_vendors pav1
213: WHERE vendor_id = p_dup_vendor_id ;
214:
215: END IF;
216:
217: IF (PO_LOG.d_stmt) THEN
218: PO_LOG.stmt(d_module, d_progress, 'updated PO_AUTOSOURCE_VENDORS');
219: END IF;
220:
221: -- modify po_autosource_documents
214:
215: END IF;
216:
217: IF (PO_LOG.d_stmt) THEN
218: PO_LOG.stmt(d_module, d_progress, 'updated PO_AUTOSOURCE_VENDORS');
219: END IF;
220:
221: -- modify po_autosource_documents
222: --
264: where vendor_id = p_dup_vendor_id;
265:
266: End If;
267:
268: IF (PO_LOG.d_stmt) THEN
269: PO_LOG.stmt(d_module, d_progress, 'updated PO_AUTOSOURCE_DOCUMENTS');
270: END IF;
271:
272: -- Starting from 11i FPJ we no longer update ga org assignments based on
265:
266: End If;
267:
268: IF (PO_LOG.d_stmt) THEN
269: PO_LOG.stmt(d_module, d_progress, 'updated PO_AUTOSOURCE_DOCUMENTS');
270: END IF;
271:
272: -- Starting from 11i FPJ we no longer update ga org assignments based on
273: -- vendor site code. Instead we just need to update org assignment with
286: PGOA.last_updated_by = l_last_updated_by,
287: PGOA.last_update_login = FND_GLOBAL.login_id
288: WHERE PGOA.vendor_site_id = p_dup_vendor_site_id;
289:
290: IF (PO_LOG.d_stmt) THEN
291: PO_LOG.stmt(d_module, d_progress, 'updated PO_GA_ORG_ASSIGNMENTS');
292: END IF;
293:
294: -- modify PO_REQUISITION_LINES
287: PGOA.last_update_login = FND_GLOBAL.login_id
288: WHERE PGOA.vendor_site_id = p_dup_vendor_site_id;
289:
290: IF (PO_LOG.d_stmt) THEN
291: PO_LOG.stmt(d_module, d_progress, 'updated PO_GA_ORG_ASSIGNMENTS');
292: END IF;
293:
294: -- modify PO_REQUISITION_LINES
295: UPDATE PO_REQUISITION_LINES
330: from po_vendors
331: where vendor_id = p_dup_vendor_id
332: and nvl(end_date_active, sysdate+1) <= sysdate);
333:
334: IF (PO_LOG.d_stmt) THEN
335: PO_LOG.stmt(d_module, d_progress, 'updated PO_REQUISITION_LINES');
336: END IF;
337:
338:
331: where vendor_id = p_dup_vendor_id
332: and nvl(end_date_active, sysdate+1) <= sysdate);
333:
334: IF (PO_LOG.d_stmt) THEN
335: PO_LOG.stmt(d_module, d_progress, 'updated PO_REQUISITION_LINES');
336: END IF;
337:
338:
339: -- Update Req Template Records
365: WHERE PV.vendor_id = p_dup_vendor_id
366: AND NVL(PV.end_date_active, SYSDATE + 1) <= SYSDATE);
367:
368:
369: IF (PO_LOG.d_stmt) THEN
370: PO_LOG.stmt(d_module, d_progress, 'updated PO_REQEXPRESS_LINES_ALL');
371: END IF;
372:
373: -- modify po_approved_supplier_list
366: AND NVL(PV.end_date_active, SYSDATE + 1) <= SYSDATE);
367:
368:
369: IF (PO_LOG.d_stmt) THEN
370: PO_LOG.stmt(d_module, d_progress, 'updated PO_REQEXPRESS_LINES_ALL');
371: END IF;
372:
373: -- modify po_approved_supplier_list
374: UPDATE po_approved_supplier_list poasl1
432: from po_vendors
433: where vendor_id = p_dup_vendor_id
434: and nvl(end_date_active, sysdate+1) <= sysdate);
435:
436: IF (PO_LOG.d_stmt) THEN
437: PO_LOG.stmt(d_module, d_progress, 'updated PO_APPROVED_SUPPLIER_LIST');
438: END IF;
439:
440: -- modify po_asl_attributes
433: where vendor_id = p_dup_vendor_id
434: and nvl(end_date_active, sysdate+1) <= sysdate);
435:
436: IF (PO_LOG.d_stmt) THEN
437: PO_LOG.stmt(d_module, d_progress, 'updated PO_APPROVED_SUPPLIER_LIST');
438: END IF;
439:
440: -- modify po_asl_attributes
441: UPDATE po_asl_attributes poasl1
497: from po_vendors
498: where vendor_id = p_dup_vendor_id
499: and nvl(end_date_active, sysdate+1) <= sysdate) ;
500:
501: IF (PO_LOG.d_stmt) THEN
502: PO_LOG.stmt(d_module, d_progress, 'updated PO_ASL_ATTRIBUTES');
503: END IF;
504:
505:
498: where vendor_id = p_dup_vendor_id
499: and nvl(end_date_active, sysdate+1) <= sysdate) ;
500:
501: IF (PO_LOG.d_stmt) THEN
502: PO_LOG.stmt(d_module, d_progress, 'updated PO_ASL_ATTRIBUTES');
503: END IF;
504:
505:
506: -- Prepare message name
552: IF FND_API.To_Boolean( p_commit ) THEN
553: COMMIT WORK;
554: END IF;
555:
556: IF (PO_LOG.d_proc) THEN
557: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
558: PO_LOG.proc_end(d_module);
559: END IF;
560:
553: COMMIT WORK;
554: END IF;
555:
556: IF (PO_LOG.d_proc) THEN
557: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
558: PO_LOG.proc_end(d_module);
559: END IF;
560:
561:
554: END IF;
555:
556: IF (PO_LOG.d_proc) THEN
557: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
558: PO_LOG.proc_end(d_module);
559: END IF;
560:
561:
562: EXCEPTION
564: WHEN OTHERS THEN
565: ROLLBACK;
566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
567:
568: IF (PO_LOG.d_proc) THEN
569: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
570: PO_LOG.proc_end(d_module);
571: END IF;
572:
565: ROLLBACK;
566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
567:
568: IF (PO_LOG.d_proc) THEN
569: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
570: PO_LOG.proc_end(d_module);
571: END IF;
572:
573: FND_MSG_PUB.Count_And_Get
566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
567:
568: IF (PO_LOG.d_proc) THEN
569: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
570: PO_LOG.proc_end(d_module);
571: END IF;
572:
573: FND_MSG_PUB.Count_And_Get
574: ( p_count => x_msg_count,