77:
78:
79: IF l_vndrsites_not_merged > 0 THEN
80:
81: fnd_message.set_name('SQLAP','AP_PARTYSITE_VETO_FAIL');
82: fnd_message.set_token('PARTY_SITE_ID', p_from_fk_id);
83: fnd_msg_pub.ADD;
84: x_return_status := FND_API.G_RET_STS_ERROR;
85:
78:
79: IF l_vndrsites_not_merged > 0 THEN
80:
81: fnd_message.set_name('SQLAP','AP_PARTYSITE_VETO_FAIL');
82: fnd_message.set_token('PARTY_SITE_ID', p_from_fk_id);
83: fnd_msg_pub.ADD;
84: x_return_status := FND_API.G_RET_STS_ERROR;
85:
86: END IF;
109: AND nvl(ai.payment_status_flag,'N') <> 'Y';
110:
111: IF l_unpaid_invoices > 0 THEN
112:
113: fnd_message.set_name('SQLAP','AP_PARTYSITE_VETO_FAIL');
114: fnd_message.set_token('PARTY_SITE_ID', p_from_fk_id);
115: fnd_msg_pub.ADD;
116: x_return_status := FND_API.G_RET_STS_ERROR;
117:
110:
111: IF l_unpaid_invoices > 0 THEN
112:
113: fnd_message.set_name('SQLAP','AP_PARTYSITE_VETO_FAIL');
114: fnd_message.set_token('PARTY_SITE_ID', p_from_fk_id);
115: fnd_msg_pub.ADD;
116: x_return_status := FND_API.G_RET_STS_ERROR;
117:
118: END IF;
156: AND nvl(adv.process, 'N') = 'I';
157:
158: IF l_po_unchecked_sites > 0 THEN
159:
160: fnd_message.set_name('SQLAP','AP_PARTYSITE_VETO_FAIL');
161: fnd_message.set_token('PARTY_SITE_ID', p_from_fk_id);
162: fnd_msg_pub.ADD;
163: x_return_status := FND_API.G_RET_STS_ERROR;
164:
157:
158: IF l_po_unchecked_sites > 0 THEN
159:
160: fnd_message.set_name('SQLAP','AP_PARTYSITE_VETO_FAIL');
161: fnd_message.set_token('PARTY_SITE_ID', p_from_fk_id);
162: fnd_msg_pub.ADD;
163: x_return_status := FND_API.G_RET_STS_ERROR;
164:
165: END IF;
189: where pav1.party_site_id = p_to_fk_id);
190:
191: IF l_no_mergedto_site > 0 THEN
192:
193: fnd_message.set_name('SQLAP','AP_PARTY_SUPP_MISS_VETO_FAIL');
194: fnd_message.set_token('PARTY_SITE_ID', p_to_fk_id);
195: fnd_msg_pub.ADD;
196: x_return_status := FND_API.G_RET_STS_ERROR;
197:
190:
191: IF l_no_mergedto_site > 0 THEN
192:
193: fnd_message.set_name('SQLAP','AP_PARTY_SUPP_MISS_VETO_FAIL');
194: fnd_message.set_token('PARTY_SITE_ID', p_to_fk_id);
195: fnd_msg_pub.ADD;
196: x_return_status := FND_API.G_RET_STS_ERROR;
197:
198: END IF;
235: and pav1.party_site_id = p_to_fk_id);
236:
237: IF l_mismatch_merge_sites > 0 THEN
238:
239: fnd_message.set_name('SQLAP','AP_PARTYSITE_VETO5_FAIL');
240: fnd_message.set_token('PARTY_SITE_ID', p_from_fk_id);
241: fnd_msg_pub.ADD;
242: x_return_status := FND_API.G_RET_STS_ERROR;
243:
236:
237: IF l_mismatch_merge_sites > 0 THEN
238:
239: fnd_message.set_name('SQLAP','AP_PARTYSITE_VETO5_FAIL');
240: fnd_message.set_token('PARTY_SITE_ID', p_from_fk_id);
241: fnd_msg_pub.ADD;
242: x_return_status := FND_API.G_RET_STS_ERROR;
243:
244: END IF;
246:
247: EXCEPTION
248: WHEN OTHERS THEN
249: IF (SQLCODE <> -20001) THEN
250: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
251: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
252: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
253: FND_MESSAGE.SET_TOKEN('PARAMETERS',
254: 'Entity Name = '|| p_Entity_name
247: EXCEPTION
248: WHEN OTHERS THEN
249: IF (SQLCODE <> -20001) THEN
250: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
251: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
252: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
253: FND_MESSAGE.SET_TOKEN('PARAMETERS',
254: 'Entity Name = '|| p_Entity_name
255: ||', From Id = '|| to_char(p_from_id )
248: WHEN OTHERS THEN
249: IF (SQLCODE <> -20001) THEN
250: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
251: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
252: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
253: FND_MESSAGE.SET_TOKEN('PARAMETERS',
254: 'Entity Name = '|| p_Entity_name
255: ||', From Id = '|| to_char(p_from_id )
256: ||', To Id = '|| to_char(p_to_id )
249: IF (SQLCODE <> -20001) THEN
250: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
251: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
252: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
253: FND_MESSAGE.SET_TOKEN('PARAMETERS',
254: 'Entity Name = '|| p_Entity_name
255: ||', From Id = '|| to_char(p_from_id )
256: ||', To Id = '|| to_char(p_to_id )
257: ||', From Foreign Key = '|| to_char(p_From_FK_id)
351: AND nvl(adv.process_flag, 'N') <> 'Y';
352:
353: IF l_vndrsites_not_merged > 0 THEN
354:
355: fnd_message.set_name('SQLAP','PARTY_VETO_FAIL');
356: fnd_message.set_token('PARTY_ID', p_from_fk_id);
357: fnd_msg_pub.ADD;
358: x_return_status := FND_API.G_RET_STS_ERROR;
359:
352:
353: IF l_vndrsites_not_merged > 0 THEN
354:
355: fnd_message.set_name('SQLAP','PARTY_VETO_FAIL');
356: fnd_message.set_token('PARTY_ID', p_from_fk_id);
357: fnd_msg_pub.ADD;
358: x_return_status := FND_API.G_RET_STS_ERROR;
359:
360: END IF;
387: AND nvl(ai.payment_status_flag,'N') <> 'Y';
388:
389: IF l_unpaid_invoices > 0 THEN
390:
391: fnd_message.set_name('SQLAP','AP_PARTY_VETO_FAIL');
392: fnd_message.set_token('PARTY_ID', p_from_fk_id);
393: fnd_msg_pub.ADD;
394: x_return_status := FND_API.G_RET_STS_ERROR;
395:
388:
389: IF l_unpaid_invoices > 0 THEN
390:
391: fnd_message.set_name('SQLAP','AP_PARTY_VETO_FAIL');
392: fnd_message.set_token('PARTY_ID', p_from_fk_id);
393: fnd_msg_pub.ADD;
394: x_return_status := FND_API.G_RET_STS_ERROR;
395:
396: END IF;
436: and nvl(adv.process, 'N') = 'I';
437:
438: IF l_po_unchecked_sites > 0 THEN
439:
440: fnd_message.set_name('SQLAP','AP_PARTY_VETO_FAIL');
441: fnd_message.set_token('PARTY_ID', p_from_fk_id);
442: fnd_msg_pub.ADD;
443: x_return_status := FND_API.G_RET_STS_ERROR;
444:
437:
438: IF l_po_unchecked_sites > 0 THEN
439:
440: fnd_message.set_name('SQLAP','AP_PARTY_VETO_FAIL');
441: fnd_message.set_token('PARTY_ID', p_from_fk_id);
442: fnd_msg_pub.ADD;
443: x_return_status := FND_API.G_RET_STS_ERROR;
444:
445: END IF;
476: and pov1.vendor_id = pvs1.vendor_id);
477:
478: IF l_no_mergedto_site > 0 THEN
479:
480: fnd_message.set_name('SQLAP','AP_PARTY_SUPP_MISS_VETO_FAIL');
481: fnd_message.set_token('PARTY_ID', p_to_fk_id);
482: fnd_msg_pub.ADD;
483: x_return_status := FND_API.G_RET_STS_ERROR;
484:
477:
478: IF l_no_mergedto_site > 0 THEN
479:
480: fnd_message.set_name('SQLAP','AP_PARTY_SUPP_MISS_VETO_FAIL');
481: fnd_message.set_token('PARTY_ID', p_to_fk_id);
482: fnd_msg_pub.ADD;
483: x_return_status := FND_API.G_RET_STS_ERROR;
484:
485: END IF;
526: and aps1.party_id = p_to_fk_id);
527:
528: IF l_mismatch_merge_sites > 0 THEN
529:
530: fnd_message.set_name('SQLAP','AP_PARTY_VETO5_FAIL');
531: fnd_message.set_token('PARTY_ID', p_from_id);
532: fnd_msg_pub.ADD;
533: x_return_status := FND_API.G_RET_STS_ERROR;
534:
527:
528: IF l_mismatch_merge_sites > 0 THEN
529:
530: fnd_message.set_name('SQLAP','AP_PARTY_VETO5_FAIL');
531: fnd_message.set_token('PARTY_ID', p_from_id);
532: fnd_msg_pub.ADD;
533: x_return_status := FND_API.G_RET_STS_ERROR;
534:
535: END IF;
538: EXCEPTION
539: WHEN OTHERS THEN
540:
541: IF (SQLCODE <> -20001) THEN
542: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
543: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
544: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
545: FND_MESSAGE.SET_TOKEN('PARAMETERS',
546: 'Entity Name = '|| p_Entity_name
539: WHEN OTHERS THEN
540:
541: IF (SQLCODE <> -20001) THEN
542: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
543: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
544: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
545: FND_MESSAGE.SET_TOKEN('PARAMETERS',
546: 'Entity Name = '|| p_Entity_name
547: ||', From Id = '|| to_char(p_from_id )
540:
541: IF (SQLCODE <> -20001) THEN
542: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
543: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
544: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
545: FND_MESSAGE.SET_TOKEN('PARAMETERS',
546: 'Entity Name = '|| p_Entity_name
547: ||', From Id = '|| to_char(p_from_id )
548: ||', To Id = '|| to_char(p_to_id )
541: IF (SQLCODE <> -20001) THEN
542: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
543: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
544: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
545: FND_MESSAGE.SET_TOKEN('PARAMETERS',
546: 'Entity Name = '|| p_Entity_name
547: ||', From Id = '|| to_char(p_from_id )
548: ||', To Id = '|| to_char(p_to_id )
549: ||', From Foreign Key = '|| to_char(p_From_FK_id)
596:
597: EXCEPTION
598: WHEN OTHERS THEN
599: IF (SQLCODE <> -20001) THEN
600: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
601: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
602: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
603: FND_MESSAGE.SET_TOKEN('PARAMETERS',
604: 'Entity Name = '|| p_Entity_name
597: EXCEPTION
598: WHEN OTHERS THEN
599: IF (SQLCODE <> -20001) THEN
600: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
601: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
602: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
603: FND_MESSAGE.SET_TOKEN('PARAMETERS',
604: 'Entity Name = '|| p_Entity_name
605: ||', From Id = '|| to_char(p_from_id )
598: WHEN OTHERS THEN
599: IF (SQLCODE <> -20001) THEN
600: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
601: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
602: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
603: FND_MESSAGE.SET_TOKEN('PARAMETERS',
604: 'Entity Name = '|| p_Entity_name
605: ||', From Id = '|| to_char(p_from_id )
606: ||', To Id = '|| to_char(p_to_id )
599: IF (SQLCODE <> -20001) THEN
600: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
601: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
602: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
603: FND_MESSAGE.SET_TOKEN('PARAMETERS',
604: 'Entity Name = '|| p_Entity_name
605: ||', From Id = '|| to_char(p_from_id )
606: ||', To Id = '|| to_char(p_to_id )
607: ||', From Foreign Key = '|| to_char(p_From_FK_id)
654:
655: EXCEPTION
656: WHEN OTHERS THEN
657: IF (SQLCODE <> -20001) THEN
658: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
659: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
660: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
661: FND_MESSAGE.SET_TOKEN('PARAMETERS',
662: 'Entity Name = '|| p_Entity_name
655: EXCEPTION
656: WHEN OTHERS THEN
657: IF (SQLCODE <> -20001) THEN
658: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
659: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
660: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
661: FND_MESSAGE.SET_TOKEN('PARAMETERS',
662: 'Entity Name = '|| p_Entity_name
663: ||', From Id = '|| to_char(p_from_id )
656: WHEN OTHERS THEN
657: IF (SQLCODE <> -20001) THEN
658: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
659: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
660: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
661: FND_MESSAGE.SET_TOKEN('PARAMETERS',
662: 'Entity Name = '|| p_Entity_name
663: ||', From Id = '|| to_char(p_from_id )
664: ||', To Id = '|| to_char(p_to_id )
657: IF (SQLCODE <> -20001) THEN
658: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
659: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
660: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
661: FND_MESSAGE.SET_TOKEN('PARAMETERS',
662: 'Entity Name = '|| p_Entity_name
663: ||', From Id = '|| to_char(p_from_id )
664: ||', To Id = '|| to_char(p_to_id )
665: ||', From Foreign Key = '|| to_char(p_From_FK_id)
712:
713: EXCEPTION
714: WHEN OTHERS THEN
715: IF (SQLCODE <> -20001) THEN
716: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
717: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
718: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
719: FND_MESSAGE.SET_TOKEN('PARAMETERS',
720: 'Entity Name = '|| p_Entity_name
713: EXCEPTION
714: WHEN OTHERS THEN
715: IF (SQLCODE <> -20001) THEN
716: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
717: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
718: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
719: FND_MESSAGE.SET_TOKEN('PARAMETERS',
720: 'Entity Name = '|| p_Entity_name
721: ||', From Id = '|| to_char(p_from_id )
714: WHEN OTHERS THEN
715: IF (SQLCODE <> -20001) THEN
716: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
717: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
718: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
719: FND_MESSAGE.SET_TOKEN('PARAMETERS',
720: 'Entity Name = '|| p_Entity_name
721: ||', From Id = '|| to_char(p_from_id )
722: ||', To Id = '|| to_char(p_to_id )
715: IF (SQLCODE <> -20001) THEN
716: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
717: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
718: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
719: FND_MESSAGE.SET_TOKEN('PARAMETERS',
720: 'Entity Name = '|| p_Entity_name
721: ||', From Id = '|| to_char(p_from_id )
722: ||', To Id = '|| to_char(p_to_id )
723: ||', From Foreign Key = '|| to_char(p_From_FK_id)
766:
767: EXCEPTION
768: WHEN OTHERS THEN
769: IF (SQLCODE <> -20001) THEN
770: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
771: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
772: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
773: FND_MESSAGE.SET_TOKEN('PARAMETERS',
774: 'Entity Name = '|| p_Entity_name
767: EXCEPTION
768: WHEN OTHERS THEN
769: IF (SQLCODE <> -20001) THEN
770: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
771: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
772: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
773: FND_MESSAGE.SET_TOKEN('PARAMETERS',
774: 'Entity Name = '|| p_Entity_name
775: ||', From Id = '|| to_char(p_from_id )
768: WHEN OTHERS THEN
769: IF (SQLCODE <> -20001) THEN
770: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
771: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
772: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
773: FND_MESSAGE.SET_TOKEN('PARAMETERS',
774: 'Entity Name = '|| p_Entity_name
775: ||', From Id = '|| to_char(p_from_id )
776: ||', To Id = '|| to_char(p_to_id )
769: IF (SQLCODE <> -20001) THEN
770: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
771: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
772: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
773: FND_MESSAGE.SET_TOKEN('PARAMETERS',
774: 'Entity Name = '|| p_Entity_name
775: ||', From Id = '|| to_char(p_from_id )
776: ||', To Id = '|| to_char(p_to_id )
777: ||', From Foreign Key = '|| to_char(p_From_FK_id)
820:
821: EXCEPTION
822: WHEN OTHERS THEN
823: IF (SQLCODE <> -20001) THEN
824: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
825: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
826: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
827: FND_MESSAGE.SET_TOKEN('PARAMETERS',
828: 'Entity Name = '|| p_Entity_name
821: EXCEPTION
822: WHEN OTHERS THEN
823: IF (SQLCODE <> -20001) THEN
824: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
825: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
826: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
827: FND_MESSAGE.SET_TOKEN('PARAMETERS',
828: 'Entity Name = '|| p_Entity_name
829: ||', From Id = '|| to_char(p_from_id )
822: WHEN OTHERS THEN
823: IF (SQLCODE <> -20001) THEN
824: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
825: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
826: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
827: FND_MESSAGE.SET_TOKEN('PARAMETERS',
828: 'Entity Name = '|| p_Entity_name
829: ||', From Id = '|| to_char(p_from_id )
830: ||', To Id = '|| to_char(p_to_id )
823: IF (SQLCODE <> -20001) THEN
824: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
825: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
826: -- FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
827: FND_MESSAGE.SET_TOKEN('PARAMETERS',
828: 'Entity Name = '|| p_Entity_name
829: ||', From Id = '|| to_char(p_from_id )
830: ||', To Id = '|| to_char(p_to_id )
831: ||', From Foreign Key = '|| to_char(p_From_FK_id)