204: EXCEPTION
205: --
206: WHEN OTHERS THEN
207: IF (SQLCODE <> -20001 ) THEN
208: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
209: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
210: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
211: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
212: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
205: --
206: WHEN OTHERS THEN
207: IF (SQLCODE <> -20001 ) THEN
208: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
209: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
210: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
211: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
212: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
213: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
206: WHEN OTHERS THEN
207: IF (SQLCODE <> -20001 ) THEN
208: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
209: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
210: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
211: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
212: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
213: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
214: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
207: IF (SQLCODE <> -20001 ) THEN
208: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
209: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
210: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
211: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
212: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
213: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
214: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
215: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
208: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
209: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
210: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
211: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
212: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
213: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
214: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
215: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
216: ||',p_po_release_id: '||TO_CHAR(p_po_release_id)
446:
447: WHEN OTHERS THEN
448:
449: IF (SQLCODE <> -20001 ) THEN
450: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
451: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
452: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
453: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
454: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
447: WHEN OTHERS THEN
448:
449: IF (SQLCODE <> -20001 ) THEN
450: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
451: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
452: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
453: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
454: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
455: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
448:
449: IF (SQLCODE <> -20001 ) THEN
450: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
451: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
452: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
453: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
454: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
455: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
456: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
449: IF (SQLCODE <> -20001 ) THEN
450: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
451: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
452: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
453: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
454: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
455: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
456: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
457: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
450: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
451: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
452: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
453: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
454: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
455: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
456: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
457: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
458: ||',p_po_release_id: '||TO_CHAR(p_po_release_id)
626: FROM ap_system_parameters_all
627: WHERE org_id = l_org_id_list(i);
628:
629: IF l_allow_paid_invoice_adjust = 'N' THEN
630: FND_MESSAGE.SET_NAME('SQLAP', 'ALLOW_PAID_INVOICE_ADJUST');
631: RAISE Allow_paid_Invoice_Adjust;
632: END IF;
633:
634:
728: --
729: EXCEPTION
730: WHEN Allow_paid_Invoice_Adjust THEN
731:
732: FND_FILE.PUT_LINE(FND_FILE.LOG, fnd_message.GET);
733: debug_info := 'In Allow_paid_Invoice_Adjust Exception';
734: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
735: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,debug_info);
736: END IF;
738:
739: RETURN TRUE;
740:
741: WHEN request_submission_failure THEN
742: l_msg := FND_MESSAGE.GET;
743: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
744: FND_MESSAGE.SET_TOKEN('ERROR',l_msg);
745: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
746: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
739: RETURN TRUE;
740:
741: WHEN request_submission_failure THEN
742: l_msg := FND_MESSAGE.GET;
743: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
744: FND_MESSAGE.SET_TOKEN('ERROR',l_msg);
745: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
746: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
747: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
740:
741: WHEN request_submission_failure THEN
742: l_msg := FND_MESSAGE.GET;
743: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
744: FND_MESSAGE.SET_TOKEN('ERROR',l_msg);
745: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
746: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
747: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
748: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
741: WHEN request_submission_failure THEN
742: l_msg := FND_MESSAGE.GET;
743: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
744: FND_MESSAGE.SET_TOKEN('ERROR',l_msg);
745: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
746: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
747: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
748: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
749: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
742: l_msg := FND_MESSAGE.GET;
743: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
744: FND_MESSAGE.SET_TOKEN('ERROR',l_msg);
745: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
746: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
747: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
748: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
749: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
750: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
743: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
744: FND_MESSAGE.SET_TOKEN('ERROR',l_msg);
745: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
746: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
747: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
748: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
749: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
750: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
751: ||',p_po_release_id: '||TO_CHAR(p_po_release_id)
761: RETURN FALSE;
762:
763: WHEN OTHERS THEN
764: IF (SQLCODE <> -20001 ) THEN
765: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
766: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
767: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
768: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
769: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
762:
763: WHEN OTHERS THEN
764: IF (SQLCODE <> -20001 ) THEN
765: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
766: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
767: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
768: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
769: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
770: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
763: WHEN OTHERS THEN
764: IF (SQLCODE <> -20001 ) THEN
765: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
766: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
767: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
768: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
769: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
770: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
771: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
764: IF (SQLCODE <> -20001 ) THEN
765: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
766: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
767: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
768: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
769: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
770: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
771: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
772: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
765: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
766: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
767: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
768: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info );
769: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_vendor_id: '||TO_CHAR(P_vendor_id)
770: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
771: ||',p_po_header_id: '||TO_CHAR(p_po_header_id)
772: ||',P_vendor_site_id: '||TO_CHAR(P_vendor_site_id)
773: ||',p_po_release_id: '||TO_CHAR(p_po_release_id)
1485: p_lines_rec.invoice_id) + 1;
1486: IF p_correcting = 'IPV' THEN
1487: l_adj_lines_rec.line_type_lookup_code := 'RETROITEM' ;
1488: --'Redistribution of IPV due to Retroactive Pricing of Purchase Order'
1489: FND_MESSAGE.SET_NAME('SQLAP', 'AP_RETRO_IPV_REDIST');
1490: l_adj_lines_rec.description := FND_MESSAGE.GET;
1491: ELSE
1492: l_adj_lines_rec.line_type_lookup_code := 'RETROTAX' ;
1493: --'Redistribution of TIPV due to Retroactive Pricing of Purchase Order'
1486: IF p_correcting = 'IPV' THEN
1487: l_adj_lines_rec.line_type_lookup_code := 'RETROITEM' ;
1488: --'Redistribution of IPV due to Retroactive Pricing of Purchase Order'
1489: FND_MESSAGE.SET_NAME('SQLAP', 'AP_RETRO_IPV_REDIST');
1490: l_adj_lines_rec.description := FND_MESSAGE.GET;
1491: ELSE
1492: l_adj_lines_rec.line_type_lookup_code := 'RETROTAX' ;
1493: --'Redistribution of TIPV due to Retroactive Pricing of Purchase Order'
1494: FND_MESSAGE.SET_NAME('SQLAP', 'AP_RETRO_TIPV_REDIST');
1490: l_adj_lines_rec.description := FND_MESSAGE.GET;
1491: ELSE
1492: l_adj_lines_rec.line_type_lookup_code := 'RETROTAX' ;
1493: --'Redistribution of TIPV due to Retroactive Pricing of Purchase Order'
1494: FND_MESSAGE.SET_NAME('SQLAP', 'AP_RETRO_TIPV_REDIST');
1495: l_adj_lines_rec.description := FND_MESSAGE.GET;
1496: END IF;
1497: --
1498: l_adj_lines_rec.line_source := 'ADJUSTMENT CORRECTION';
1491: ELSE
1492: l_adj_lines_rec.line_type_lookup_code := 'RETROTAX' ;
1493: --'Redistribution of TIPV due to Retroactive Pricing of Purchase Order'
1494: FND_MESSAGE.SET_NAME('SQLAP', 'AP_RETRO_TIPV_REDIST');
1495: l_adj_lines_rec.description := FND_MESSAGE.GET;
1496: END IF;
1497: --
1498: l_adj_lines_rec.line_source := 'ADJUSTMENT CORRECTION';
1499: l_adj_lines_rec.generate_dists := 'D';
2174: -- l_adj_dists_list(i).line_type_lookup_code := 'IPV';
2175: l_adj_dists_list(i).dist_match_type := 'ADJUSTMENT_CORRECTION';
2176:
2177: --'Reversal of IPV due to Retroactive Pricing of Purchase Order'
2178: FND_MESSAGE.SET_NAME('SQLAP', 'AP_RETRO_IPV_REVERSAL');
2179: l_adj_dists_list(i).description := FND_MESSAGE.GET;
2180:
2181: l_adj_dists_list(i).dist_code_combination_id := l_ipv_dists_list(i).dist_code_combination_id;
2182:
2175: l_adj_dists_list(i).dist_match_type := 'ADJUSTMENT_CORRECTION';
2176:
2177: --'Reversal of IPV due to Retroactive Pricing of Purchase Order'
2178: FND_MESSAGE.SET_NAME('SQLAP', 'AP_RETRO_IPV_REVERSAL');
2179: l_adj_dists_list(i).description := FND_MESSAGE.GET;
2180:
2181: l_adj_dists_list(i).dist_code_combination_id := l_ipv_dists_list(i).dist_code_combination_id;
2182:
2183: l_adj_dists_list(i).accounting_date := SYSDATE;
2725: --l_tipv_adj_dists_list(i).line_type_lookup_code := 'TIPV';
2726: l_tipv_adj_dists_list(i).dist_match_type := 'ADJUSTMENT_CORRECTION';
2727:
2728: --'Reversal of TIPV due to Retroactive Pricing of Purchase Order'
2729: FND_MESSAGE.SET_NAME('SQLAP', 'AP_RETRO_TIPV_REVERSAL');
2730: l_tipv_adj_dists_list(i).description := FND_MESSAGE.GET;
2731:
2732: l_tipv_adj_dists_list(i).dist_code_combination_id := l_tipv_dists_list(i).dist_code_combination_id;
2733:
2726: l_tipv_adj_dists_list(i).dist_match_type := 'ADJUSTMENT_CORRECTION';
2727:
2728: --'Reversal of TIPV due to Retroactive Pricing of Purchase Order'
2729: FND_MESSAGE.SET_NAME('SQLAP', 'AP_RETRO_TIPV_REVERSAL');
2730: l_tipv_adj_dists_list(i).description := FND_MESSAGE.GET;
2731:
2732: l_tipv_adj_dists_list(i).dist_code_combination_id := l_tipv_dists_list(i).dist_code_combination_id;
2733:
2734: l_tipv_adj_dists_list(i).accounting_date := SYSDATE;