184: WHERE distribution_set_id = X_invoice_lines_rec.distribution_set_id;
185: EXCEPTION
186: WHEN NO_DATA_FOUND THEN
187: IF (SQLCODE <> -20001) THEN
188: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
189: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
190: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
191: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
192: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
185: EXCEPTION
186: WHEN NO_DATA_FOUND THEN
187: IF (SQLCODE <> -20001) THEN
188: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
189: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
190: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
191: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
192: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
193: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
186: WHEN NO_DATA_FOUND THEN
187: IF (SQLCODE <> -20001) THEN
188: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
189: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
190: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
191: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
192: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
193: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
194: END IF;
187: IF (SQLCODE <> -20001) THEN
188: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
189: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
190: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
191: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
192: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
193: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
194: END IF;
195: X_error_code := 'AP_DEBUG';
189: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
190: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
191: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
192: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
193: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
194: END IF;
195: X_error_code := 'AP_DEBUG';
196: RETURN (FALSE);
197: END;
482: X_msg_application := l_msg_application;
483: X_msg_data := l_msg_data;
484:
485: --bugfix:5725904
486: Fnd_Message.Set_Name(l_msg_application, l_msg_data);
487: /*bug 6682104 setting the token values*/
488: IF (l_msg_token1 IS NOT NULL) THEN
489: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
490: ELSE
485: --bugfix:5725904
486: Fnd_Message.Set_Name(l_msg_application, l_msg_data);
487: /*bug 6682104 setting the token values*/
488: IF (l_msg_token1 IS NOT NULL) THEN
489: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
490: ELSE
491: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
492: END IF;
493:
487: /*bug 6682104 setting the token values*/
488: IF (l_msg_token1 IS NOT NULL) THEN
489: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
490: ELSE
491: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
492: END IF;
493:
494: IF (l_msg_token2 IS NOT NULL) THEN
495: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
491: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
492: END IF;
493:
494: IF (l_msg_token2 IS NOT NULL) THEN
495: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
496: ELSE
497: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
498: END IF;
499:
493:
494: IF (l_msg_token2 IS NOT NULL) THEN
495: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
496: ELSE
497: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
498: END IF;
499:
500: IF (l_msg_token3 IS NOT NULL) THEN
501: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
497: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
498: END IF;
499:
500: IF (l_msg_token3 IS NOT NULL) THEN
501: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
502: ELSE
503: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
504: END IF;
505:
499:
500: IF (l_msg_token3 IS NOT NULL) THEN
501: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
502: ELSE
503: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
504: END IF;
505:
506: l_message_text := Fnd_Message.get;
507: X_Error_Code := l_message_text;
502: ELSE
503: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
504: END IF;
505:
506: l_message_text := Fnd_Message.get;
507: X_Error_Code := l_message_text;
508:
509: RETURN(FALSE);
510: END IF;
536: Debug_info := debug_info || ': cannot read account type information';
537: X_debug_context := current_calling_sequence;
538: X_debug_info := debug_info;
539: IF (SQLCODE <> -20001) THEN
540: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
541: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
542: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
543: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
544: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
537: X_debug_context := current_calling_sequence;
538: X_debug_info := debug_info;
539: IF (SQLCODE <> -20001) THEN
540: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
541: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
542: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
543: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
544: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
545: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
538: X_debug_info := debug_info;
539: IF (SQLCODE <> -20001) THEN
540: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
541: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
542: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
543: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
544: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
545: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
546: END IF;
539: IF (SQLCODE <> -20001) THEN
540: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
541: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
542: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
543: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
544: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
545: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
546: END IF;
547: X_error_code := 'AP_DEBUG';
541: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
542: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
543: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
544: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
545: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
546: END IF;
547: X_error_code := 'AP_DEBUG';
548: RETURN(FALSE);
549: END;
612: || ': cannot read account type information';
613: X_debug_context := current_calling_sequence;
614: X_debug_info := debug_info;
615: IF (SQLCODE <> -20001) THEN
616: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
617: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
618: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
619: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
620: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
613: X_debug_context := current_calling_sequence;
614: X_debug_info := debug_info;
615: IF (SQLCODE <> -20001) THEN
616: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
617: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
618: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
619: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
620: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
621: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
614: X_debug_info := debug_info;
615: IF (SQLCODE <> -20001) THEN
616: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
617: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
618: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
619: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
620: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
621: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
622: END IF;
615: IF (SQLCODE <> -20001) THEN
616: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
617: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
618: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
619: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
620: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
621: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
622: END IF;
623: X_error_code := 'AP_DEBUG';
617: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
618: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
619: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
620: ||', Invoice Line Number = '||TO_CHAR(X_invoice_lines_Rec.line_Number));
621: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
622: END IF;
623: X_error_code := 'AP_DEBUG';
624: RETURN(FALSE);
625: END;
782: X_msg_application := l_msg_application;
783: X_msg_data := l_msg_data;
784:
785: --bugfix:5725904
786: Fnd_Message.Set_Name(l_msg_application, l_msg_data);
787: /*bug 6682104 setting the token values*/
788: IF (l_msg_token1 IS NOT NULL) THEN
789: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
790: ELSE
785: --bugfix:5725904
786: Fnd_Message.Set_Name(l_msg_application, l_msg_data);
787: /*bug 6682104 setting the token values*/
788: IF (l_msg_token1 IS NOT NULL) THEN
789: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
790: ELSE
791: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
792: END IF;
793:
787: /*bug 6682104 setting the token values*/
788: IF (l_msg_token1 IS NOT NULL) THEN
789: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
790: ELSE
791: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
792: END IF;
793:
794: IF (l_msg_token2 IS NOT NULL) THEN
795: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
791: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
792: END IF;
793:
794: IF (l_msg_token2 IS NOT NULL) THEN
795: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
796: ELSE
797: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
798: END IF;
799:
793:
794: IF (l_msg_token2 IS NOT NULL) THEN
795: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
796: ELSE
797: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
798: END IF;
799:
800: IF (l_msg_token3 IS NOT NULL) THEN
801: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
797: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
798: END IF;
799:
800: IF (l_msg_token3 IS NOT NULL) THEN
801: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
802: ELSE
803: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
804: END IF;
805: l_message_text := Fnd_Message.get;
799:
800: IF (l_msg_token3 IS NOT NULL) THEN
801: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
802: ELSE
803: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
804: END IF;
805: l_message_text := Fnd_Message.get;
806: x_error_code := l_message_text;
807:
801: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
802: ELSE
803: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
804: END IF;
805: l_message_text := Fnd_Message.get;
806: x_error_code := l_message_text;
807:
808: RETURN(FALSE);
809: END IF;
874: X_msg_application := l_msg_application;
875: X_msg_data := l_msg_data;
876:
877: --bugfix:5725904
878: Fnd_Message.Set_Name(l_msg_application, l_msg_data);
879: /*bug 6682104 setting the token values*/
880: IF (l_msg_token1 IS NOT NULL) THEN
881: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
882: ELSE
877: --bugfix:5725904
878: Fnd_Message.Set_Name(l_msg_application, l_msg_data);
879: /*bug 6682104 setting the token values*/
880: IF (l_msg_token1 IS NOT NULL) THEN
881: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
882: ELSE
883: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
884: END IF;
885:
879: /*bug 6682104 setting the token values*/
880: IF (l_msg_token1 IS NOT NULL) THEN
881: fnd_message.set_token('PATC_MSG_TOKEN1',l_msg_token1);
882: ELSE
883: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
884: END IF;
885:
886: IF (l_msg_token2 IS NOT NULL) THEN
887: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
883: fnd_message.set_token('PATC_MSG_TOKEN1',FND_API.G_MISS_CHAR);
884: END IF;
885:
886: IF (l_msg_token2 IS NOT NULL) THEN
887: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
888: ELSE
889: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
890: END IF;
891:
885:
886: IF (l_msg_token2 IS NOT NULL) THEN
887: fnd_message.set_token('PATC_MSG_TOKEN2',l_msg_token2);
888: ELSE
889: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
890: END IF;
891:
892: IF (l_msg_token3 IS NOT NULL) THEN
893: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
889: fnd_message.set_token('PATC_MSG_TOKEN2',FND_API.G_MISS_CHAR);
890: END IF;
891:
892: IF (l_msg_token3 IS NOT NULL) THEN
893: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
894: ELSE
895: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
896: END IF;
897: l_message_text := Fnd_Message.get;
891:
892: IF (l_msg_token3 IS NOT NULL) THEN
893: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
894: ELSE
895: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
896: END IF;
897: l_message_text := Fnd_Message.get;
898: x_error_code := l_message_text;
899:
893: fnd_message.set_token('PATC_MSG_TOKEN3',l_msg_token3);
894: ELSE
895: fnd_message.set_token('PATC_MSG_TOKEN3',FND_API.G_MISS_CHAR);
896: END IF;
897: l_message_text := Fnd_Message.get;
898: x_error_code := l_message_text;
899:
900: RETURN(FALSE);
901: END IF;
957: Debug_info := 'Error occurred';
958: X_debug_context := current_calling_sequence;
959: X_debug_info := debug_info;
960: IF (SQLCODE <> -20001) THEN
961: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
962: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
963: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
964: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
965: ||', Invoice Line Number =
958: X_debug_context := current_calling_sequence;
959: X_debug_info := debug_info;
960: IF (SQLCODE <> -20001) THEN
961: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
962: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
963: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
964: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
965: ||', Invoice Line Number =
966: '||TO_CHAR(X_invoice_lines_Rec.line_Number));
959: X_debug_info := debug_info;
960: IF (SQLCODE <> -20001) THEN
961: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
962: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
963: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
964: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
965: ||', Invoice Line Number =
966: '||TO_CHAR(X_invoice_lines_Rec.line_Number));
967: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
960: IF (SQLCODE <> -20001) THEN
961: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
962: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
963: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
964: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
965: ||', Invoice Line Number =
966: '||TO_CHAR(X_invoice_lines_Rec.line_Number));
967: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
968: END IF;
963: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
964: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_lines_Rec.invoice_id)
965: ||', Invoice Line Number =
966: '||TO_CHAR(X_invoice_lines_Rec.line_Number));
967: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
968: END IF;
969: X_error_code := 'AP_DEBUG';
970: RETURN(FALSE);
971:
1224: IF (X_line_number IS NULL) THEN
1225: debug_info := debug_info ||': No Line Info is provided';
1226: X_debug_context := current_calling_sequence;
1227: X_debug_info := debug_info;
1228: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1229: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1230: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1231: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1232: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1225: debug_info := debug_info ||': No Line Info is provided';
1226: X_debug_context := current_calling_sequence;
1227: X_debug_info := debug_info;
1228: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1229: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1230: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1231: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1232: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1233: X_error_code := 'AP_DEBUG';
1226: X_debug_context := current_calling_sequence;
1227: X_debug_info := debug_info;
1228: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1229: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1230: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1231: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1232: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1233: X_error_code := 'AP_DEBUG';
1234: RETURN(FALSE);
1228: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1229: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1230: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1231: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1232: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1233: X_error_code := 'AP_DEBUG';
1234: RETURN(FALSE);
1235: ELSE
1236: BEGIN
1247: debug_info := debug_info ||': No valid line record was found.';
1248: X_debug_context := current_calling_sequence;
1249: X_debug_info := debug_info;
1250: IF (SQLCODE <> -20001) THEN
1251: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1252: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1253: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1254: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1255: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1248: X_debug_context := current_calling_sequence;
1249: X_debug_info := debug_info;
1250: IF (SQLCODE <> -20001) THEN
1251: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1252: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1253: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1254: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1255: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1256: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1249: X_debug_info := debug_info;
1250: IF (SQLCODE <> -20001) THEN
1251: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1252: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1253: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1254: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1255: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1256: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1257: END IF;
1250: IF (SQLCODE <> -20001) THEN
1251: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1252: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1253: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1254: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1255: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1256: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1257: END IF;
1258: X_error_code := 'AP_DEBUG';
1252: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1253: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1254: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1255: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1256: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1257: END IF;
1258: X_error_code := 'AP_DEBUG';
1259: RETURN(FALSE);
1260: END;
1319: Debug_info := debug_info || ': Cannot read Dist Set';
1320: X_debug_context := current_calling_sequence;
1321: X_debug_info := debug_info;
1322: IF (SQLCODE <> -20001) THEN
1323: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1326: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1327: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1320: X_debug_context := current_calling_sequence;
1321: X_debug_info := debug_info;
1322: IF (SQLCODE <> -20001) THEN
1323: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1326: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1327: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1321: X_debug_info := debug_info;
1322: IF (SQLCODE <> -20001) THEN
1323: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1326: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1327: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1329: END IF;
1322: IF (SQLCODE <> -20001) THEN
1323: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1326: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1327: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1329: END IF;
1330: X_error_code := 'AP_DEBUG';
1324: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1325: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1326: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1327: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1328: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1329: END IF;
1330: X_error_code := 'AP_DEBUG';
1331: RETURN(FALSE);
1332: END;
1383: Debug_info := debug_info || ': cannot read invoice information';
1384: X_debug_context := current_calling_sequence;
1385: X_debug_info := debug_info;
1386: IF (SQLCODE <> -20001) THEN
1387: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1388: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1389: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1390: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1391: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1384: X_debug_context := current_calling_sequence;
1385: X_debug_info := debug_info;
1386: IF (SQLCODE <> -20001) THEN
1387: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1388: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1389: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1390: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1391: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1385: X_debug_info := debug_info;
1386: IF (SQLCODE <> -20001) THEN
1387: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1388: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1389: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1390: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1391: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1393: END IF;
1386: IF (SQLCODE <> -20001) THEN
1387: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1388: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1389: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1390: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1391: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1393: END IF;
1394: X_error_code := 'AP_DEBUG';
1388: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1389: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1390: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1391: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1392: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1393: END IF;
1394: X_error_code := 'AP_DEBUG';
1395: RETURN(FALSE);
1396:
1418: Debug_info := debug_info || ': No GL information was found';
1419: X_debug_context := current_calling_sequence;
1420: X_debug_info := debug_info;
1421: IF (SQLCODE <> -20001) THEN
1422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1425: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1426: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1419: X_debug_context := current_calling_sequence;
1420: X_debug_info := debug_info;
1421: IF (SQLCODE <> -20001) THEN
1422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1425: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1426: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1427: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1420: X_debug_info := debug_info;
1421: IF (SQLCODE <> -20001) THEN
1422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1425: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1426: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1427: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1428: END IF;
1421: IF (SQLCODE <> -20001) THEN
1422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1425: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1426: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1427: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1428: END IF;
1429: X_error_code := 'AP_DEBUG';
1423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1425: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(X_invoice_id)
1426: ||', Invoice Line Number = '||TO_CHAR(X_line_Number));
1427: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1428: END IF;
1429: X_error_code := 'AP_DEBUG';
1430: RETURN(FALSE);
1431: END;
1521:
1522: EXCEPTION
1523: WHEN OTHERS THEN
1524: IF (SQLCODE <> -20001) THEN
1525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1528: current_calling_sequence);
1529: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1522: EXCEPTION
1523: WHEN OTHERS THEN
1524: IF (SQLCODE <> -20001) THEN
1525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1528: current_calling_sequence);
1529: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1530: 'X_GL_Date = ' ||TO_CHAR(X_GL_Date)
1523: WHEN OTHERS THEN
1524: IF (SQLCODE <> -20001) THEN
1525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1528: current_calling_sequence);
1529: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1530: 'X_GL_Date = ' ||TO_CHAR(X_GL_Date)
1531: ||', X_Period_Name = ' ||X_Period_Name
1525: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1526: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1527: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
1528: current_calling_sequence);
1529: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1530: 'X_GL_Date = ' ||TO_CHAR(X_GL_Date)
1531: ||', X_Period_Name = ' ||X_Period_Name
1532: ||', X_Invoice_Id = ' ||TO_CHAR(X_invoice_id)
1533: );
1530: 'X_GL_Date = ' ||TO_CHAR(X_GL_Date)
1531: ||', X_Period_Name = ' ||X_Period_Name
1532: ||', X_Invoice_Id = ' ||TO_CHAR(X_invoice_id)
1533: );
1534: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1535: END IF;
1536: APP_EXCEPTION.RAISE_EXCEPTION;
1537:
1538: END insert_from_dist_set;
1722:
1723: EXCEPTION
1724: WHEN OTHERS THEN
1725: IF (SQLCODE <> -20001) THEN
1726: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1727: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1728: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1729: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1730: 'Invoice Id = ' || TO_CHAR(X_Invoice_Id));
1723: EXCEPTION
1724: WHEN OTHERS THEN
1725: IF (SQLCODE <> -20001) THEN
1726: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1727: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1728: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1729: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1730: 'Invoice Id = ' || TO_CHAR(X_Invoice_Id));
1731: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1724: WHEN OTHERS THEN
1725: IF (SQLCODE <> -20001) THEN
1726: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1727: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1728: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1729: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1730: 'Invoice Id = ' || TO_CHAR(X_Invoice_Id));
1731: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1732: END IF;
1725: IF (SQLCODE <> -20001) THEN
1726: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1727: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1728: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1729: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1730: 'Invoice Id = ' || TO_CHAR(X_Invoice_Id));
1731: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1732: END IF;
1733: debug_info := debug_info || 'Error occurred';
1727: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1728: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1729: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1730: 'Invoice Id = ' || TO_CHAR(X_Invoice_Id));
1731: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1732: END IF;
1733: debug_info := debug_info || 'Error occurred';
1734: X_debug_context := current_calling_sequence;
1735: X_debug_info := debug_info;
3280:
3281: EXCEPTION
3282: WHEN OTHERS THEN
3283: IF (SQLCODE <> -20001) THEN
3284: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3285: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3286: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
3287: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3288: ' P_invoice_id = ' || p_line_rec.invoice_id
3281: EXCEPTION
3282: WHEN OTHERS THEN
3283: IF (SQLCODE <> -20001) THEN
3284: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3285: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3286: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
3287: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3288: ' P_invoice_id = ' || p_line_rec.invoice_id
3289: ||' P_line_number = ' || p_line_rec.line_number
3282: WHEN OTHERS THEN
3283: IF (SQLCODE <> -20001) THEN
3284: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3285: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3286: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
3287: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3288: ' P_invoice_id = ' || p_line_rec.invoice_id
3289: ||' P_line_number = ' || p_line_rec.line_number
3290: ||' P_last_updated_by = ' || P_last_updated_by
3283: IF (SQLCODE <> -20001) THEN
3284: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3285: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3286: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
3287: FND_MESSAGE.SET_TOKEN('PARAMETERS',
3288: ' P_invoice_id = ' || p_line_rec.invoice_id
3289: ||' P_line_number = ' || p_line_rec.line_number
3290: ||' P_last_updated_by = ' || P_last_updated_by
3291: ||' P_last_update_login = ' || P_last_update_login
3289: ||' P_line_number = ' || p_line_rec.line_number
3290: ||' P_last_updated_by = ' || P_last_updated_by
3291: ||' P_last_update_login = ' || P_last_update_login
3292: ||' P_calling_mode = ' || p_calling_mode);
3293: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3294: END IF;
3295:
3296: IF ( po_dists_cur%ISOPEN ) THEN
3297: CLOSE po_dists_cur;
3658:
3659: EXCEPTION
3660: WHEN OTHERS THEN
3661: IF (SQLCODE <> -20001) THEN
3662: FND_MESSAGE.SET_NAME ('SQLAP','AP_DEBUG');
3663: FND_MESSAGE.SET_TOKEN ('ERROR',SQLERRM);
3664: FND_MESSAGE.SET_TOKEN ('CALLING_SEQUENCE',l_curr_calling_sequence);
3665: FND_MESSAGE.SET_TOKEN ('PARAMETERS',
3666: ' P_invoice_id = '|| p_inv_line_rec.invoice_id
3659: EXCEPTION
3660: WHEN OTHERS THEN
3661: IF (SQLCODE <> -20001) THEN
3662: FND_MESSAGE.SET_NAME ('SQLAP','AP_DEBUG');
3663: FND_MESSAGE.SET_TOKEN ('ERROR',SQLERRM);
3664: FND_MESSAGE.SET_TOKEN ('CALLING_SEQUENCE',l_curr_calling_sequence);
3665: FND_MESSAGE.SET_TOKEN ('PARAMETERS',
3666: ' P_invoice_id = '|| p_inv_line_rec.invoice_id
3667: ||' P_line_number = '|| p_inv_line_rec.line_number
3660: WHEN OTHERS THEN
3661: IF (SQLCODE <> -20001) THEN
3662: FND_MESSAGE.SET_NAME ('SQLAP','AP_DEBUG');
3663: FND_MESSAGE.SET_TOKEN ('ERROR',SQLERRM);
3664: FND_MESSAGE.SET_TOKEN ('CALLING_SEQUENCE',l_curr_calling_sequence);
3665: FND_MESSAGE.SET_TOKEN ('PARAMETERS',
3666: ' P_invoice_id = '|| p_inv_line_rec.invoice_id
3667: ||' P_line_number = '|| p_inv_line_rec.line_number
3668: ||' P_calling_mode = '|| p_calling_mode);
3661: IF (SQLCODE <> -20001) THEN
3662: FND_MESSAGE.SET_NAME ('SQLAP','AP_DEBUG');
3663: FND_MESSAGE.SET_TOKEN ('ERROR',SQLERRM);
3664: FND_MESSAGE.SET_TOKEN ('CALLING_SEQUENCE',l_curr_calling_sequence);
3665: FND_MESSAGE.SET_TOKEN ('PARAMETERS',
3666: ' P_invoice_id = '|| p_inv_line_rec.invoice_id
3667: ||' P_line_number = '|| p_inv_line_rec.line_number
3668: ||' P_calling_mode = '|| p_calling_mode);
3669: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3665: FND_MESSAGE.SET_TOKEN ('PARAMETERS',
3666: ' P_invoice_id = '|| p_inv_line_rec.invoice_id
3667: ||' P_line_number = '|| p_inv_line_rec.line_number
3668: ||' P_calling_mode = '|| p_calling_mode);
3669: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
3670: END IF;
3671:
3672: x_debug_info := l_debug_info;
3673: