179:
180: EXCEPTION
181: WHEN others THEN
182: IF (SQLCODE <> -20001) THEN
183: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
184: Fnd_Message.Set_Token('ERROR', SQLERRM);
185: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
186: Fnd_Message.Set_Token('PARAMETERS', 'NO INPUT ARGUMENTS');
187: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
180: EXCEPTION
181: WHEN others THEN
182: IF (SQLCODE <> -20001) THEN
183: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
184: Fnd_Message.Set_Token('ERROR', SQLERRM);
185: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
186: Fnd_Message.Set_Token('PARAMETERS', 'NO INPUT ARGUMENTS');
187: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
188: END IF;
181: WHEN others THEN
182: IF (SQLCODE <> -20001) THEN
183: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
184: Fnd_Message.Set_Token('ERROR', SQLERRM);
185: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
186: Fnd_Message.Set_Token('PARAMETERS', 'NO INPUT ARGUMENTS');
187: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
188: END IF;
189:
182: IF (SQLCODE <> -20001) THEN
183: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
184: Fnd_Message.Set_Token('ERROR', SQLERRM);
185: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
186: Fnd_Message.Set_Token('PARAMETERS', 'NO INPUT ARGUMENTS');
187: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
188: END IF;
189:
190: App_Exception.Raise_Exception;
183: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
184: Fnd_Message.Set_Token('ERROR', SQLERRM);
185: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
186: Fnd_Message.Set_Token('PARAMETERS', 'NO INPUT ARGUMENTS');
187: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
188: END IF;
189:
190: App_Exception.Raise_Exception;
191:
233:
234: EXCEPTION
235: WHEN others THEN
236: IF (SQLCODE <> -20001) THEN
237: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
238: Fnd_Message.Set_Token('ERROR', SQLERRM);
239: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
240: Fnd_Message.Set_Token('PARAMETERS',
241: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
234: EXCEPTION
235: WHEN others THEN
236: IF (SQLCODE <> -20001) THEN
237: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
238: Fnd_Message.Set_Token('ERROR', SQLERRM);
239: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
240: Fnd_Message.Set_Token('PARAMETERS',
241: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
242: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
235: WHEN others THEN
236: IF (SQLCODE <> -20001) THEN
237: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
238: Fnd_Message.Set_Token('ERROR', SQLERRM);
239: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
240: Fnd_Message.Set_Token('PARAMETERS',
241: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
242: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
243: END IF;
236: IF (SQLCODE <> -20001) THEN
237: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
238: Fnd_Message.Set_Token('ERROR', SQLERRM);
239: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
240: Fnd_Message.Set_Token('PARAMETERS',
241: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
242: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
243: END IF;
244:
238: Fnd_Message.Set_Token('ERROR', SQLERRM);
239: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
240: Fnd_Message.Set_Token('PARAMETERS',
241: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
242: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
243: END IF;
244:
245: App_Exception.Raise_Exception;
246:
284:
285: EXCEPTION
286: WHEN others THEN
287: IF (SQLCODE <> -20001) THEN
288: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
289: Fnd_Message.Set_Token('ERROR', SQLERRM);
290: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
291: Fnd_Message.Set_Token('PARAMETERS', 'NO INPUT ARGUMENTS');
292: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
285: EXCEPTION
286: WHEN others THEN
287: IF (SQLCODE <> -20001) THEN
288: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
289: Fnd_Message.Set_Token('ERROR', SQLERRM);
290: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
291: Fnd_Message.Set_Token('PARAMETERS', 'NO INPUT ARGUMENTS');
292: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
293: END IF;
286: WHEN others THEN
287: IF (SQLCODE <> -20001) THEN
288: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
289: Fnd_Message.Set_Token('ERROR', SQLERRM);
290: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
291: Fnd_Message.Set_Token('PARAMETERS', 'NO INPUT ARGUMENTS');
292: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
293: END IF;
294:
287: IF (SQLCODE <> -20001) THEN
288: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
289: Fnd_Message.Set_Token('ERROR', SQLERRM);
290: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
291: Fnd_Message.Set_Token('PARAMETERS', 'NO INPUT ARGUMENTS');
292: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
293: END IF;
294:
295: App_Exception.Raise_Exception;
288: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
289: Fnd_Message.Set_Token('ERROR', SQLERRM);
290: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
291: Fnd_Message.Set_Token('PARAMETERS', 'NO INPUT ARGUMENTS');
292: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
293: END IF;
294:
295: App_Exception.Raise_Exception;
296:
330:
331: EXCEPTION
332: WHEN others THEN
333: IF (SQLCODE <> -20001) THEN
334: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
335: Fnd_Message.Set_Token('ERROR', SQLERRM);
336: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
337: Fnd_Message.Set_Token('PARAMETERS', null);
338: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
331: EXCEPTION
332: WHEN others THEN
333: IF (SQLCODE <> -20001) THEN
334: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
335: Fnd_Message.Set_Token('ERROR', SQLERRM);
336: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
337: Fnd_Message.Set_Token('PARAMETERS', null);
338: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
339: END IF;
332: WHEN others THEN
333: IF (SQLCODE <> -20001) THEN
334: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
335: Fnd_Message.Set_Token('ERROR', SQLERRM);
336: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
337: Fnd_Message.Set_Token('PARAMETERS', null);
338: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
339: END IF;
340:
333: IF (SQLCODE <> -20001) THEN
334: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
335: Fnd_Message.Set_Token('ERROR', SQLERRM);
336: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
337: Fnd_Message.Set_Token('PARAMETERS', null);
338: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
339: END IF;
340:
341: App_Exception.Raise_Exception;
334: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
335: Fnd_Message.Set_Token('ERROR', SQLERRM);
336: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
337: Fnd_Message.Set_Token('PARAMETERS', null);
338: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
339: END IF;
340:
341: App_Exception.Raise_Exception;
342:
398:
399: EXCEPTION
400: WHEN others THEN
401: IF (SQLCODE <> -20001) THEN
402: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
403: Fnd_Message.Set_Token('ERROR', SQLERRM);
404: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
405: Fnd_Message.Set_Token('PARAMETERS',
406: ' AWT Type Code= ' || P_AWT_Type_Code ||
399: EXCEPTION
400: WHEN others THEN
401: IF (SQLCODE <> -20001) THEN
402: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
403: Fnd_Message.Set_Token('ERROR', SQLERRM);
404: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
405: Fnd_Message.Set_Token('PARAMETERS',
406: ' AWT Type Code= ' || P_AWT_Type_Code ||
407: ', Vendor Id= ' || to_char(P_Vendor_Id));
400: WHEN others THEN
401: IF (SQLCODE <> -20001) THEN
402: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
403: Fnd_Message.Set_Token('ERROR', SQLERRM);
404: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
405: Fnd_Message.Set_Token('PARAMETERS',
406: ' AWT Type Code= ' || P_AWT_Type_Code ||
407: ', Vendor Id= ' || to_char(P_Vendor_Id));
408: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
401: IF (SQLCODE <> -20001) THEN
402: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
403: Fnd_Message.Set_Token('ERROR', SQLERRM);
404: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
405: Fnd_Message.Set_Token('PARAMETERS',
406: ' AWT Type Code= ' || P_AWT_Type_Code ||
407: ', Vendor Id= ' || to_char(P_Vendor_Id));
408: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
409: END IF;
404: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
405: Fnd_Message.Set_Token('PARAMETERS',
406: ' AWT Type Code= ' || P_AWT_Type_Code ||
407: ', Vendor Id= ' || to_char(P_Vendor_Id));
408: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
409: END IF;
410:
411: App_Exception.Raise_Exception;
412:
572:
573: EXCEPTION
574: WHEN others THEN
575: IF (SQLCODE <> -20001) THEN
576: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
577: Fnd_Message.Set_Token('ERROR', SQLERRM);
578: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
579: Fnd_Message.Set_Token('PARAMETERS',
580: ' AWT Type Code= ' || P_AWT_Type_Code ||
573: EXCEPTION
574: WHEN others THEN
575: IF (SQLCODE <> -20001) THEN
576: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
577: Fnd_Message.Set_Token('ERROR', SQLERRM);
578: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
579: Fnd_Message.Set_Token('PARAMETERS',
580: ' AWT Type Code= ' || P_AWT_Type_Code ||
581: ', Tax Id= ' || to_char(P_Tax_Id) ||
574: WHEN others THEN
575: IF (SQLCODE <> -20001) THEN
576: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
577: Fnd_Message.Set_Token('ERROR', SQLERRM);
578: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
579: Fnd_Message.Set_Token('PARAMETERS',
580: ' AWT Type Code= ' || P_AWT_Type_Code ||
581: ', Tax Id= ' || to_char(P_Tax_Id) ||
582: ', Vendor Id= ' || to_char(P_Vendor_Id));
575: IF (SQLCODE <> -20001) THEN
576: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
577: Fnd_Message.Set_Token('ERROR', SQLERRM);
578: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
579: Fnd_Message.Set_Token('PARAMETERS',
580: ' AWT Type Code= ' || P_AWT_Type_Code ||
581: ', Tax Id= ' || to_char(P_Tax_Id) ||
582: ', Vendor Id= ' || to_char(P_Vendor_Id));
583: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
579: Fnd_Message.Set_Token('PARAMETERS',
580: ' AWT Type Code= ' || P_AWT_Type_Code ||
581: ', Tax Id= ' || to_char(P_Tax_Id) ||
582: ', Vendor Id= ' || to_char(P_Vendor_Id));
583: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
584: END IF;
585:
586: App_Exception.Raise_Exception;
587:
640:
641: EXCEPTION
642: WHEN others THEN
643: IF (SQLCODE <> -20001) THEN
644: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
645: Fnd_Message.Set_Token('ERROR', SQLERRM);
646: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
647: Fnd_Message.Set_Token('PARAMETERS',
648: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
641: EXCEPTION
642: WHEN others THEN
643: IF (SQLCODE <> -20001) THEN
644: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
645: Fnd_Message.Set_Token('ERROR', SQLERRM);
646: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
647: Fnd_Message.Set_Token('PARAMETERS',
648: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
649: ', Distr Line No= ' || to_char(P_Distr_Line_No) ||
642: WHEN others THEN
643: IF (SQLCODE <> -20001) THEN
644: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
645: Fnd_Message.Set_Token('ERROR', SQLERRM);
646: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
647: Fnd_Message.Set_Token('PARAMETERS',
648: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
649: ', Distr Line No= ' || to_char(P_Distr_Line_No) ||
650: ', Line Amount= ' || to_char(P_Line_Amount) ||
643: IF (SQLCODE <> -20001) THEN
644: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
645: Fnd_Message.Set_Token('ERROR', SQLERRM);
646: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
647: Fnd_Message.Set_Token('PARAMETERS',
648: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
649: ', Distr Line No= ' || to_char(P_Distr_Line_No) ||
650: ', Line Amount= ' || to_char(P_Line_Amount) ||
651: ', Payment Amount= ' || to_char(P_Payment_Amount) ||
650: ', Line Amount= ' || to_char(P_Line_Amount) ||
651: ', Payment Amount= ' || to_char(P_Payment_Amount) ||
652: ', Invoice Amount= ' || to_char(P_Invoice_Amount) ||
653: ', Tax Base Amount Basis= ' || P_Tax_Base_Amount_Basis);
654: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
655: END IF;
656:
657: App_Exception.Raise_Exception;
658:
725:
726: EXCEPTION
727: WHEN others THEN
728: IF (SQLCODE <> -20001) THEN
729: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
730: Fnd_Message.Set_Token('ERROR', SQLERRM);
731: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
732: Fnd_Message.Set_Token('PARAMETERS',
733: ' Current AWT= ' || to_char(P_Current_AWT) ||
726: EXCEPTION
727: WHEN others THEN
728: IF (SQLCODE <> -20001) THEN
729: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
730: Fnd_Message.Set_Token('ERROR', SQLERRM);
731: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
732: Fnd_Message.Set_Token('PARAMETERS',
733: ' Current AWT= ' || to_char(P_Current_AWT) ||
734: ', Invoice Id= ' || to_char(P_Invoice_Id) ||
727: WHEN others THEN
728: IF (SQLCODE <> -20001) THEN
729: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
730: Fnd_Message.Set_Token('ERROR', SQLERRM);
731: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
732: Fnd_Message.Set_Token('PARAMETERS',
733: ' Current AWT= ' || to_char(P_Current_AWT) ||
734: ', Invoice Id= ' || to_char(P_Invoice_Id) ||
735: ', Distr Line No= ' || to_char(P_Distr_Line_No) ||
728: IF (SQLCODE <> -20001) THEN
729: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
730: Fnd_Message.Set_Token('ERROR', SQLERRM);
731: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
732: Fnd_Message.Set_Token('PARAMETERS',
733: ' Current AWT= ' || to_char(P_Current_AWT) ||
734: ', Invoice Id= ' || to_char(P_Invoice_Id) ||
735: ', Distr Line No= ' || to_char(P_Distr_Line_No) ||
736: ', AWT Type Code= ' || P_AWT_Type_Code ||
741: ', Jurisdiction Type= ' || P_Jurisdiction_Type ||
742: ', Line Amount= ' || to_char(P_Line_Amount) ||
743: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount) ||
744: ', Invoice Payment Id= ' || to_char(P_Invoice_Payment_Id));
745: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
746: END IF;
747:
748: App_Exception.Raise_Exception;
749:
1163:
1164: EXCEPTION
1165: WHEN others THEN
1166: IF (SQLCODE <> -20001) THEN
1167: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1168: Fnd_Message.Set_Token('ERROR', SQLERRM);
1169: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1170: Fnd_Message.Set_Token('PARAMETERS',
1171: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1164: EXCEPTION
1165: WHEN others THEN
1166: IF (SQLCODE <> -20001) THEN
1167: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1168: Fnd_Message.Set_Token('ERROR', SQLERRM);
1169: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1170: Fnd_Message.Set_Token('PARAMETERS',
1171: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1172: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1165: WHEN others THEN
1166: IF (SQLCODE <> -20001) THEN
1167: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1168: Fnd_Message.Set_Token('ERROR', SQLERRM);
1169: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1170: Fnd_Message.Set_Token('PARAMETERS',
1171: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1172: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1173: ', Tax Name From= ' || to_char(P_Tax_Name_From) ||
1166: IF (SQLCODE <> -20001) THEN
1167: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1168: Fnd_Message.Set_Token('ERROR', SQLERRM);
1169: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1170: Fnd_Message.Set_Token('PARAMETERS',
1171: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1172: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1173: ', Tax Name From= ' || to_char(P_Tax_Name_From) ||
1174: ', Tax Name To= ' || to_char(P_Tax_Name_To));
1171: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1172: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1173: ', Tax Name From= ' || to_char(P_Tax_Name_From) ||
1174: ', Tax Name To= ' || to_char(P_Tax_Name_To));
1175: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1176: END IF;
1177:
1178: App_Exception.Raise_Exception;
1179:
1320:
1321: EXCEPTION
1322: WHEN others THEN
1323: IF (SQLCODE <> -20001) THEN
1324: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1325: Fnd_Message.Set_Token('ERROR', SQLERRM);
1326: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1327: Fnd_Message.Set_Token('PARAMETERS',
1328: ' Currency Code= ' || P_Currency_Code);
1321: EXCEPTION
1322: WHEN others THEN
1323: IF (SQLCODE <> -20001) THEN
1324: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1325: Fnd_Message.Set_Token('ERROR', SQLERRM);
1326: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1327: Fnd_Message.Set_Token('PARAMETERS',
1328: ' Currency Code= ' || P_Currency_Code);
1329: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1322: WHEN others THEN
1323: IF (SQLCODE <> -20001) THEN
1324: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1325: Fnd_Message.Set_Token('ERROR', SQLERRM);
1326: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1327: Fnd_Message.Set_Token('PARAMETERS',
1328: ' Currency Code= ' || P_Currency_Code);
1329: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1330: END IF;
1323: IF (SQLCODE <> -20001) THEN
1324: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1325: Fnd_Message.Set_Token('ERROR', SQLERRM);
1326: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1327: Fnd_Message.Set_Token('PARAMETERS',
1328: ' Currency Code= ' || P_Currency_Code);
1329: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1330: END IF;
1331:
1325: Fnd_Message.Set_Token('ERROR', SQLERRM);
1326: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1327: Fnd_Message.Set_Token('PARAMETERS',
1328: ' Currency Code= ' || P_Currency_Code);
1329: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1330: END IF;
1331:
1332: App_Exception.Raise_Exception;
1333:
1695:
1696: EXCEPTION
1697: WHEN others THEN
1698: IF (SQLCODE <> -20001) THEN
1699: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1700: Fnd_Message.Set_Token('ERROR', SQLERRM);
1701: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1702: Fnd_Message.Set_Token('PARAMETERS',
1703: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1696: EXCEPTION
1697: WHEN others THEN
1698: IF (SQLCODE <> -20001) THEN
1699: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1700: Fnd_Message.Set_Token('ERROR', SQLERRM);
1701: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1702: Fnd_Message.Set_Token('PARAMETERS',
1703: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1704: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1697: WHEN others THEN
1698: IF (SQLCODE <> -20001) THEN
1699: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1700: Fnd_Message.Set_Token('ERROR', SQLERRM);
1701: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1702: Fnd_Message.Set_Token('PARAMETERS',
1703: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1704: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1705: ', GL Period Name= ' || P_GL_Period_Name ||
1698: IF (SQLCODE <> -20001) THEN
1699: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1700: Fnd_Message.Set_Token('ERROR', SQLERRM);
1701: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1702: Fnd_Message.Set_Token('PARAMETERS',
1703: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1704: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1705: ', GL Period Name= ' || P_GL_Period_Name ||
1706: ', Base Currency Code= ' || P_Base_Currency_Code ||
1712: ', Checkrun Name= ' || P_Checkrun_Name ||
1713: ', Payment Num= ' || to_char(P_Payment_Num) ||
1714: ', Global Attr Category= '|| P_Global_Attr_Category ||
1715: ', NIT Number= ' || P_NIT_Number);
1716: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1717: END IF;
1718:
1719: App_Exception.Raise_Exception;
1720:
1801:
1802: EXCEPTION
1803: WHEN others THEN
1804: IF (SQLCODE <> -20001) THEN
1805: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1806: Fnd_Message.Set_Token('ERROR', SQLERRM);
1807: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1808: Fnd_Message.Set_Token('PARAMETERS',
1809: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1802: EXCEPTION
1803: WHEN others THEN
1804: IF (SQLCODE <> -20001) THEN
1805: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1806: Fnd_Message.Set_Token('ERROR', SQLERRM);
1807: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1808: Fnd_Message.Set_Token('PARAMETERS',
1809: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1810: ', Currency Code= ' || P_Currency_Code);
1803: WHEN others THEN
1804: IF (SQLCODE <> -20001) THEN
1805: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1806: Fnd_Message.Set_Token('ERROR', SQLERRM);
1807: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1808: Fnd_Message.Set_Token('PARAMETERS',
1809: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1810: ', Currency Code= ' || P_Currency_Code);
1811: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1804: IF (SQLCODE <> -20001) THEN
1805: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1806: Fnd_Message.Set_Token('ERROR', SQLERRM);
1807: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1808: Fnd_Message.Set_Token('PARAMETERS',
1809: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1810: ', Currency Code= ' || P_Currency_Code);
1811: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1812: END IF;
1807: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1808: Fnd_Message.Set_Token('PARAMETERS',
1809: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1810: ', Currency Code= ' || P_Currency_Code);
1811: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1812: END IF;
1813:
1814: App_Exception.Raise_Exception;
1815:
1874:
1875: EXCEPTION
1876: WHEN others THEN
1877: IF (SQLCODE <> -20001) THEN
1878: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1879: Fnd_Message.Set_Token('ERROR', SQLERRM);
1880: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1881: Fnd_Message.Set_Token('PARAMETERS', null);
1882: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1875: EXCEPTION
1876: WHEN others THEN
1877: IF (SQLCODE <> -20001) THEN
1878: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1879: Fnd_Message.Set_Token('ERROR', SQLERRM);
1880: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1881: Fnd_Message.Set_Token('PARAMETERS', null);
1882: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1883: END IF;
1876: WHEN others THEN
1877: IF (SQLCODE <> -20001) THEN
1878: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1879: Fnd_Message.Set_Token('ERROR', SQLERRM);
1880: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1881: Fnd_Message.Set_Token('PARAMETERS', null);
1882: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1883: END IF;
1884:
1877: IF (SQLCODE <> -20001) THEN
1878: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1879: Fnd_Message.Set_Token('ERROR', SQLERRM);
1880: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1881: Fnd_Message.Set_Token('PARAMETERS', null);
1882: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1883: END IF;
1884:
1885: App_Exception.Raise_Exception;
1878: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1879: Fnd_Message.Set_Token('ERROR', SQLERRM);
1880: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1881: Fnd_Message.Set_Token('PARAMETERS', null);
1882: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1883: END IF;
1884:
1885: App_Exception.Raise_Exception;
1886:
2102:
2103: EXCEPTION
2104: WHEN others THEN
2105: IF (SQLCODE <> -20001) THEN
2106: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2107: Fnd_Message.Set_Token('ERROR', SQLERRM);
2108: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2109: Fnd_Message.Set_Token('PARAMETERS',
2110: ' Credit Id = ' || to_char(P_Credit_Id) ||
2103: EXCEPTION
2104: WHEN others THEN
2105: IF (SQLCODE <> -20001) THEN
2106: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2107: Fnd_Message.Set_Token('ERROR', SQLERRM);
2108: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2109: Fnd_Message.Set_Token('PARAMETERS',
2110: ' Credit Id = ' || to_char(P_Credit_Id) ||
2111: ', Invoice_Id = ' || to_char(P_Invoice_Id) ||
2104: WHEN others THEN
2105: IF (SQLCODE <> -20001) THEN
2106: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2107: Fnd_Message.Set_Token('ERROR', SQLERRM);
2108: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2109: Fnd_Message.Set_Token('PARAMETERS',
2110: ' Credit Id = ' || to_char(P_Credit_Id) ||
2111: ', Invoice_Id = ' || to_char(P_Invoice_Id) ||
2112: -- Bug 4559478
2105: IF (SQLCODE <> -20001) THEN
2106: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2107: Fnd_Message.Set_Token('ERROR', SQLERRM);
2108: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2109: Fnd_Message.Set_Token('PARAMETERS',
2110: ' Credit Id = ' || to_char(P_Credit_Id) ||
2111: ', Invoice_Id = ' || to_char(P_Invoice_Id) ||
2112: -- Bug 4559478
2113: -- ', Start Dist Line Num = ' || to_char(P_Start_Dist_Line_Num));
2111: ', Invoice_Id = ' || to_char(P_Invoice_Id) ||
2112: -- Bug 4559478
2113: -- ', Start Dist Line Num = ' || to_char(P_Start_Dist_Line_Num));
2114: ', Inv Line Num = ' || to_char(P_Inv_Line_Num));
2115: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2116: END IF;
2117:
2118: App_Exception.Raise_Exception;
2119:
2173:
2174: EXCEPTION
2175: WHEN OTHERS THEN
2176: IF (SQLCODE <> -20001) THEN
2177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2179: END IF;
2180: APP_EXCEPTION.RAISE_EXCEPTION;
2181:
2174: EXCEPTION
2175: WHEN OTHERS THEN
2176: IF (SQLCODE <> -20001) THEN
2177: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2178: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2179: END IF;
2180: APP_EXCEPTION.RAISE_EXCEPTION;
2181:
2182: END Jl_Zz_Ap_Ext_Insert_Dist;
2243: END IF;
2244:
2245: EXCEPTION
2246: WHEN no_data_found THEN
2247: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_PERIOD_ERROR');
2248: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2249: Fnd_Message.Set_Token ('PERIOD_TYPE', P_Period_Type);
2250: Fnd_Message.Set_Token ('AWT_DATE', P_AWT_Date);
2251: P_AWT_Success := Fnd_Message.Get;
2244:
2245: EXCEPTION
2246: WHEN no_data_found THEN
2247: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_PERIOD_ERROR');
2248: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2249: Fnd_Message.Set_Token ('PERIOD_TYPE', P_Period_Type);
2250: Fnd_Message.Set_Token ('AWT_DATE', P_AWT_Date);
2251: P_AWT_Success := Fnd_Message.Get;
2252: RETURN null;
2245: EXCEPTION
2246: WHEN no_data_found THEN
2247: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_PERIOD_ERROR');
2248: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2249: Fnd_Message.Set_Token ('PERIOD_TYPE', P_Period_Type);
2250: Fnd_Message.Set_Token ('AWT_DATE', P_AWT_Date);
2251: P_AWT_Success := Fnd_Message.Get;
2252: RETURN null;
2253:
2246: WHEN no_data_found THEN
2247: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_PERIOD_ERROR');
2248: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2249: Fnd_Message.Set_Token ('PERIOD_TYPE', P_Period_Type);
2250: Fnd_Message.Set_Token ('AWT_DATE', P_AWT_Date);
2251: P_AWT_Success := Fnd_Message.Get;
2252: RETURN null;
2253:
2254: WHEN others THEN
2247: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_PERIOD_ERROR');
2248: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2249: Fnd_Message.Set_Token ('PERIOD_TYPE', P_Period_Type);
2250: Fnd_Message.Set_Token ('AWT_DATE', P_AWT_Date);
2251: P_AWT_Success := Fnd_Message.Get;
2252: RETURN null;
2253:
2254: WHEN others THEN
2255: IF (SQLCODE <> -20001) THEN
2252: RETURN null;
2253:
2254: WHEN others THEN
2255: IF (SQLCODE <> -20001) THEN
2256: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2257: Fnd_Message.Set_Token('ERROR', SQLERRM);
2258: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2259: Fnd_Message.Set_Token('PARAMETERS',
2260: ' Tax Name= ' || P_Tax_Name ||
2253:
2254: WHEN others THEN
2255: IF (SQLCODE <> -20001) THEN
2256: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2257: Fnd_Message.Set_Token('ERROR', SQLERRM);
2258: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2259: Fnd_Message.Set_Token('PARAMETERS',
2260: ' Tax Name= ' || P_Tax_Name ||
2261: ', Period Type= ' || P_Period_Type ||
2254: WHEN others THEN
2255: IF (SQLCODE <> -20001) THEN
2256: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2257: Fnd_Message.Set_Token('ERROR', SQLERRM);
2258: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2259: Fnd_Message.Set_Token('PARAMETERS',
2260: ' Tax Name= ' || P_Tax_Name ||
2261: ', Period Type= ' || P_Period_Type ||
2262: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
2255: IF (SQLCODE <> -20001) THEN
2256: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2257: Fnd_Message.Set_Token('ERROR', SQLERRM);
2258: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2259: Fnd_Message.Set_Token('PARAMETERS',
2260: ' Tax Name= ' || P_Tax_Name ||
2261: ', Period Type= ' || P_Period_Type ||
2262: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
2263: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2259: Fnd_Message.Set_Token('PARAMETERS',
2260: ' Tax Name= ' || P_Tax_Name ||
2261: ', Period Type= ' || P_Period_Type ||
2262: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
2263: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2264: END IF;
2265:
2266: App_Exception.Raise_Exception;
2267:
2342: P_Withheld_Amount_To_Date := 0;
2343:
2344: WHEN others THEN
2345: IF (SQLCODE <> -20001) THEN
2346: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2347: Fnd_Message.Set_Token('ERROR', SQLERRM);
2348: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2349: Fnd_Message.Set_Token('PARAMETERS',
2350: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2343:
2344: WHEN others THEN
2345: IF (SQLCODE <> -20001) THEN
2346: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2347: Fnd_Message.Set_Token('ERROR', SQLERRM);
2348: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2349: Fnd_Message.Set_Token('PARAMETERS',
2350: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2351: ', Tax Name= ' || P_Tax_Name ||
2344: WHEN others THEN
2345: IF (SQLCODE <> -20001) THEN
2346: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2347: Fnd_Message.Set_Token('ERROR', SQLERRM);
2348: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2349: Fnd_Message.Set_Token('PARAMETERS',
2350: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2351: ', Tax Name= ' || P_Tax_Name ||
2352: ', AWT Period Type= ' || P_AWT_Period_Type ||
2345: IF (SQLCODE <> -20001) THEN
2346: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2347: Fnd_Message.Set_Token('ERROR', SQLERRM);
2348: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2349: Fnd_Message.Set_Token('PARAMETERS',
2350: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2351: ', Tax Name= ' || P_Tax_Name ||
2352: ', AWT Period Type= ' || P_AWT_Period_Type ||
2353: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
2350: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2351: ', Tax Name= ' || P_Tax_Name ||
2352: ', AWT Period Type= ' || P_AWT_Period_Type ||
2353: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
2354: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2355: END IF;
2356:
2357: App_Exception.Raise_Exception;
2358:
2448:
2449: CLOSE c_tax_rates;
2450:
2451: IF (NOT l_tax_rate_found) THEN
2452: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_TAX_RATE_NOT_FOUND');
2453: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2454: Fnd_Message.Set_Token ('AWT_DATE', P_Date);
2455: Fnd_Message.Set_Token ('BASE_AMOUNT', P_Taxable_Base_Amount);
2456: P_AWT_Success := Fnd_Message.Get;
2449: CLOSE c_tax_rates;
2450:
2451: IF (NOT l_tax_rate_found) THEN
2452: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_TAX_RATE_NOT_FOUND');
2453: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2454: Fnd_Message.Set_Token ('AWT_DATE', P_Date);
2455: Fnd_Message.Set_Token ('BASE_AMOUNT', P_Taxable_Base_Amount);
2456: P_AWT_Success := Fnd_Message.Get;
2457: RETURN;
2450:
2451: IF (NOT l_tax_rate_found) THEN
2452: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_TAX_RATE_NOT_FOUND');
2453: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2454: Fnd_Message.Set_Token ('AWT_DATE', P_Date);
2455: Fnd_Message.Set_Token ('BASE_AMOUNT', P_Taxable_Base_Amount);
2456: P_AWT_Success := Fnd_Message.Get;
2457: RETURN;
2458: END IF;
2451: IF (NOT l_tax_rate_found) THEN
2452: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_TAX_RATE_NOT_FOUND');
2453: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2454: Fnd_Message.Set_Token ('AWT_DATE', P_Date);
2455: Fnd_Message.Set_Token ('BASE_AMOUNT', P_Taxable_Base_Amount);
2456: P_AWT_Success := Fnd_Message.Get;
2457: RETURN;
2458: END IF;
2459:
2452: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_TAX_RATE_NOT_FOUND');
2453: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2454: Fnd_Message.Set_Token ('AWT_DATE', P_Date);
2455: Fnd_Message.Set_Token ('BASE_AMOUNT', P_Taxable_Base_Amount);
2456: P_AWT_Success := Fnd_Message.Get;
2457: RETURN;
2458: END IF;
2459:
2460: EXCEPTION
2459:
2460: EXCEPTION
2461: WHEN others THEN
2462: IF (SQLCODE <> -20001) THEN
2463: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2464: Fnd_Message.Set_Token('ERROR', SQLERRM);
2465: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2466: Fnd_Message.Set_Token('PARAMETERS',
2467: ' Tax Name= ' || P_Tax_Name ||
2460: EXCEPTION
2461: WHEN others THEN
2462: IF (SQLCODE <> -20001) THEN
2463: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2464: Fnd_Message.Set_Token('ERROR', SQLERRM);
2465: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2466: Fnd_Message.Set_Token('PARAMETERS',
2467: ' Tax Name= ' || P_Tax_Name ||
2468: ', Date= ' || to_char(P_Date) ||
2461: WHEN others THEN
2462: IF (SQLCODE <> -20001) THEN
2463: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2464: Fnd_Message.Set_Token('ERROR', SQLERRM);
2465: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2466: Fnd_Message.Set_Token('PARAMETERS',
2467: ' Tax Name= ' || P_Tax_Name ||
2468: ', Date= ' || to_char(P_Date) ||
2469: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2462: IF (SQLCODE <> -20001) THEN
2463: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2464: Fnd_Message.Set_Token('ERROR', SQLERRM);
2465: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2466: Fnd_Message.Set_Token('PARAMETERS',
2467: ' Tax Name= ' || P_Tax_Name ||
2468: ', Date= ' || to_char(P_Date) ||
2469: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2470: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2466: Fnd_Message.Set_Token('PARAMETERS',
2467: ' Tax Name= ' || P_Tax_Name ||
2468: ', Date= ' || to_char(P_Date) ||
2469: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2470: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2471: END IF;
2472:
2473: App_Exception.Raise_Exception;
2474:
2566:
2567: EXCEPTION
2568: WHEN others THEN
2569: IF (SQLCODE <> -20001) THEN
2570: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2571: Fnd_Message.Set_Token('ERROR', SQLERRM);
2572: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2573: Fnd_Message.Set_Token('PARAMETERS',
2574: ' Original Withheld Amt= ' || to_char(P_Original_Withheld_Amt) ||
2567: EXCEPTION
2568: WHEN others THEN
2569: IF (SQLCODE <> -20001) THEN
2570: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2571: Fnd_Message.Set_Token('ERROR', SQLERRM);
2572: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2573: Fnd_Message.Set_Token('PARAMETERS',
2574: ' Original Withheld Amt= ' || to_char(P_Original_Withheld_Amt) ||
2575: ', Updated Withheld Amt= ' || to_char(P_Updated_Withheld_Amt) ||
2568: WHEN others THEN
2569: IF (SQLCODE <> -20001) THEN
2570: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2571: Fnd_Message.Set_Token('ERROR', SQLERRM);
2572: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2573: Fnd_Message.Set_Token('PARAMETERS',
2574: ' Original Withheld Amt= ' || to_char(P_Original_Withheld_Amt) ||
2575: ', Updated Withheld Amt= ' || to_char(P_Updated_Withheld_Amt) ||
2576: ', Currency Code= ' || P_Currency_Code);
2569: IF (SQLCODE <> -20001) THEN
2570: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2571: Fnd_Message.Set_Token('ERROR', SQLERRM);
2572: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2573: Fnd_Message.Set_Token('PARAMETERS',
2574: ' Original Withheld Amt= ' || to_char(P_Original_Withheld_Amt) ||
2575: ', Updated Withheld Amt= ' || to_char(P_Updated_Withheld_Amt) ||
2576: ', Currency Code= ' || P_Currency_Code);
2577: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2573: Fnd_Message.Set_Token('PARAMETERS',
2574: ' Original Withheld Amt= ' || to_char(P_Original_Withheld_Amt) ||
2575: ', Updated Withheld Amt= ' || to_char(P_Updated_Withheld_Amt) ||
2576: ', Currency Code= ' || P_Currency_Code);
2577: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2578: END IF;
2579:
2580: App_Exception.Raise_Exception;
2581:
2695:
2696: EXCEPTION
2697: WHEN others THEN
2698: IF (SQLCODE <> -20001) THEN
2699: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2700: Fnd_Message.Set_Token('ERROR', SQLERRM);
2701: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2702: Fnd_Message.Set_Token('PARAMETERS',
2703: ' Tax Name From= ' || to_char(P_Tax_Name_From) ||
2696: EXCEPTION
2697: WHEN others THEN
2698: IF (SQLCODE <> -20001) THEN
2699: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2700: Fnd_Message.Set_Token('ERROR', SQLERRM);
2701: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2702: Fnd_Message.Set_Token('PARAMETERS',
2703: ' Tax Name From= ' || to_char(P_Tax_Name_From) ||
2704: ', Tax Name To= ' || to_char(P_Tax_Name_To) ||
2697: WHEN others THEN
2698: IF (SQLCODE <> -20001) THEN
2699: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2700: Fnd_Message.Set_Token('ERROR', SQLERRM);
2701: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2702: Fnd_Message.Set_Token('PARAMETERS',
2703: ' Tax Name From= ' || to_char(P_Tax_Name_From) ||
2704: ', Tax Name To= ' || to_char(P_Tax_Name_To) ||
2705: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2698: IF (SQLCODE <> -20001) THEN
2699: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2700: Fnd_Message.Set_Token('ERROR', SQLERRM);
2701: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2702: Fnd_Message.Set_Token('PARAMETERS',
2703: ' Tax Name From= ' || to_char(P_Tax_Name_From) ||
2704: ', Tax Name To= ' || to_char(P_Tax_Name_To) ||
2705: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2706: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2702: Fnd_Message.Set_Token('PARAMETERS',
2703: ' Tax Name From= ' || to_char(P_Tax_Name_From) ||
2704: ', Tax Name To= ' || to_char(P_Tax_Name_To) ||
2705: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2706: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2707: END IF;
2708:
2709: App_Exception.Raise_Exception;
2710:
3091: Return(0);
3092:
3093: WHEN others THEN
3094: IF (SQLCODE <> -20001) THEN
3095: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3096: Fnd_Message.Set_Token('ERROR', SQLERRM);
3097: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3098: Fnd_Message.Set_Token('PARAMETERS',
3099: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3092:
3093: WHEN others THEN
3094: IF (SQLCODE <> -20001) THEN
3095: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3096: Fnd_Message.Set_Token('ERROR', SQLERRM);
3097: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3098: Fnd_Message.Set_Token('PARAMETERS',
3099: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3100: ', Tax Name= ' || P_Tax_Name ||
3093: WHEN others THEN
3094: IF (SQLCODE <> -20001) THEN
3095: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3096: Fnd_Message.Set_Token('ERROR', SQLERRM);
3097: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3098: Fnd_Message.Set_Token('PARAMETERS',
3099: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3100: ', Tax Name= ' || P_Tax_Name ||
3101: ', AWT Period Type= ' || P_AWT_Period_Type ||
3094: IF (SQLCODE <> -20001) THEN
3095: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3096: Fnd_Message.Set_Token('ERROR', SQLERRM);
3097: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3098: Fnd_Message.Set_Token('PARAMETERS',
3099: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3100: ', Tax Name= ' || P_Tax_Name ||
3101: ', AWT Period Type= ' || P_AWT_Period_Type ||
3102: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
3099: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3100: ', Tax Name= ' || P_Tax_Name ||
3101: ', AWT Period Type= ' || P_AWT_Period_Type ||
3102: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
3103: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3104: END IF;
3105:
3106: App_Exception.Raise_Exception;
3107: END Get_Cumulative_Supp_Exemp;