623: EXCEPTION
624: WHEN OTHERS THEN
625: IF (SQLCODE <> -20001) THEN
626: rollback;
627: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
628: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
629: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
630: FND_MESSAGE.SET_TOKEN('PARAMETERS',
631: ' P_invoice_id = ' || P_invoice_id
624: WHEN OTHERS THEN
625: IF (SQLCODE <> -20001) THEN
626: rollback;
627: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
628: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
629: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
630: FND_MESSAGE.SET_TOKEN('PARAMETERS',
631: ' P_invoice_id = ' || P_invoice_id
632: ||' P_last_updated_by = ' || P_last_updated_by
625: IF (SQLCODE <> -20001) THEN
626: rollback;
627: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
628: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
629: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
630: FND_MESSAGE.SET_TOKEN('PARAMETERS',
631: ' P_invoice_id = ' || P_invoice_id
632: ||' P_last_updated_by = ' || P_last_updated_by
633: ||' P_last_update_login = ' || P_last_update_login
626: rollback;
627: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
628: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
629: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
630: FND_MESSAGE.SET_TOKEN('PARAMETERS',
631: ' P_invoice_id = ' || P_invoice_id
632: ||' P_last_updated_by = ' || P_last_updated_by
633: ||' P_last_update_login = ' || P_last_update_login
634: ||' P_accounting_date = ' || P_accounting_date);
631: ' P_invoice_id = ' || P_invoice_id
632: ||' P_last_updated_by = ' || P_last_updated_by
633: ||' P_last_update_login = ' || P_last_update_login
634: ||' P_accounting_date = ' || P_accounting_date);
635: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
636: END IF;
637:
638: APP_EXCEPTION.RAISE_EXCEPTION;
639:
748: EXCEPTION
749: WHEN OTHERS THEN
750: IF (SQLCODE <> -20001) THEN
751: rollback;
752: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
753: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
754: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
755: FND_MESSAGE.SET_TOKEN('PARAMETERS',
756: ' P_invoice_id = ' || p_invoice_id
749: WHEN OTHERS THEN
750: IF (SQLCODE <> -20001) THEN
751: rollback;
752: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
753: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
754: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
755: FND_MESSAGE.SET_TOKEN('PARAMETERS',
756: ' P_invoice_id = ' || p_invoice_id
757: ||' P_line_number = ' || p_line_number
750: IF (SQLCODE <> -20001) THEN
751: rollback;
752: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
753: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
754: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
755: FND_MESSAGE.SET_TOKEN('PARAMETERS',
756: ' P_invoice_id = ' || p_invoice_id
757: ||' P_line_number = ' || p_line_number
758: ||' P_last_updated_by = ' || P_last_updated_by
751: rollback;
752: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
753: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
754: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
755: FND_MESSAGE.SET_TOKEN('PARAMETERS',
756: ' P_invoice_id = ' || p_invoice_id
757: ||' P_line_number = ' || p_line_number
758: ||' P_last_updated_by = ' || P_last_updated_by
759: ||' P_last_update_login = ' || P_last_update_login
757: ||' P_line_number = ' || p_line_number
758: ||' P_last_updated_by = ' || P_last_updated_by
759: ||' P_last_update_login = ' || P_last_update_login
760: ||' P_calling_mode = ' || p_calling_mode);
761: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
762: END IF;
763:
764: APP_EXCEPTION.RAISE_EXCEPTION;
765:
913: EXCEPTION
914: WHEN OTHERS THEN
915: IF (SQLCODE <> -20001) THEN
916: rollback;
917: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
918: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
919: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
920: FND_MESSAGE.SET_TOKEN('PARAMETERS',
921: ' P_invoice_id = ' || p_invoice_id
914: WHEN OTHERS THEN
915: IF (SQLCODE <> -20001) THEN
916: rollback;
917: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
918: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
919: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
920: FND_MESSAGE.SET_TOKEN('PARAMETERS',
921: ' P_invoice_id = ' || p_invoice_id
922: ||' P_org_id = ' || p_org_id);
915: IF (SQLCODE <> -20001) THEN
916: rollback;
917: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
918: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
919: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
920: FND_MESSAGE.SET_TOKEN('PARAMETERS',
921: ' P_invoice_id = ' || p_invoice_id
922: ||' P_org_id = ' || p_org_id);
923: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
916: rollback;
917: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
918: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
919: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
920: FND_MESSAGE.SET_TOKEN('PARAMETERS',
921: ' P_invoice_id = ' || p_invoice_id
922: ||' P_org_id = ' || p_org_id);
923: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
924: END IF;
919: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
920: FND_MESSAGE.SET_TOKEN('PARAMETERS',
921: ' P_invoice_id = ' || p_invoice_id
922: ||' P_org_id = ' || p_org_id);
923: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
924: END IF;
925:
926: APP_EXCEPTION.RAISE_EXCEPTION;
927:
993: EXCEPTION
994: WHEN OTHERS THEN
995: IF (SQLCODE <> -20001) THEN
996: rollback;
997: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
998: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
999: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1000: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1001: ' P_invoice_id = ' || p_invoice_id
994: WHEN OTHERS THEN
995: IF (SQLCODE <> -20001) THEN
996: rollback;
997: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
998: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
999: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1000: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1001: ' P_invoice_id = ' || p_invoice_id
1002: ||', P_calling_mode = ' || p_calling_mode
995: IF (SQLCODE <> -20001) THEN
996: rollback;
997: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
998: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
999: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1000: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1001: ' P_invoice_id = ' || p_invoice_id
1002: ||', P_calling_mode = ' || p_calling_mode
1003: ||', P_override_status = ' || p_override_status
996: rollback;
997: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
998: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
999: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1000: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1001: ' P_invoice_id = ' || p_invoice_id
1002: ||', P_calling_mode = ' || p_calling_mode
1003: ||', P_override_status = ' || p_override_status
1004: ||', P_event_id = ' || P_event_id
1002: ||', P_calling_mode = ' || p_calling_mode
1003: ||', P_override_status = ' || p_override_status
1004: ||', P_event_id = ' || P_event_id
1005: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1006: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1007: END IF;
1008:
1009: APP_EXCEPTION.RAISE_EXCEPTION;
1010:
1067: EXCEPTION
1068: WHEN OTHERS THEN
1069: IF (SQLCODE <> -20001) THEN
1070: rollback;
1071: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1072: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1073: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1074: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1075: ' P_invoice_id = ' || p_invoice_id
1068: WHEN OTHERS THEN
1069: IF (SQLCODE <> -20001) THEN
1070: rollback;
1071: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1072: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1073: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1074: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1075: ' P_invoice_id = ' || p_invoice_id
1076: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1069: IF (SQLCODE <> -20001) THEN
1070: rollback;
1071: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1072: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1073: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1074: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1075: ' P_invoice_id = ' || p_invoice_id
1076: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1077: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1070: rollback;
1071: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1072: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1073: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1074: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1075: ' P_invoice_id = ' || p_invoice_id
1076: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1077: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1078: END IF;
1073: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1074: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1075: ' P_invoice_id = ' || p_invoice_id
1076: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1077: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1078: END IF;
1079:
1080: APP_EXCEPTION.RAISE_EXCEPTION;
1081:
1146: EXCEPTION
1147: WHEN OTHERS THEN
1148: IF (SQLCODE <> -20001) THEN
1149: rollback;
1150: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1151: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1152: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1153: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1154: ' P_invoice_id = ' || p_invoice_id
1147: WHEN OTHERS THEN
1148: IF (SQLCODE <> -20001) THEN
1149: rollback;
1150: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1151: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1152: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1153: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1154: ' P_invoice_id = ' || p_invoice_id
1155: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1148: IF (SQLCODE <> -20001) THEN
1149: rollback;
1150: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1151: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1152: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1153: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1154: ' P_invoice_id = ' || p_invoice_id
1155: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1156: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1149: rollback;
1150: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1151: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1152: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1153: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1154: ' P_invoice_id = ' || p_invoice_id
1155: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1156: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1157: END IF;
1152: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1153: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1154: ' P_invoice_id = ' || p_invoice_id
1155: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1156: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1157: END IF;
1158:
1159: APP_EXCEPTION.RAISE_EXCEPTION;
1160:
1333:
1334: IF l_base_currency_code <> l_inv_currency_code THEN
1335: /* BUG 11867431 start */
1336: IF l_exchange_rate is null THEN
1337: fnd_message.set_name ('SQLAP', 'AP_EXCHANGE_RATE');
1338: fnd_message.set_token ('P_EXCHANGE_RATE_TYPE',
1339: l_default_exchange_Rate_type
1340: );
1341: fnd_message.set_token ('CURRENCY', l_inv_currency_code);
1334: IF l_base_currency_code <> l_inv_currency_code THEN
1335: /* BUG 11867431 start */
1336: IF l_exchange_rate is null THEN
1337: fnd_message.set_name ('SQLAP', 'AP_EXCHANGE_RATE');
1338: fnd_message.set_token ('P_EXCHANGE_RATE_TYPE',
1339: l_default_exchange_Rate_type
1340: );
1341: fnd_message.set_token ('CURRENCY', l_inv_currency_code);
1342: fnd_message.set_token ('P_AS_OF_DATE', l_exchange_date);
1337: fnd_message.set_name ('SQLAP', 'AP_EXCHANGE_RATE');
1338: fnd_message.set_token ('P_EXCHANGE_RATE_TYPE',
1339: l_default_exchange_Rate_type
1340: );
1341: fnd_message.set_token ('CURRENCY', l_inv_currency_code);
1342: fnd_message.set_token ('P_AS_OF_DATE', l_exchange_date);
1343: fnd_msg_pub.add;
1344: RAISE NULL_EXCHG_RATE;
1345: END IF;
1338: fnd_message.set_token ('P_EXCHANGE_RATE_TYPE',
1339: l_default_exchange_Rate_type
1340: );
1341: fnd_message.set_token ('CURRENCY', l_inv_currency_code);
1342: fnd_message.set_token ('P_AS_OF_DATE', l_exchange_date);
1343: fnd_msg_pub.add;
1344: RAISE NULL_EXCHG_RATE;
1345: END IF;
1346: /* BUG 11867431 end */
1395: APP_EXCEPTION.RAISE_EXCEPTION;
1396: WHEN OTHERS THEN
1397: IF (SQLCODE <> -20001) THEN
1398: rollback;
1399: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1400: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1401: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1402: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1403: ' P_invoice_id = ' || p_invoice_id
1396: WHEN OTHERS THEN
1397: IF (SQLCODE <> -20001) THEN
1398: rollback;
1399: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1400: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1401: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1402: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1403: ' P_invoice_id = ' || p_invoice_id
1404: || ', sequence_numbering = ' || p_sequence_numbering
1397: IF (SQLCODE <> -20001) THEN
1398: rollback;
1399: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1400: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1401: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1402: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1403: ' P_invoice_id = ' || p_invoice_id
1404: || ', sequence_numbering = ' || p_sequence_numbering
1405: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1398: rollback;
1399: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1400: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1401: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1402: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1403: ' P_invoice_id = ' || p_invoice_id
1404: || ', sequence_numbering = ' || p_sequence_numbering
1405: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1406: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1402: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1403: ' P_invoice_id = ' || p_invoice_id
1404: || ', sequence_numbering = ' || p_sequence_numbering
1405: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1406: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1407: END IF;
1408:
1409: APP_EXCEPTION.RAISE_EXCEPTION;
1410:
1526: EXCEPTION
1527: WHEN OTHERS THEN
1528: IF (SQLCODE <> -20001) THEN
1529: rollback;
1530: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1531: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1532: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1533: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1534: ' P_invoice_id = ' || p_invoice_id
1527: WHEN OTHERS THEN
1528: IF (SQLCODE <> -20001) THEN
1529: rollback;
1530: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1531: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1532: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1533: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1534: ' P_invoice_id = ' || p_invoice_id
1535: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1528: IF (SQLCODE <> -20001) THEN
1529: rollback;
1530: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1531: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1532: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1533: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1534: ' P_invoice_id = ' || p_invoice_id
1535: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1536: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1529: rollback;
1530: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1531: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1532: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1533: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1534: ' P_invoice_id = ' || p_invoice_id
1535: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1536: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1537: END IF;
1532: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1533: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1534: ' P_invoice_id = ' || p_invoice_id
1535: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1536: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1537: END IF;
1538:
1539: APP_EXCEPTION.RAISE_EXCEPTION;
1540:
1837:
1838: IF l_base_currency_code <> l_inv_currency_code THEN
1839: /* BUG 11867431 start */
1840: IF l_exchange_rate is null THEN
1841: fnd_message.set_name ('SQLAP', 'AP_EXCHANGE_RATE');
1842: fnd_message.set_token ('P_EXCHANGE_RATE_TYPE',
1843: l_default_exchange_Rate_type
1844: );
1845: fnd_message.set_token ('CURRENCY', l_inv_currency_code);
1838: IF l_base_currency_code <> l_inv_currency_code THEN
1839: /* BUG 11867431 start */
1840: IF l_exchange_rate is null THEN
1841: fnd_message.set_name ('SQLAP', 'AP_EXCHANGE_RATE');
1842: fnd_message.set_token ('P_EXCHANGE_RATE_TYPE',
1843: l_default_exchange_Rate_type
1844: );
1845: fnd_message.set_token ('CURRENCY', l_inv_currency_code);
1846: fnd_message.set_token ('P_AS_OF_DATE', l_exchange_date);
1841: fnd_message.set_name ('SQLAP', 'AP_EXCHANGE_RATE');
1842: fnd_message.set_token ('P_EXCHANGE_RATE_TYPE',
1843: l_default_exchange_Rate_type
1844: );
1845: fnd_message.set_token ('CURRENCY', l_inv_currency_code);
1846: fnd_message.set_token ('P_AS_OF_DATE', l_exchange_date);
1847: fnd_msg_pub.add;
1848: RAISE NULL_EXCHG_RATE;
1849: END IF;
1842: fnd_message.set_token ('P_EXCHANGE_RATE_TYPE',
1843: l_default_exchange_Rate_type
1844: );
1845: fnd_message.set_token ('CURRENCY', l_inv_currency_code);
1846: fnd_message.set_token ('P_AS_OF_DATE', l_exchange_date);
1847: fnd_msg_pub.add;
1848: RAISE NULL_EXCHG_RATE;
1849: END IF;
1850: /* BUG 11867431 end */
1961: EXCEPTION
1962: WHEN OTHERS THEN
1963: IF (SQLCODE <> -20001) THEN
1964: rollback;
1965: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1966: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1967: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1968: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1969: ' P_invoice_id = ' || p_invoice_id
1962: WHEN OTHERS THEN
1963: IF (SQLCODE <> -20001) THEN
1964: rollback;
1965: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1966: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1967: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1968: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1969: ' P_invoice_id = ' || p_invoice_id
1970: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1963: IF (SQLCODE <> -20001) THEN
1964: rollback;
1965: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1966: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1967: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1968: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1969: ' P_invoice_id = ' || p_invoice_id
1970: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1971: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1964: rollback;
1965: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1966: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1967: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1968: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1969: ' P_invoice_id = ' || p_invoice_id
1970: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1971: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1972: END IF;
1967: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
1968: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1969: ' P_invoice_id = ' || p_invoice_id
1970: ||', P_calling_sequence = ' || l_curr_calling_sequence);
1971: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
1972: END IF;
1973:
1974: APP_EXCEPTION.RAISE_EXCEPTION;
1975:
2080: EXCEPTION
2081: WHEN OTHERS THEN
2082: IF (SQLCODE <> -20001) THEN
2083: rollback;
2084: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2085: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2086: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2087: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2088: ' P_invoice_id = ' || p_invoice_id
2081: WHEN OTHERS THEN
2082: IF (SQLCODE <> -20001) THEN
2083: rollback;
2084: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2085: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2086: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2087: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2088: ' P_invoice_id = ' || p_invoice_id
2089: || ', invoice_line_number = ' || l_invoice_line_number
2082: IF (SQLCODE <> -20001) THEN
2083: rollback;
2084: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2085: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2086: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2087: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2088: ' P_invoice_id = ' || p_invoice_id
2089: || ', invoice_line_number = ' || l_invoice_line_number
2090: ||', P_calling_sequence = ' || l_curr_calling_sequence);
2083: rollback;
2084: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2085: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2086: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2087: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2088: ' P_invoice_id = ' || p_invoice_id
2089: || ', invoice_line_number = ' || l_invoice_line_number
2090: ||', P_calling_sequence = ' || l_curr_calling_sequence);
2091: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2087: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2088: ' P_invoice_id = ' || p_invoice_id
2089: || ', invoice_line_number = ' || l_invoice_line_number
2090: ||', P_calling_sequence = ' || l_curr_calling_sequence);
2091: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2092: END IF;
2093:
2094: If (Invoice_Lines_Cur%ISOPEN) Then
2095: CLOSE invoice_lines_cur;
2185: EXCEPTION
2186: WHEN OTHERS THEN
2187: IF (SQLCODE <> -20001) THEN
2188: rollback;
2189: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2190: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2191: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2192: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2193: ' P_user_id = ' || p_user_id
2186: WHEN OTHERS THEN
2187: IF (SQLCODE <> -20001) THEN
2188: rollback;
2189: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2190: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2191: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2192: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2193: ' P_user_id = ' || p_user_id
2194: || ', p_attr_code = ' || p_attr_code
2187: IF (SQLCODE <> -20001) THEN
2188: rollback;
2189: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2190: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2191: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2192: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2193: ' P_user_id = ' || p_user_id
2194: || ', p_attr_code = ' || p_attr_code
2195: ||', P_calling_sequence = ' || l_curr_calling_sequence);
2188: rollback;
2189: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2190: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2191: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2192: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2193: ' P_user_id = ' || p_user_id
2194: || ', p_attr_code = ' || p_attr_code
2195: ||', P_calling_sequence = ' || l_curr_calling_sequence);
2196: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2192: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2193: ' P_user_id = ' || p_user_id
2194: || ', p_attr_code = ' || p_attr_code
2195: ||', P_calling_sequence = ' || l_curr_calling_sequence);
2196: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2197: END IF;
2198:
2199: APP_EXCEPTION.RAISE_EXCEPTION;
2200:
2233:
2234: EXCEPTION when others then
2235:
2236: IF (SQLCODE <> -20001) THEN
2237: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2238: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2239: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'P_hold_id = '|| p_hold_id);
2240: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2241: END IF;
2234: EXCEPTION when others then
2235:
2236: IF (SQLCODE <> -20001) THEN
2237: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2238: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2239: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'P_hold_id = '|| p_hold_id);
2240: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2241: END IF;
2242:
2235:
2236: IF (SQLCODE <> -20001) THEN
2237: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2238: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2239: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'P_hold_id = '|| p_hold_id);
2240: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2241: END IF;
2242:
2243: APP_EXCEPTION.RAISE_EXCEPTION;
2236: IF (SQLCODE <> -20001) THEN
2237: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2238: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2239: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'P_hold_id = '|| p_hold_id);
2240: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2241: END IF;
2242:
2243: APP_EXCEPTION.RAISE_EXCEPTION;
2244: END Release_Hold;
2495:
2496: EXCEPTION
2497: WHEN OTHERS THEN
2498: IF (SQLCODE <> -20001) THEN
2499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2502: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2503: END IF;
2496: EXCEPTION
2497: WHEN OTHERS THEN
2498: IF (SQLCODE <> -20001) THEN
2499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2502: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2503: END IF;
2504:
2497: WHEN OTHERS THEN
2498: IF (SQLCODE <> -20001) THEN
2499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2502: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2503: END IF;
2504:
2505: APP_EXCEPTION.RAISE_EXCEPTION;
2498: IF (SQLCODE <> -20001) THEN
2499: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2500: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2501: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2502: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2503: END IF;
2504:
2505: APP_EXCEPTION.RAISE_EXCEPTION;
2506:
2909: p_requester_id := NULL;
2910: DBMS_SQL.CLOSE_CURSOR(v_select);
2911: END IF;
2912: IF (SQLCODE <> -20001) THEN
2913: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2914: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2915: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2916: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2917: ', p_first_name = ' || p_first_name ||
2910: DBMS_SQL.CLOSE_CURSOR(v_select);
2911: END IF;
2912: IF (SQLCODE <> -20001) THEN
2913: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2914: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2915: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2916: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2917: ', p_first_name = ' || p_first_name ||
2918: ', p_last_name = ' || p_last_name ||
2911: END IF;
2912: IF (SQLCODE <> -20001) THEN
2913: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2914: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2915: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2916: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2917: ', p_first_name = ' || p_first_name ||
2918: ', p_last_name = ' || p_last_name ||
2919: ', p_email_address = ' || p_email_address ||
2912: IF (SQLCODE <> -20001) THEN
2913: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2914: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2915: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_curr_calling_sequence);
2916: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2917: ', p_first_name = ' || p_first_name ||
2918: ', p_last_name = ' || p_last_name ||
2919: ', p_email_address = ' || p_email_address ||
2920: ', P_calling_sequence = ' || l_curr_calling_sequence);
2917: ', p_first_name = ' || p_first_name ||
2918: ', p_last_name = ' || p_last_name ||
2919: ', p_email_address = ' || p_email_address ||
2920: ', P_calling_sequence = ' || l_curr_calling_sequence);
2921: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2922: END IF;
2923:
2924: APP_EXCEPTION.RAISE_EXCEPTION;
2925: END;