40: END IF;
41: EXCEPTION
42: WHEN NO_DATA_FOUND THEN
43: IF (SQLCODE <> -20001) THEN
44: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
45: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
46: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
47: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
48:
41: EXCEPTION
42: WHEN NO_DATA_FOUND THEN
43: IF (SQLCODE <> -20001) THEN
44: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
45: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
46: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
47: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
48:
49: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
42: WHEN NO_DATA_FOUND THEN
43: IF (SQLCODE <> -20001) THEN
44: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
45: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
46: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
47: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
48:
49: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
50: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
43: IF (SQLCODE <> -20001) THEN
44: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
45: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
46: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
47: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
48:
49: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
50: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
51: END IF;
46: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
47: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
48:
49: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
50: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
51: END IF;
52: X_error_code := 'AP_DEBUG';
53: RETURN (FALSE);
54: END;
110: );
111: EXCEPTION
112: WHEN OTHERS THEN
113: IF (SQLCODE <> -20001) THEN
114: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
115: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
116: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
117: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
118: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
111: EXCEPTION
112: WHEN OTHERS THEN
113: IF (SQLCODE <> -20001) THEN
114: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
115: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
116: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
117: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
118: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
119: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
112: WHEN OTHERS THEN
113: IF (SQLCODE <> -20001) THEN
114: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
115: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
116: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
117: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
118: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
119: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
120: END IF;
113: IF (SQLCODE <> -20001) THEN
114: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
115: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
116: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
117: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
118: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
119: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
120: END IF;
121: X_error_code := 'AP_DEBUG';
115: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
116: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
117: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
118: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
119: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
120: END IF;
121: X_error_code := 'AP_DEBUG';
122: RETURN (FALSE);
123: END;
180: END IF;
181: EXCEPTION
182: WHEN NO_DATA_FOUND THEN
183: IF (SQLCODE <> -20001) THEN
184: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
185: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
186: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
187: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
188: '||TO_CHAR(X_invoice_id)
181: EXCEPTION
182: WHEN NO_DATA_FOUND THEN
183: IF (SQLCODE <> -20001) THEN
184: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
185: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
186: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
187: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
188: '||TO_CHAR(X_invoice_id)
189: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
182: WHEN NO_DATA_FOUND THEN
183: IF (SQLCODE <> -20001) THEN
184: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
185: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
186: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
187: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
188: '||TO_CHAR(X_invoice_id)
189: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
190: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
183: IF (SQLCODE <> -20001) THEN
184: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
185: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
186: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
187: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
188: '||TO_CHAR(X_invoice_id)
189: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
190: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
191: END IF;
186: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
187: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
188: '||TO_CHAR(X_invoice_id)
189: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
190: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
191: END IF;
192: X_error_code := 'AP_DEBUG';
193: RETURN (FALSE);
194: END;
300: );
301: EXCEPTION
302: WHEN OTHERS THEN
303: IF (SQLCODE <> -20001) THEN
304: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
305: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
306: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
307: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
308: '||TO_CHAR(X_invoice_id)
301: EXCEPTION
302: WHEN OTHERS THEN
303: IF (SQLCODE <> -20001) THEN
304: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
305: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
306: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
307: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
308: '||TO_CHAR(X_invoice_id)
309: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
302: WHEN OTHERS THEN
303: IF (SQLCODE <> -20001) THEN
304: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
305: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
306: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
307: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
308: '||TO_CHAR(X_invoice_id)
309: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
310: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
303: IF (SQLCODE <> -20001) THEN
304: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
305: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
306: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
307: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
308: '||TO_CHAR(X_invoice_id)
309: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
310: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
311: END IF;
306: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
307: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
308: '||TO_CHAR(X_invoice_id)
309: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
310: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
311: END IF;
312: X_error_code := 'AP_DEBUG';
313: RETURN (FALSE);
314: END;
358:
359: EXCEPTION
360: WHEN OTHERS THEN
361: IF (SQLCODE <> -20001) THEN
362: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
363: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
364: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
365: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
366: '||TO_CHAR(X_invoice_id)
359: EXCEPTION
360: WHEN OTHERS THEN
361: IF (SQLCODE <> -20001) THEN
362: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
363: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
364: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
365: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
366: '||TO_CHAR(X_invoice_id)
367: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
360: WHEN OTHERS THEN
361: IF (SQLCODE <> -20001) THEN
362: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
363: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
364: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
365: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
366: '||TO_CHAR(X_invoice_id)
367: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
368: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
361: IF (SQLCODE <> -20001) THEN
362: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
363: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
364: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
365: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
366: '||TO_CHAR(X_invoice_id)
367: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
368: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
369: END IF;
364: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
365: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
366: '||TO_CHAR(X_invoice_id)
367: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
368: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
369: END IF;
370: X_error_code := 'AP_DEBUG';
371: RETURN (FALSE);
372: END;
405: END IF;
406: EXCEPTION
407: WHEN OTHERS THEN
408: IF (SQLCODE <> -20001) THEN
409: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
410: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
411: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
412: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
413: '||TO_CHAR(X_invoice_id)
406: EXCEPTION
407: WHEN OTHERS THEN
408: IF (SQLCODE <> -20001) THEN
409: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
410: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
411: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
412: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
413: '||TO_CHAR(X_invoice_id)
414: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
407: WHEN OTHERS THEN
408: IF (SQLCODE <> -20001) THEN
409: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
410: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
411: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
412: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
413: '||TO_CHAR(X_invoice_id)
414: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
415: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
408: IF (SQLCODE <> -20001) THEN
409: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
410: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
411: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
412: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
413: '||TO_CHAR(X_invoice_id)
414: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
415: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
416: END IF;
411: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
412: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
413: '||TO_CHAR(X_invoice_id)
414: ||', Invoice Line Number = '||TO_CHAR(X_line_number));
415: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
416: END IF;
417: X_error_code := 'AP_DEBUG';
418: RETURN (FALSE);
419: END;
503:
504: EXCEPTION
505: WHEN OTHERS THEN
506: IF (SQLCODE <> -20001) THEN
507: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
508: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
509: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
510: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id)
511: ||', Chrg Invoice Line Number = '||TO_CHAR(X_Chrg_Line_Number)
504: EXCEPTION
505: WHEN OTHERS THEN
506: IF (SQLCODE <> -20001) THEN
507: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
508: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
509: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
510: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id)
511: ||', Chrg Invoice Line Number = '||TO_CHAR(X_Chrg_Line_Number)
512: ||', To Invoice Line Number = '||TO_CHAR(X_To_Line_Number)
505: WHEN OTHERS THEN
506: IF (SQLCODE <> -20001) THEN
507: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
508: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
509: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
510: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id)
511: ||', Chrg Invoice Line Number = '||TO_CHAR(X_Chrg_Line_Number)
512: ||', To Invoice Line Number = '||TO_CHAR(X_To_Line_Number)
513: ||', Rule Generation Type = '||x_rule_generation_type
506: IF (SQLCODE <> -20001) THEN
507: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
508: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
509: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
510: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_Invoice_Id)
511: ||', Chrg Invoice Line Number = '||TO_CHAR(X_Chrg_Line_Number)
512: ||', To Invoice Line Number = '||TO_CHAR(X_To_Line_Number)
513: ||', Rule Generation Type = '||x_rule_generation_type
514: ||', Percentage = '||TO_CHAR(x_percentage)
512: ||', To Invoice Line Number = '||TO_CHAR(X_To_Line_Number)
513: ||', Rule Generation Type = '||x_rule_generation_type
514: ||', Percentage = '||TO_CHAR(x_percentage)
515: ||', Status = '||x_status);
516: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
517: END IF;
518: APP_EXCEPTION.RAISE_EXCEPTION;
519:
520: END Insert_Percentage_Alloc_Rule;
717: WHEN OTHERS THEN
718: X_debug_context := current_calling_sequence;
719: X_debug_info := debug_info;
720: IF (SQLCODE <> -20001) THEN
721: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
722: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
723: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
724: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
725: '||TO_CHAR(X_invoice_id)
718: X_debug_context := current_calling_sequence;
719: X_debug_info := debug_info;
720: IF (SQLCODE <> -20001) THEN
721: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
722: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
723: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
724: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
725: '||TO_CHAR(X_invoice_id)
726: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
719: X_debug_info := debug_info;
720: IF (SQLCODE <> -20001) THEN
721: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
722: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
723: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
724: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
725: '||TO_CHAR(X_invoice_id)
726: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
727: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
720: IF (SQLCODE <> -20001) THEN
721: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
722: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
723: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
724: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
725: '||TO_CHAR(X_invoice_id)
726: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
727: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
728: END IF;
723: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
724: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
725: '||TO_CHAR(X_invoice_id)
726: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
727: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
728: END IF;
729: X_error_code := 'AP_DEBUG';
730: RETURN(FALSE);
731: END;
896: );
897: EXCEPTION
898: WHEN OTHERS THEN
899: IF (SQLCODE <> -20001) THEN
900: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
901: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
902: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
903: current_calling_sequence);
904: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
897: EXCEPTION
898: WHEN OTHERS THEN
899: IF (SQLCODE <> -20001) THEN
900: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
901: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
902: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
903: current_calling_sequence);
904: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
905: ||to_char(X_Invoice_ID)
898: WHEN OTHERS THEN
899: IF (SQLCODE <> -20001) THEN
900: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
901: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
902: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
903: current_calling_sequence);
904: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
905: ||to_char(X_Invoice_ID)
906: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
900: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
901: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
902: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
903: current_calling_sequence);
904: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
905: ||to_char(X_Invoice_ID)
906: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
907: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
908: END IF;
903: current_calling_sequence);
904: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
905: ||to_char(X_Invoice_ID)
906: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
907: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
908: END IF;
909: APP_EXCEPTION.RAISE_EXCEPTION;
910: END;
911: END IF;
962: ('PRICE_CORRECTION', 'QTY_CORRECTION','LINE_CORRECTION');
963: EXCEPTION
964: WHEN OTHERS THEN
965: IF (SQLCODE <> -20001) THEN
966: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
967: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
969: current_calling_sequence);
970: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
963: EXCEPTION
964: WHEN OTHERS THEN
965: IF (SQLCODE <> -20001) THEN
966: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
967: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
969: current_calling_sequence);
970: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
971: ||to_char(X_Invoice_ID)
964: WHEN OTHERS THEN
965: IF (SQLCODE <> -20001) THEN
966: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
967: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
969: current_calling_sequence);
970: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
971: ||to_char(X_Invoice_ID)
972: ||', Invoice Line Number = '
966: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
967: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
969: current_calling_sequence);
970: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
971: ||to_char(X_Invoice_ID)
972: ||', Invoice Line Number = '
973: ||to_char(X_chrg_Line_Number));
974: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
970: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
971: ||to_char(X_Invoice_ID)
972: ||', Invoice Line Number = '
973: ||to_char(X_chrg_Line_Number));
974: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
975: END IF;
976: APP_EXCEPTION.RAISE_EXCEPTION;
977: END;
978:
1018:
1019: EXCEPTION
1020: WHEN OTHERS THEN
1021: IF (SQLCODE <> -20001) THEN
1022: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1023: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1024: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1025: current_calling_sequence);
1026: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1019: EXCEPTION
1020: WHEN OTHERS THEN
1021: IF (SQLCODE <> -20001) THEN
1022: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1023: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1024: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1025: current_calling_sequence);
1026: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1027: ||to_char(X_Invoice_ID)
1020: WHEN OTHERS THEN
1021: IF (SQLCODE <> -20001) THEN
1022: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1023: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1024: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1025: current_calling_sequence);
1026: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1027: ||to_char(X_Invoice_ID)
1028: ||', Invoice Line Number = '
1022: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1023: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1024: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1025: current_calling_sequence);
1026: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1027: ||to_char(X_Invoice_ID)
1028: ||', Invoice Line Number = '
1029: ||to_char(X_chrg_Line_Number));
1030: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1026: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1027: ||to_char(X_Invoice_ID)
1028: ||', Invoice Line Number = '
1029: ||to_char(X_chrg_Line_Number));
1030: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1031: END IF;
1032: APP_EXCEPTION.RAISE_EXCEPTION;
1033: END;
1034: END IF;
1069: END IF;
1070: EXCEPTION
1071: WHEN OTHERS THEN
1072: IF (SQLCODE <> -20001) THEN
1073: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1074: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1075: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1076: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='
1077: ||to_char(X_Invoice_ID)
1070: EXCEPTION
1071: WHEN OTHERS THEN
1072: IF (SQLCODE <> -20001) THEN
1073: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1074: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1075: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1076: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='
1077: ||to_char(X_Invoice_ID)
1078: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
1071: WHEN OTHERS THEN
1072: IF (SQLCODE <> -20001) THEN
1073: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1074: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1075: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1076: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='
1077: ||to_char(X_Invoice_ID)
1078: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
1079: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1072: IF (SQLCODE <> -20001) THEN
1073: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1074: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1075: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1076: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='
1077: ||to_char(X_Invoice_ID)
1078: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
1079: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1080: END IF;
1075: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1076: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='
1077: ||to_char(X_Invoice_ID)
1078: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
1079: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1080: END IF;
1081: APP_EXCEPTION.RAISE_EXCEPTION;
1082: END;
1083: ELSE
1110: END IF;
1111: EXCEPTION
1112: WHEN OTHERS THEN
1113: IF (SQLCODE <> -20001) THEN
1114: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1115: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1116: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1117: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1118: ||to_char(X_Invoice_ID)
1111: EXCEPTION
1112: WHEN OTHERS THEN
1113: IF (SQLCODE <> -20001) THEN
1114: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1115: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1116: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1117: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1118: ||to_char(X_Invoice_ID)
1119: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
1112: WHEN OTHERS THEN
1113: IF (SQLCODE <> -20001) THEN
1114: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1115: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1116: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1117: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1118: ||to_char(X_Invoice_ID)
1119: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
1120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1113: IF (SQLCODE <> -20001) THEN
1114: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1115: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1116: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1117: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1118: ||to_char(X_Invoice_ID)
1119: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
1120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1121: END IF;
1116: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1117: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1118: ||to_char(X_Invoice_ID)
1119: ||', Invoice Line Number = '||to_char(X_chrg_Line_Number));
1120: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1121: END IF;
1122: APP_EXCEPTION.RAISE_EXCEPTION;
1123: END;
1124: END IF;
1185:
1186: EXCEPTION
1187: WHEN OTHERS THEN
1188: IF (SQLCODE <> -20001) then
1189: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1190: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1191: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1192: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1193: 'X_invoice_id ='||to_char(X_invoice_id)
1186: EXCEPTION
1187: WHEN OTHERS THEN
1188: IF (SQLCODE <> -20001) then
1189: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1190: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1191: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1192: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1193: 'X_invoice_id ='||to_char(X_invoice_id)
1194: || ' X_allocated_total (OUT) ='||to_char(X_allocated_total)
1187: WHEN OTHERS THEN
1188: IF (SQLCODE <> -20001) then
1189: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1190: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1191: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1192: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1193: 'X_invoice_id ='||to_char(X_invoice_id)
1194: || ' X_allocated_total (OUT) ='||to_char(X_allocated_total)
1195: || ' X_allocated_total_rtot_db (OUT) ='
1188: IF (SQLCODE <> -20001) then
1189: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1190: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1191: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1192: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1193: 'X_invoice_id ='||to_char(X_invoice_id)
1194: || ' X_allocated_total (OUT) ='||to_char(X_allocated_total)
1195: || ' X_allocated_total_rtot_db (OUT) ='
1196: ||to_char(X_allocated_total_rtot_db));
1193: 'X_invoice_id ='||to_char(X_invoice_id)
1194: || ' X_allocated_total (OUT) ='||to_char(X_allocated_total)
1195: || ' X_allocated_total_rtot_db (OUT) ='
1196: ||to_char(X_allocated_total_rtot_db));
1197: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1198: END IF;
1199: APP_EXCEPTION.RAISE_EXCEPTION;
1200:
1201: END Select_Item_Summary;
1290: );
1291: EXCEPTION
1292: WHEN OTHERS THEN
1293: IF (SQLCODE <> -20001) THEN
1294: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1295: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1296: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1297: current_calling_sequence);
1298: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1291: EXCEPTION
1292: WHEN OTHERS THEN
1293: IF (SQLCODE <> -20001) THEN
1294: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1295: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1296: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1297: current_calling_sequence);
1298: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1299: ||to_char(X_Invoice_ID) ||', Invoice Line Number = '
1292: WHEN OTHERS THEN
1293: IF (SQLCODE <> -20001) THEN
1294: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1295: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1296: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1297: current_calling_sequence);
1298: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1299: ||to_char(X_Invoice_ID) ||', Invoice Line Number = '
1300: ||to_char(X_chrg_Invoice_Line_Number));
1294: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1295: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1296: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1297: current_calling_sequence);
1298: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1299: ||to_char(X_Invoice_ID) ||', Invoice Line Number = '
1300: ||to_char(X_chrg_Invoice_Line_Number));
1301: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1302: END IF;
1297: current_calling_sequence);
1298: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1299: ||to_char(X_Invoice_ID) ||', Invoice Line Number = '
1300: ||to_char(X_chrg_Invoice_Line_Number));
1301: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1302: END IF;
1303: APP_EXCEPTION.RAISE_EXCEPTION;
1304: END;
1305:
1325: EXCEPTION
1326: WHEN OTHERS THEN
1327: IF (SQLCODE <> -20001) THEN
1328: X_error_code := 'COULD_NOT_INSERT_ALLOC_RULE';
1329: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1330: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1331: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1332: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1333: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1326: WHEN OTHERS THEN
1327: IF (SQLCODE <> -20001) THEN
1328: X_error_code := 'COULD_NOT_INSERT_ALLOC_RULE';
1329: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1330: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1331: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1332: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1333: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1334: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1327: IF (SQLCODE <> -20001) THEN
1328: X_error_code := 'COULD_NOT_INSERT_ALLOC_RULE';
1329: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1330: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1331: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1332: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1333: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1334: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1335: END IF;
1328: X_error_code := 'COULD_NOT_INSERT_ALLOC_RULE';
1329: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1330: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1331: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1332: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1333: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1334: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1335: END IF;
1336: APP_EXCEPTION.RAISE_EXCEPTION;
1330: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1331: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1332: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1333: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1334: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1335: END IF;
1336: APP_EXCEPTION.RAISE_EXCEPTION;
1337: END;
1338:
1363: EXCEPTION
1364: WHEN OTHERS THEN
1365: IF (SQLCODE <> -20001) THEN
1366: X_error_code := 'COULD_NOT_INSERT_ALLOC_RULE';
1367: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1368: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1369: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1370: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1371: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1364: WHEN OTHERS THEN
1365: IF (SQLCODE <> -20001) THEN
1366: X_error_code := 'COULD_NOT_INSERT_ALLOC_RULE';
1367: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1368: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1369: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1370: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1371: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1372: FND_MESSAGE.SET_TOKEN('DEBUG_INFO','Inserting Allocation Rule Lines');
1365: IF (SQLCODE <> -20001) THEN
1366: X_error_code := 'COULD_NOT_INSERT_ALLOC_RULE';
1367: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1368: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1369: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1370: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1371: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1372: FND_MESSAGE.SET_TOKEN('DEBUG_INFO','Inserting Allocation Rule Lines');
1373: END IF;
1366: X_error_code := 'COULD_NOT_INSERT_ALLOC_RULE';
1367: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1368: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1369: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1370: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1371: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1372: FND_MESSAGE.SET_TOKEN('DEBUG_INFO','Inserting Allocation Rule Lines');
1373: END IF;
1374: APP_EXCEPTION.RAISE_EXCEPTION;
1368: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1369: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1370: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||to_char(X_Invoice_ID)
1371: ||', Invoice Line Number = '||to_char(X_chrg_Invoice_Line_Number));
1372: FND_MESSAGE.SET_TOKEN('DEBUG_INFO','Inserting Allocation Rule Lines');
1373: END IF;
1374: APP_EXCEPTION.RAISE_EXCEPTION;
1375: END;
1376: END IF; -- allocaton_flag
1439:
1440: EXCEPTION
1441: WHEN OTHERS THEN
1442: if (SQLCODE <> -20001) then
1443: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1444: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1445: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1446: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1447: 'X_invoiceid ='||to_char(X_invoice_id));
1440: EXCEPTION
1441: WHEN OTHERS THEN
1442: if (SQLCODE <> -20001) then
1443: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1444: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1445: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1446: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1447: 'X_invoiceid ='||to_char(X_invoice_id));
1448: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1441: WHEN OTHERS THEN
1442: if (SQLCODE <> -20001) then
1443: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1444: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1445: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1446: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1447: 'X_invoiceid ='||to_char(X_invoice_id));
1448: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1449: end if;
1442: if (SQLCODE <> -20001) then
1443: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1444: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1445: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1446: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1447: 'X_invoiceid ='||to_char(X_invoice_id));
1448: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1449: end if;
1450: APP_EXCEPTION.RAISE_EXCEPTION;
1444: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1445: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1446: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1447: 'X_invoiceid ='||to_char(X_invoice_id));
1448: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1449: end if;
1450: APP_EXCEPTION.RAISE_EXCEPTION;
1451:
1452: END form_startup;
1501:
1502: EXCEPTION
1503: WHEN OTHERS THEN
1504: IF (SQLCODE <> -20001) THEN
1505: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1506: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1507: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1508: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1509: END IF;
1502: EXCEPTION
1503: WHEN OTHERS THEN
1504: IF (SQLCODE <> -20001) THEN
1505: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1506: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1507: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1508: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1509: END IF;
1510: APP_EXCEPTION.RAISE_EXCEPTION;
1503: WHEN OTHERS THEN
1504: IF (SQLCODE <> -20001) THEN
1505: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1506: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1507: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1508: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1509: END IF;
1510: APP_EXCEPTION.RAISE_EXCEPTION;
1511: END;
1504: IF (SQLCODE <> -20001) THEN
1505: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1506: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1507: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1508: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1509: END IF;
1510: APP_EXCEPTION.RAISE_EXCEPTION;
1511: END;
1512:
1554: FETCH C INTO Recinfo;
1555: IF (C%NOTFOUND) THEN
1556: debug_info := 'Close cursor C - ROW NOTFOUND';
1557: CLOSE C;
1558: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
1559: APP_EXCEPTION.Raise_Exception;
1560: END IF;
1561: --------------------------------------------------------------
1562: debug_info := 'Close cursor C';
1584:
1585: ) then
1586: return;
1587: else
1588: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1589: APP_EXCEPTION.Raise_Exception;
1590: end if;
1591:
1592: EXCEPTION
1592: EXCEPTION
1593: WHEN OTHERS THEN
1594: IF (SQLCODE <> -20001) THEN
1595: IF (SQLCODE = -54) THEN
1596: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1597: ELSE
1598: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1599: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1600: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1594: IF (SQLCODE <> -20001) THEN
1595: IF (SQLCODE = -54) THEN
1596: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1597: ELSE
1598: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1599: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1600: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1601: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
1602: ', INVOICE_ID == ' ||TO_CHAR(X_Invoice_Id));
1595: IF (SQLCODE = -54) THEN
1596: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1597: ELSE
1598: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1599: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1600: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1601: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
1602: ', INVOICE_ID == ' ||TO_CHAR(X_Invoice_Id));
1603: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1596: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1597: ELSE
1598: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1599: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1600: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1601: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
1602: ', INVOICE_ID == ' ||TO_CHAR(X_Invoice_Id));
1603: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1604: END IF;
1597: ELSE
1598: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1599: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1600: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1601: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
1602: ', INVOICE_ID == ' ||TO_CHAR(X_Invoice_Id));
1603: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1604: END IF;
1605: END IF;
1599: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1600: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1601: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
1602: ', INVOICE_ID == ' ||TO_CHAR(X_Invoice_Id));
1603: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1604: END IF;
1605: END IF;
1606: APP_EXCEPTION.RAISE_EXCEPTION;
1607:
1686:
1687: X_debug_context := current_calling_sequence;
1688: X_debug_info := debug_info;
1689: IF (SQLCODE <> -20001) THEN
1690: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1691: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1692: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1693: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
1694: '||TO_CHAR(X_invoice_id)
1687: X_debug_context := current_calling_sequence;
1688: X_debug_info := debug_info;
1689: IF (SQLCODE <> -20001) THEN
1690: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1691: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1692: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1693: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
1694: '||TO_CHAR(X_invoice_id)
1695: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
1688: X_debug_info := debug_info;
1689: IF (SQLCODE <> -20001) THEN
1690: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1691: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1692: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1693: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
1694: '||TO_CHAR(X_invoice_id)
1695: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
1696: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1689: IF (SQLCODE <> -20001) THEN
1690: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1691: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1692: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1693: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
1694: '||TO_CHAR(X_invoice_id)
1695: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
1696: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1697: END IF;
1692: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1693: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
1694: '||TO_CHAR(X_invoice_id)
1695: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
1696: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1697: END IF;
1698: X_error_code := 'AP_DEBUG';
1699: RETURN(FALSE);
1700: END;
1799:
1800: EXCEPTION
1801: WHEN OTHERS THEN
1802: IF (SQLCODE <> -20001) THEN
1803: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1804: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1805: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1806: current_calling_sequence);
1807: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1800: EXCEPTION
1801: WHEN OTHERS THEN
1802: IF (SQLCODE <> -20001) THEN
1803: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1804: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1805: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1806: current_calling_sequence);
1807: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1808: ||to_char(X_Invoice_ID)
1801: WHEN OTHERS THEN
1802: IF (SQLCODE <> -20001) THEN
1803: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1804: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1805: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1806: current_calling_sequence);
1807: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1808: ||to_char(X_Invoice_ID)
1809: ||', Invoice Line Number = '
1803: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1804: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1805: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1806: current_calling_sequence);
1807: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1808: ||to_char(X_Invoice_ID)
1809: ||', Invoice Line Number = '
1810: ||to_char(X_chrg_Line_Number));
1811: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1807: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '
1808: ||to_char(X_Invoice_ID)
1809: ||', Invoice Line Number = '
1810: ||to_char(X_chrg_Line_Number));
1811: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1812: END IF;
1813: APP_EXCEPTION.RAISE_EXCEPTION;
1814: END;
1815:
1850: END IF;
1851: EXCEPTION
1852: WHEN OTHERS THEN
1853: IF (SQLCODE <> -20001) THEN
1854: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1855: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1856: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1857: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='
1858: ||to_char(X_Invoice_ID)
1851: EXCEPTION
1852: WHEN OTHERS THEN
1853: IF (SQLCODE <> -20001) THEN
1854: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1855: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1856: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1857: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='
1858: ||to_char(X_Invoice_ID)
1859: ||', Invoice Line Number ='
1852: WHEN OTHERS THEN
1853: IF (SQLCODE <> -20001) THEN
1854: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1855: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1856: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1857: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='
1858: ||to_char(X_Invoice_ID)
1859: ||', Invoice Line Number ='
1860: ||to_char(X_chrg_Line_Number));
1853: IF (SQLCODE <> -20001) THEN
1854: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1855: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1856: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1857: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='
1858: ||to_char(X_Invoice_ID)
1859: ||', Invoice Line Number ='
1860: ||to_char(X_chrg_Line_Number));
1861: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1857: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='
1858: ||to_char(X_Invoice_ID)
1859: ||', Invoice Line Number ='
1860: ||to_char(X_chrg_Line_Number));
1861: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1862: END IF;
1863: APP_EXCEPTION.RAISE_EXCEPTION;
1864: END;
1865: END IF;
1942: WHEN OTHERS THEN
1943: X_debug_context := current_calling_sequence;
1944: X_debug_info := debug_info;
1945: IF (SQLCODE <> -20001) THEN
1946: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1947: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1948: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1949: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
1950: '||TO_CHAR(X_invoice_id)
1943: X_debug_context := current_calling_sequence;
1944: X_debug_info := debug_info;
1945: IF (SQLCODE <> -20001) THEN
1946: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1947: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1948: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1949: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
1950: '||TO_CHAR(X_invoice_id)
1951: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
1944: X_debug_info := debug_info;
1945: IF (SQLCODE <> -20001) THEN
1946: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1947: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1948: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1949: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
1950: '||TO_CHAR(X_invoice_id)
1951: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
1952: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1945: IF (SQLCODE <> -20001) THEN
1946: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1947: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1948: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1949: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
1950: '||TO_CHAR(X_invoice_id)
1951: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
1952: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1953: END IF;
1948: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1949: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id =
1950: '||TO_CHAR(X_invoice_id)
1951: ||', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
1952: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1953: END IF;
1954: X_error_code := 'AP_DEBUG';
1955: RETURN (FALSE);
1956: END;
2057:
2058: EXCEPTION
2059: WHEN OTHERS THEN
2060: if (SQLCODE <> -20001) then
2061: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2062: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2063: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2064: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2065: 'X_Invoice_Id = '||to_char(X_invoice_id) );
2058: EXCEPTION
2059: WHEN OTHERS THEN
2060: if (SQLCODE <> -20001) then
2061: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2062: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2063: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2064: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2065: 'X_Invoice_Id = '||to_char(X_invoice_id) );
2066: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2059: WHEN OTHERS THEN
2060: if (SQLCODE <> -20001) then
2061: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2062: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2063: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2064: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2065: 'X_Invoice_Id = '||to_char(X_invoice_id) );
2066: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2067: end if;
2060: if (SQLCODE <> -20001) then
2061: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2062: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2063: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2064: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2065: 'X_Invoice_Id = '||to_char(X_invoice_id) );
2066: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2067: end if;
2068: APP_EXCEPTION.RAISE_EXCEPTION;
2062: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2063: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2064: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2065: 'X_Invoice_Id = '||to_char(X_invoice_id) );
2066: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2067: end if;
2068: APP_EXCEPTION.RAISE_EXCEPTION;
2069:
2070: END Delete_Allocation_Lines;
2125:
2126: EXCEPTION
2127: WHEN NO_DATA_FOUND THEN
2128: IF (SQLCODE <> -20001) THEN
2129: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2130: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2131: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2132: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id) ||
2133: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2126: EXCEPTION
2127: WHEN NO_DATA_FOUND THEN
2128: IF (SQLCODE <> -20001) THEN
2129: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2130: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2131: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2132: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id) ||
2133: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2134: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2127: WHEN NO_DATA_FOUND THEN
2128: IF (SQLCODE <> -20001) THEN
2129: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2130: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2131: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2132: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id) ||
2133: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2134: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2135: END IF;
2128: IF (SQLCODE <> -20001) THEN
2129: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2130: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2131: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2132: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id) ||
2133: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2134: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2135: END IF;
2136: X_error_code := 'AP_DEBUG';
2130: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2131: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2132: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id) ||
2133: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2134: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2135: END IF;
2136: X_error_code := 'AP_DEBUG';
2137: RETURN (FALSE);
2138: END;
2213: );
2214: EXCEPTION
2215: WHEN OTHERS THEN
2216: IF (SQLCODE <> -20001) THEN
2217: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2218: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2219: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2220: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='||TO_CHAR(X_invoice_id) ||
2221: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2214: EXCEPTION
2215: WHEN OTHERS THEN
2216: IF (SQLCODE <> -20001) THEN
2217: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2218: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2219: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2220: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='||TO_CHAR(X_invoice_id) ||
2221: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2222: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2215: WHEN OTHERS THEN
2216: IF (SQLCODE <> -20001) THEN
2217: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2218: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2219: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2220: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='||TO_CHAR(X_invoice_id) ||
2221: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2222: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2223: END IF;
2216: IF (SQLCODE <> -20001) THEN
2217: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2218: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2219: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2220: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='||TO_CHAR(X_invoice_id) ||
2221: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2222: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2223: END IF;
2224: X_error_code := 'AP_DEBUG';
2218: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2219: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2220: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id ='||TO_CHAR(X_invoice_id) ||
2221: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2222: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2223: END IF;
2224: X_error_code := 'AP_DEBUG';
2225: RETURN (FALSE);
2226: END;
2272:
2273: EXCEPTION
2274: WHEN OTHERS THEN
2275: IF (SQLCODE <> -20001) THEN
2276: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2277: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2278: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2279: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id) ||
2280: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2273: EXCEPTION
2274: WHEN OTHERS THEN
2275: IF (SQLCODE <> -20001) THEN
2276: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2277: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2278: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2279: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id) ||
2280: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2281: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2274: WHEN OTHERS THEN
2275: IF (SQLCODE <> -20001) THEN
2276: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2277: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2278: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2279: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id) ||
2280: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2281: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2282: END IF;
2275: IF (SQLCODE <> -20001) THEN
2276: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2277: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2278: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2279: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id) ||
2280: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2281: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2282: END IF;
2283: X_error_code := 'AP_DEBUG';
2277: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2278: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2279: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id) ||
2280: ', Invoice Line Number = '||TO_CHAR(X_chrg_line_number));
2281: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2282: END IF;
2283: X_error_code := 'AP_DEBUG';
2284: RETURN (FALSE);
2285: END;