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:
615: --Bug 10060465 end
616: EXCEPTION
617: WHEN others THEN
618: IF (SQLCODE <> -20001) THEN
619: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
620: Fnd_Message.Set_Token('ERROR', SQLERRM);
621: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
622: Fnd_Message.Set_Token('PARAMETERS',
623: ' AWT Type Code= ' || P_AWT_Type_Code ||
616: EXCEPTION
617: WHEN others THEN
618: IF (SQLCODE <> -20001) THEN
619: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
620: Fnd_Message.Set_Token('ERROR', SQLERRM);
621: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
622: Fnd_Message.Set_Token('PARAMETERS',
623: ' AWT Type Code= ' || P_AWT_Type_Code ||
624: ', Tax Id= ' || to_char(P_Tax_Id) ||
617: WHEN others THEN
618: IF (SQLCODE <> -20001) THEN
619: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
620: Fnd_Message.Set_Token('ERROR', SQLERRM);
621: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
622: Fnd_Message.Set_Token('PARAMETERS',
623: ' AWT Type Code= ' || P_AWT_Type_Code ||
624: ', Tax Id= ' || to_char(P_Tax_Id) ||
625: ', Vendor Id= ' || to_char(P_Vendor_Id));
618: IF (SQLCODE <> -20001) THEN
619: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
620: Fnd_Message.Set_Token('ERROR', SQLERRM);
621: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
622: Fnd_Message.Set_Token('PARAMETERS',
623: ' AWT Type Code= ' || P_AWT_Type_Code ||
624: ', Tax Id= ' || to_char(P_Tax_Id) ||
625: ', Vendor Id= ' || to_char(P_Vendor_Id));
626: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
622: Fnd_Message.Set_Token('PARAMETERS',
623: ' AWT Type Code= ' || P_AWT_Type_Code ||
624: ', Tax Id= ' || to_char(P_Tax_Id) ||
625: ', Vendor Id= ' || to_char(P_Vendor_Id));
626: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
627: END IF;
628:
629: App_Exception.Raise_Exception;
630:
683:
684: EXCEPTION
685: WHEN others THEN
686: IF (SQLCODE <> -20001) THEN
687: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
688: Fnd_Message.Set_Token('ERROR', SQLERRM);
689: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
690: Fnd_Message.Set_Token('PARAMETERS',
691: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
684: EXCEPTION
685: WHEN others THEN
686: IF (SQLCODE <> -20001) THEN
687: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
688: Fnd_Message.Set_Token('ERROR', SQLERRM);
689: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
690: Fnd_Message.Set_Token('PARAMETERS',
691: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
692: ', Distr Line No= ' || to_char(P_Distr_Line_No) ||
685: WHEN others THEN
686: IF (SQLCODE <> -20001) THEN
687: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
688: Fnd_Message.Set_Token('ERROR', SQLERRM);
689: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
690: Fnd_Message.Set_Token('PARAMETERS',
691: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
692: ', Distr Line No= ' || to_char(P_Distr_Line_No) ||
693: ', Line Amount= ' || to_char(P_Line_Amount) ||
686: IF (SQLCODE <> -20001) THEN
687: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
688: Fnd_Message.Set_Token('ERROR', SQLERRM);
689: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
690: Fnd_Message.Set_Token('PARAMETERS',
691: ' Invoice Id= ' || to_char(P_Invoice_Id) ||
692: ', Distr Line No= ' || to_char(P_Distr_Line_No) ||
693: ', Line Amount= ' || to_char(P_Line_Amount) ||
694: ', Payment Amount= ' || to_char(P_Payment_Amount) ||
693: ', Line Amount= ' || to_char(P_Line_Amount) ||
694: ', Payment Amount= ' || to_char(P_Payment_Amount) ||
695: ', Invoice Amount= ' || to_char(P_Invoice_Amount) ||
696: ', Tax Base Amount Basis= ' || P_Tax_Base_Amount_Basis);
697: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
698: END IF;
699:
700: App_Exception.Raise_Exception;
701:
768:
769: EXCEPTION
770: WHEN others THEN
771: IF (SQLCODE <> -20001) THEN
772: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
773: Fnd_Message.Set_Token('ERROR', SQLERRM);
774: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
775: Fnd_Message.Set_Token('PARAMETERS',
776: ' Current AWT= ' || to_char(P_Current_AWT) ||
769: EXCEPTION
770: WHEN others THEN
771: IF (SQLCODE <> -20001) THEN
772: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
773: Fnd_Message.Set_Token('ERROR', SQLERRM);
774: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
775: Fnd_Message.Set_Token('PARAMETERS',
776: ' Current AWT= ' || to_char(P_Current_AWT) ||
777: ', Invoice Id= ' || to_char(P_Invoice_Id) ||
770: WHEN others THEN
771: IF (SQLCODE <> -20001) THEN
772: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
773: Fnd_Message.Set_Token('ERROR', SQLERRM);
774: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
775: Fnd_Message.Set_Token('PARAMETERS',
776: ' Current AWT= ' || to_char(P_Current_AWT) ||
777: ', Invoice Id= ' || to_char(P_Invoice_Id) ||
778: ', Distr Line No= ' || to_char(P_Distr_Line_No) ||
771: IF (SQLCODE <> -20001) THEN
772: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
773: Fnd_Message.Set_Token('ERROR', SQLERRM);
774: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
775: Fnd_Message.Set_Token('PARAMETERS',
776: ' Current AWT= ' || to_char(P_Current_AWT) ||
777: ', Invoice Id= ' || to_char(P_Invoice_Id) ||
778: ', Distr Line No= ' || to_char(P_Distr_Line_No) ||
779: ', AWT Type Code= ' || P_AWT_Type_Code ||
784: ', Jurisdiction Type= ' || P_Jurisdiction_Type ||
785: ', Line Amount= ' || to_char(P_Line_Amount) ||
786: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount) ||
787: ', Invoice Payment Id= ' || to_char(P_Invoice_Payment_Id));
788: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
789: END IF;
790:
791: App_Exception.Raise_Exception;
792:
1206:
1207: EXCEPTION
1208: WHEN others THEN
1209: IF (SQLCODE <> -20001) THEN
1210: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1211: Fnd_Message.Set_Token('ERROR', SQLERRM);
1212: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1213: Fnd_Message.Set_Token('PARAMETERS',
1214: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1207: EXCEPTION
1208: WHEN others THEN
1209: IF (SQLCODE <> -20001) THEN
1210: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1211: Fnd_Message.Set_Token('ERROR', SQLERRM);
1212: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1213: Fnd_Message.Set_Token('PARAMETERS',
1214: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1215: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1208: WHEN others THEN
1209: IF (SQLCODE <> -20001) THEN
1210: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1211: Fnd_Message.Set_Token('ERROR', SQLERRM);
1212: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1213: Fnd_Message.Set_Token('PARAMETERS',
1214: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1215: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1216: ', Tax Name From= ' || to_char(P_Tax_Name_From) ||
1209: IF (SQLCODE <> -20001) THEN
1210: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1211: Fnd_Message.Set_Token('ERROR', SQLERRM);
1212: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1213: Fnd_Message.Set_Token('PARAMETERS',
1214: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1215: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1216: ', Tax Name From= ' || to_char(P_Tax_Name_From) ||
1217: ', Tax Name To= ' || to_char(P_Tax_Name_To));
1214: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1215: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1216: ', Tax Name From= ' || to_char(P_Tax_Name_From) ||
1217: ', Tax Name To= ' || to_char(P_Tax_Name_To));
1218: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1219: END IF;
1220:
1221: App_Exception.Raise_Exception;
1222:
1363:
1364: EXCEPTION
1365: WHEN others THEN
1366: IF (SQLCODE <> -20001) THEN
1367: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1368: Fnd_Message.Set_Token('ERROR', SQLERRM);
1369: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1370: Fnd_Message.Set_Token('PARAMETERS',
1371: ' Currency Code= ' || P_Currency_Code);
1364: EXCEPTION
1365: WHEN others THEN
1366: IF (SQLCODE <> -20001) THEN
1367: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1368: Fnd_Message.Set_Token('ERROR', SQLERRM);
1369: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1370: Fnd_Message.Set_Token('PARAMETERS',
1371: ' Currency Code= ' || P_Currency_Code);
1372: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1365: WHEN others THEN
1366: IF (SQLCODE <> -20001) THEN
1367: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1368: Fnd_Message.Set_Token('ERROR', SQLERRM);
1369: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1370: Fnd_Message.Set_Token('PARAMETERS',
1371: ' Currency Code= ' || P_Currency_Code);
1372: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1373: END IF;
1366: IF (SQLCODE <> -20001) THEN
1367: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1368: Fnd_Message.Set_Token('ERROR', SQLERRM);
1369: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1370: Fnd_Message.Set_Token('PARAMETERS',
1371: ' Currency Code= ' || P_Currency_Code);
1372: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1373: END IF;
1374:
1368: Fnd_Message.Set_Token('ERROR', SQLERRM);
1369: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1370: Fnd_Message.Set_Token('PARAMETERS',
1371: ' Currency Code= ' || P_Currency_Code);
1372: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1373: END IF;
1374:
1375: App_Exception.Raise_Exception;
1376:
1646:
1647: EXCEPTION
1648: WHEN others THEN
1649: IF (SQLCODE <> -20001) THEN
1650: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1651: Fnd_Message.Set_Token('ERROR', SQLERRM);
1652: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1653: Fnd_Message.Set_Token('PARAMETERS',
1654: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1647: EXCEPTION
1648: WHEN others THEN
1649: IF (SQLCODE <> -20001) THEN
1650: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1651: Fnd_Message.Set_Token('ERROR', SQLERRM);
1652: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1653: Fnd_Message.Set_Token('PARAMETERS',
1654: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1655: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1648: WHEN others THEN
1649: IF (SQLCODE <> -20001) THEN
1650: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1651: Fnd_Message.Set_Token('ERROR', SQLERRM);
1652: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1653: Fnd_Message.Set_Token('PARAMETERS',
1654: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1655: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1656: ', GL Period Name= ' || P_GL_Period_Name ||
1649: IF (SQLCODE <> -20001) THEN
1650: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1651: Fnd_Message.Set_Token('ERROR', SQLERRM);
1652: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1653: Fnd_Message.Set_Token('PARAMETERS',
1654: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
1655: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1656: ', GL Period Name= ' || P_GL_Period_Name ||
1657: ', Base Currency Code= ' || P_Base_Currency_Code ||
1663: ', Checkrun Name= ' || P_Checkrun_Name ||
1664: ', Payment Num= ' || to_char(P_Payment_Num) ||
1665: ', Global Attr Category= '|| P_Global_Attr_Category ||
1666: ', NIT Number= ' || P_NIT_Number);
1667: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1668: END IF;
1669:
1670: App_Exception.Raise_Exception;
1671:
1751:
1752: EXCEPTION
1753: WHEN others THEN
1754: IF (SQLCODE <> -20001) THEN
1755: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1756: Fnd_Message.Set_Token('ERROR', SQLERRM);
1757: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1758: Fnd_Message.Set_Token('PARAMETERS',
1759: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1752: EXCEPTION
1753: WHEN others THEN
1754: IF (SQLCODE <> -20001) THEN
1755: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1756: Fnd_Message.Set_Token('ERROR', SQLERRM);
1757: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1758: Fnd_Message.Set_Token('PARAMETERS',
1759: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1760: ', Currency Code= ' || P_Currency_Code);
1753: WHEN others THEN
1754: IF (SQLCODE <> -20001) THEN
1755: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1756: Fnd_Message.Set_Token('ERROR', SQLERRM);
1757: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1758: Fnd_Message.Set_Token('PARAMETERS',
1759: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1760: ', Currency Code= ' || P_Currency_Code);
1761: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1754: IF (SQLCODE <> -20001) THEN
1755: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1756: Fnd_Message.Set_Token('ERROR', SQLERRM);
1757: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1758: Fnd_Message.Set_Token('PARAMETERS',
1759: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1760: ', Currency Code= ' || P_Currency_Code);
1761: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1762: END IF;
1757: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1758: Fnd_Message.Set_Token('PARAMETERS',
1759: ' AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD') ||
1760: ', Currency Code= ' || P_Currency_Code);
1761: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1762: END IF;
1763:
1764: App_Exception.Raise_Exception;
1765:
1824:
1825: EXCEPTION
1826: WHEN others THEN
1827: IF (SQLCODE <> -20001) THEN
1828: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1829: Fnd_Message.Set_Token('ERROR', SQLERRM);
1830: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1831: Fnd_Message.Set_Token('PARAMETERS', null);
1832: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1825: EXCEPTION
1826: WHEN others THEN
1827: IF (SQLCODE <> -20001) THEN
1828: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1829: Fnd_Message.Set_Token('ERROR', SQLERRM);
1830: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1831: Fnd_Message.Set_Token('PARAMETERS', null);
1832: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1833: END IF;
1826: WHEN others THEN
1827: IF (SQLCODE <> -20001) THEN
1828: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1829: Fnd_Message.Set_Token('ERROR', SQLERRM);
1830: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1831: Fnd_Message.Set_Token('PARAMETERS', null);
1832: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1833: END IF;
1834:
1827: IF (SQLCODE <> -20001) THEN
1828: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1829: Fnd_Message.Set_Token('ERROR', SQLERRM);
1830: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1831: Fnd_Message.Set_Token('PARAMETERS', null);
1832: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1833: END IF;
1834:
1835: App_Exception.Raise_Exception;
1828: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
1829: Fnd_Message.Set_Token('ERROR', SQLERRM);
1830: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
1831: Fnd_Message.Set_Token('PARAMETERS', null);
1832: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
1833: END IF;
1834:
1835: App_Exception.Raise_Exception;
1836:
2054:
2055: EXCEPTION
2056: WHEN others THEN
2057: IF (SQLCODE <> -20001) THEN
2058: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2059: Fnd_Message.Set_Token('ERROR', SQLERRM);
2060: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2061: Fnd_Message.Set_Token('PARAMETERS',
2062: ' Credit Id = ' || to_char(P_Credit_Id) ||
2055: EXCEPTION
2056: WHEN others THEN
2057: IF (SQLCODE <> -20001) THEN
2058: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2059: Fnd_Message.Set_Token('ERROR', SQLERRM);
2060: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2061: Fnd_Message.Set_Token('PARAMETERS',
2062: ' Credit Id = ' || to_char(P_Credit_Id) ||
2063: ', Invoice_Id = ' || to_char(P_Invoice_Id) ||
2056: WHEN others THEN
2057: IF (SQLCODE <> -20001) THEN
2058: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2059: Fnd_Message.Set_Token('ERROR', SQLERRM);
2060: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2061: Fnd_Message.Set_Token('PARAMETERS',
2062: ' Credit Id = ' || to_char(P_Credit_Id) ||
2063: ', Invoice_Id = ' || to_char(P_Invoice_Id) ||
2064: -- Bug 4559478
2057: IF (SQLCODE <> -20001) THEN
2058: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2059: Fnd_Message.Set_Token('ERROR', SQLERRM);
2060: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2061: Fnd_Message.Set_Token('PARAMETERS',
2062: ' Credit Id = ' || to_char(P_Credit_Id) ||
2063: ', Invoice_Id = ' || to_char(P_Invoice_Id) ||
2064: -- Bug 4559478
2065: -- ', Start Dist Line Num = ' || to_char(P_Start_Dist_Line_Num));
2063: ', Invoice_Id = ' || to_char(P_Invoice_Id) ||
2064: -- Bug 4559478
2065: -- ', Start Dist Line Num = ' || to_char(P_Start_Dist_Line_Num));
2066: ', Inv Line Num = ' || to_char(P_Inv_Line_Num));
2067: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2068: END IF;
2069:
2070: App_Exception.Raise_Exception;
2071:
2125:
2126: EXCEPTION
2127: WHEN OTHERS THEN
2128: IF (SQLCODE <> -20001) THEN
2129: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2130: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2131: END IF;
2132: APP_EXCEPTION.RAISE_EXCEPTION;
2133:
2126: EXCEPTION
2127: WHEN OTHERS THEN
2128: IF (SQLCODE <> -20001) THEN
2129: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2130: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2131: END IF;
2132: APP_EXCEPTION.RAISE_EXCEPTION;
2133:
2134: END Jl_Zz_Ap_Ext_Insert_Dist;
2198: END IF;
2199:
2200: EXCEPTION
2201: WHEN no_data_found THEN
2202: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_PERIOD_ERROR');
2203: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2204: Fnd_Message.Set_Token ('PERIOD_TYPE', P_Period_Type);
2205: Fnd_Message.Set_Token ('AWT_DATE', P_AWT_Date);
2206: P_AWT_Success := Fnd_Message.Get;
2199:
2200: EXCEPTION
2201: WHEN no_data_found THEN
2202: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_PERIOD_ERROR');
2203: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2204: Fnd_Message.Set_Token ('PERIOD_TYPE', P_Period_Type);
2205: Fnd_Message.Set_Token ('AWT_DATE', P_AWT_Date);
2206: P_AWT_Success := Fnd_Message.Get;
2207: RETURN null;
2200: EXCEPTION
2201: WHEN no_data_found THEN
2202: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_PERIOD_ERROR');
2203: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2204: Fnd_Message.Set_Token ('PERIOD_TYPE', P_Period_Type);
2205: Fnd_Message.Set_Token ('AWT_DATE', P_AWT_Date);
2206: P_AWT_Success := Fnd_Message.Get;
2207: RETURN null;
2208:
2201: WHEN no_data_found THEN
2202: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_PERIOD_ERROR');
2203: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2204: Fnd_Message.Set_Token ('PERIOD_TYPE', P_Period_Type);
2205: Fnd_Message.Set_Token ('AWT_DATE', P_AWT_Date);
2206: P_AWT_Success := Fnd_Message.Get;
2207: RETURN null;
2208:
2209: WHEN others THEN
2202: Fnd_Message.Set_Name ('JL', 'JL_AR_AP_AWT_PERIOD_ERROR');
2203: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2204: Fnd_Message.Set_Token ('PERIOD_TYPE', P_Period_Type);
2205: Fnd_Message.Set_Token ('AWT_DATE', P_AWT_Date);
2206: P_AWT_Success := Fnd_Message.Get;
2207: RETURN null;
2208:
2209: WHEN others THEN
2210: IF (SQLCODE <> -20001) THEN
2207: RETURN null;
2208:
2209: WHEN others THEN
2210: IF (SQLCODE <> -20001) THEN
2211: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2212: Fnd_Message.Set_Token('ERROR', SQLERRM);
2213: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2214: Fnd_Message.Set_Token('PARAMETERS',
2215: ' Tax Name= ' || P_Tax_Name ||
2208:
2209: WHEN others THEN
2210: IF (SQLCODE <> -20001) THEN
2211: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2212: Fnd_Message.Set_Token('ERROR', SQLERRM);
2213: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2214: Fnd_Message.Set_Token('PARAMETERS',
2215: ' Tax Name= ' || P_Tax_Name ||
2216: ', Period Type= ' || P_Period_Type ||
2209: WHEN others THEN
2210: IF (SQLCODE <> -20001) THEN
2211: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2212: Fnd_Message.Set_Token('ERROR', SQLERRM);
2213: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2214: Fnd_Message.Set_Token('PARAMETERS',
2215: ' Tax Name= ' || P_Tax_Name ||
2216: ', Period Type= ' || P_Period_Type ||
2217: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
2210: IF (SQLCODE <> -20001) THEN
2211: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2212: Fnd_Message.Set_Token('ERROR', SQLERRM);
2213: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2214: Fnd_Message.Set_Token('PARAMETERS',
2215: ' Tax Name= ' || P_Tax_Name ||
2216: ', Period Type= ' || P_Period_Type ||
2217: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
2218: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2214: Fnd_Message.Set_Token('PARAMETERS',
2215: ' Tax Name= ' || P_Tax_Name ||
2216: ', Period Type= ' || P_Period_Type ||
2217: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
2218: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2219: END IF;
2220:
2221: App_Exception.Raise_Exception;
2222:
2297: P_Withheld_Amount_To_Date := 0;
2298:
2299: WHEN others THEN
2300: IF (SQLCODE <> -20001) THEN
2301: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2302: Fnd_Message.Set_Token('ERROR', SQLERRM);
2303: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2304: Fnd_Message.Set_Token('PARAMETERS',
2305: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2298:
2299: WHEN others THEN
2300: IF (SQLCODE <> -20001) THEN
2301: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2302: Fnd_Message.Set_Token('ERROR', SQLERRM);
2303: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2304: Fnd_Message.Set_Token('PARAMETERS',
2305: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2306: ', Tax Name= ' || P_Tax_Name ||
2299: WHEN others THEN
2300: IF (SQLCODE <> -20001) THEN
2301: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2302: Fnd_Message.Set_Token('ERROR', SQLERRM);
2303: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2304: Fnd_Message.Set_Token('PARAMETERS',
2305: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2306: ', Tax Name= ' || P_Tax_Name ||
2307: ', AWT Period Type= ' || P_AWT_Period_Type ||
2300: IF (SQLCODE <> -20001) THEN
2301: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2302: Fnd_Message.Set_Token('ERROR', SQLERRM);
2303: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2304: Fnd_Message.Set_Token('PARAMETERS',
2305: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2306: ', Tax Name= ' || P_Tax_Name ||
2307: ', AWT Period Type= ' || P_AWT_Period_Type ||
2308: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
2305: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
2306: ', Tax Name= ' || P_Tax_Name ||
2307: ', AWT Period Type= ' || P_AWT_Period_Type ||
2308: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
2309: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2310: END IF;
2311:
2312: App_Exception.Raise_Exception;
2313:
2403:
2404: CLOSE c_tax_rates;
2405:
2406: IF (NOT l_tax_rate_found) THEN
2407: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_TAX_RATE_NOT_FOUND');
2408: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2409: Fnd_Message.Set_Token ('AWT_DATE', P_Date);
2410: Fnd_Message.Set_Token ('BASE_AMOUNT', P_Taxable_Base_Amount);
2411: P_AWT_Success := Fnd_Message.Get;
2404: CLOSE c_tax_rates;
2405:
2406: IF (NOT l_tax_rate_found) THEN
2407: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_TAX_RATE_NOT_FOUND');
2408: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2409: Fnd_Message.Set_Token ('AWT_DATE', P_Date);
2410: Fnd_Message.Set_Token ('BASE_AMOUNT', P_Taxable_Base_Amount);
2411: P_AWT_Success := Fnd_Message.Get;
2412: RETURN;
2405:
2406: IF (NOT l_tax_rate_found) THEN
2407: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_TAX_RATE_NOT_FOUND');
2408: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2409: Fnd_Message.Set_Token ('AWT_DATE', P_Date);
2410: Fnd_Message.Set_Token ('BASE_AMOUNT', P_Taxable_Base_Amount);
2411: P_AWT_Success := Fnd_Message.Get;
2412: RETURN;
2413: END IF;
2406: IF (NOT l_tax_rate_found) THEN
2407: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_TAX_RATE_NOT_FOUND');
2408: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2409: Fnd_Message.Set_Token ('AWT_DATE', P_Date);
2410: Fnd_Message.Set_Token ('BASE_AMOUNT', P_Taxable_Base_Amount);
2411: P_AWT_Success := Fnd_Message.Get;
2412: RETURN;
2413: END IF;
2414:
2407: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_TAX_RATE_NOT_FOUND');
2408: Fnd_Message.Set_Token ('TAX_NAME', P_Tax_Name);
2409: Fnd_Message.Set_Token ('AWT_DATE', P_Date);
2410: Fnd_Message.Set_Token ('BASE_AMOUNT', P_Taxable_Base_Amount);
2411: P_AWT_Success := Fnd_Message.Get;
2412: RETURN;
2413: END IF;
2414:
2415: EXCEPTION
2414:
2415: EXCEPTION
2416: WHEN others THEN
2417: IF (SQLCODE <> -20001) THEN
2418: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2419: Fnd_Message.Set_Token('ERROR', SQLERRM);
2420: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2421: Fnd_Message.Set_Token('PARAMETERS',
2422: ' Tax Name= ' || P_Tax_Name ||
2415: EXCEPTION
2416: WHEN others THEN
2417: IF (SQLCODE <> -20001) THEN
2418: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2419: Fnd_Message.Set_Token('ERROR', SQLERRM);
2420: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2421: Fnd_Message.Set_Token('PARAMETERS',
2422: ' Tax Name= ' || P_Tax_Name ||
2423: ', Date= ' || to_char(P_Date) ||
2416: WHEN others THEN
2417: IF (SQLCODE <> -20001) THEN
2418: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2419: Fnd_Message.Set_Token('ERROR', SQLERRM);
2420: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2421: Fnd_Message.Set_Token('PARAMETERS',
2422: ' Tax Name= ' || P_Tax_Name ||
2423: ', Date= ' || to_char(P_Date) ||
2424: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2417: IF (SQLCODE <> -20001) THEN
2418: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2419: Fnd_Message.Set_Token('ERROR', SQLERRM);
2420: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2421: Fnd_Message.Set_Token('PARAMETERS',
2422: ' Tax Name= ' || P_Tax_Name ||
2423: ', Date= ' || to_char(P_Date) ||
2424: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2425: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2421: Fnd_Message.Set_Token('PARAMETERS',
2422: ' Tax Name= ' || P_Tax_Name ||
2423: ', Date= ' || to_char(P_Date) ||
2424: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2425: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2426: END IF;
2427:
2428: App_Exception.Raise_Exception;
2429:
2521:
2522: EXCEPTION
2523: WHEN others THEN
2524: IF (SQLCODE <> -20001) THEN
2525: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2526: Fnd_Message.Set_Token('ERROR', SQLERRM);
2527: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2528: Fnd_Message.Set_Token('PARAMETERS',
2529: ' Original Withheld Amt= ' || to_char(P_Original_Withheld_Amt) ||
2522: EXCEPTION
2523: WHEN others THEN
2524: IF (SQLCODE <> -20001) THEN
2525: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2526: Fnd_Message.Set_Token('ERROR', SQLERRM);
2527: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2528: Fnd_Message.Set_Token('PARAMETERS',
2529: ' Original Withheld Amt= ' || to_char(P_Original_Withheld_Amt) ||
2530: ', Updated Withheld Amt= ' || to_char(P_Updated_Withheld_Amt) ||
2523: WHEN others THEN
2524: IF (SQLCODE <> -20001) THEN
2525: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2526: Fnd_Message.Set_Token('ERROR', SQLERRM);
2527: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2528: Fnd_Message.Set_Token('PARAMETERS',
2529: ' Original Withheld Amt= ' || to_char(P_Original_Withheld_Amt) ||
2530: ', Updated Withheld Amt= ' || to_char(P_Updated_Withheld_Amt) ||
2531: ', Currency Code= ' || P_Currency_Code);
2524: IF (SQLCODE <> -20001) THEN
2525: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2526: Fnd_Message.Set_Token('ERROR', SQLERRM);
2527: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2528: Fnd_Message.Set_Token('PARAMETERS',
2529: ' Original Withheld Amt= ' || to_char(P_Original_Withheld_Amt) ||
2530: ', Updated Withheld Amt= ' || to_char(P_Updated_Withheld_Amt) ||
2531: ', Currency Code= ' || P_Currency_Code);
2532: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2528: Fnd_Message.Set_Token('PARAMETERS',
2529: ' Original Withheld Amt= ' || to_char(P_Original_Withheld_Amt) ||
2530: ', Updated Withheld Amt= ' || to_char(P_Updated_Withheld_Amt) ||
2531: ', Currency Code= ' || P_Currency_Code);
2532: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2533: END IF;
2534:
2535: App_Exception.Raise_Exception;
2536:
2650:
2651: EXCEPTION
2652: WHEN others THEN
2653: IF (SQLCODE <> -20001) THEN
2654: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2655: Fnd_Message.Set_Token('ERROR', SQLERRM);
2656: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2657: Fnd_Message.Set_Token('PARAMETERS',
2658: ' Tax Name From= ' || to_char(P_Tax_Name_From) ||
2651: EXCEPTION
2652: WHEN others THEN
2653: IF (SQLCODE <> -20001) THEN
2654: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2655: Fnd_Message.Set_Token('ERROR', SQLERRM);
2656: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2657: Fnd_Message.Set_Token('PARAMETERS',
2658: ' Tax Name From= ' || to_char(P_Tax_Name_From) ||
2659: ', Tax Name To= ' || to_char(P_Tax_Name_To) ||
2652: WHEN others THEN
2653: IF (SQLCODE <> -20001) THEN
2654: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2655: Fnd_Message.Set_Token('ERROR', SQLERRM);
2656: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2657: Fnd_Message.Set_Token('PARAMETERS',
2658: ' Tax Name From= ' || to_char(P_Tax_Name_From) ||
2659: ', Tax Name To= ' || to_char(P_Tax_Name_To) ||
2660: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2653: IF (SQLCODE <> -20001) THEN
2654: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
2655: Fnd_Message.Set_Token('ERROR', SQLERRM);
2656: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
2657: Fnd_Message.Set_Token('PARAMETERS',
2658: ' Tax Name From= ' || to_char(P_Tax_Name_From) ||
2659: ', Tax Name To= ' || to_char(P_Tax_Name_To) ||
2660: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2661: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2657: Fnd_Message.Set_Token('PARAMETERS',
2658: ' Tax Name From= ' || to_char(P_Tax_Name_From) ||
2659: ', Tax Name To= ' || to_char(P_Tax_Name_To) ||
2660: ', Taxable Base Amount= ' || to_char(P_Taxable_Base_Amount));
2661: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
2662: END IF;
2663:
2664: App_Exception.Raise_Exception;
2665:
3051: Return(0);
3052:
3053: WHEN others THEN
3054: IF (SQLCODE <> -20001) THEN
3055: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3056: Fnd_Message.Set_Token('ERROR', SQLERRM);
3057: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3058: Fnd_Message.Set_Token('PARAMETERS',
3059: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3052:
3053: WHEN others THEN
3054: IF (SQLCODE <> -20001) THEN
3055: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3056: Fnd_Message.Set_Token('ERROR', SQLERRM);
3057: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3058: Fnd_Message.Set_Token('PARAMETERS',
3059: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3060: ', Tax Name= ' || P_Tax_Name ||
3053: WHEN others THEN
3054: IF (SQLCODE <> -20001) THEN
3055: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3056: Fnd_Message.Set_Token('ERROR', SQLERRM);
3057: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3058: Fnd_Message.Set_Token('PARAMETERS',
3059: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3060: ', Tax Name= ' || P_Tax_Name ||
3061: ', AWT Period Type= ' || P_AWT_Period_Type ||
3054: IF (SQLCODE <> -20001) THEN
3055: Fnd_Message.Set_Name ('JL', 'JL_ZZ_AP_DEBUG');
3056: Fnd_Message.Set_Token('ERROR', SQLERRM);
3057: Fnd_Message.Set_Token('CALLING_SEQUENCE', l_calling_sequence);
3058: Fnd_Message.Set_Token('PARAMETERS',
3059: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3060: ', Tax Name= ' || P_Tax_Name ||
3061: ', AWT Period Type= ' || P_AWT_Period_Type ||
3062: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
3059: ' Vendor Id= ' || to_char(P_Vendor_Id) ||
3060: ', Tax Name= ' || P_Tax_Name ||
3061: ', AWT Period Type= ' || P_AWT_Period_Type ||
3062: ', AWT Date= ' || to_char(P_AWT_Date,'YYYY/MM/DD'));
3063: Fnd_Message.Set_Token('DEBUG_INFO', l_debug_info);
3064: END IF;
3065:
3066: App_Exception.Raise_Exception;
3067: END Get_Cumulative_Supp_Exemp;