655:
656: EXCEPTION
657: WHEN OTHERS then
658: IF ((SQLCODE <> -20001) OR (SQLCODE <> -20002) ) then
659: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
660: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
661: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
662: FND_MESSAGE.SET_TOKEN('PARAMETERS',
663: 'Invoice_date = '||TO_CHAR(P_invoice_date)
656: EXCEPTION
657: WHEN OTHERS then
658: IF ((SQLCODE <> -20001) OR (SQLCODE <> -20002) ) then
659: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
660: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
661: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
662: FND_MESSAGE.SET_TOKEN('PARAMETERS',
663: 'Invoice_date = '||TO_CHAR(P_invoice_date)
664: ||' Accounting_date = '||TO_CHAR(P_accounting_date)
657: WHEN OTHERS then
658: IF ((SQLCODE <> -20001) OR (SQLCODE <> -20002) ) then
659: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
660: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
661: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
662: FND_MESSAGE.SET_TOKEN('PARAMETERS',
663: 'Invoice_date = '||TO_CHAR(P_invoice_date)
664: ||' Accounting_date = '||TO_CHAR(P_accounting_date)
665: ||' Currency_code = '||P_invoice_currency_code
658: IF ((SQLCODE <> -20001) OR (SQLCODE <> -20002) ) then
659: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
660: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
661: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
662: FND_MESSAGE.SET_TOKEN('PARAMETERS',
663: 'Invoice_date = '||TO_CHAR(P_invoice_date)
664: ||' Accounting_date = '||TO_CHAR(P_accounting_date)
665: ||' Currency_code = '||P_invoice_currency_code
666: ||' P_recurring_payment_id = '||TO_CHAR(P_recurring_payment_id)
687: ||' Last_updated_by = '||TO_CHAR(P_last_updated_by)
688: ||' Last_updated_date = '||TO_CHAR(P_last_update_date)
689: ||' P_po_match_flag = '||P_po_match_flag
690: ||' P_batch_control_flag = '||P_batch_control_flag);
691: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
692: END IF;
693:
694: APP_EXCEPTION.RAISE_EXCEPTION;
695:
962:
963: IF (debug_info = 'get offset tax amount and name') then
964: NULL;
965: ELSE
966: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
967: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
969: FND_MESSAGE.SET_TOKEN('PARAMETERS',
970: 'Invoice_date = '||TO_CHAR(P_invoice_date)
963: IF (debug_info = 'get offset tax amount and name') then
964: NULL;
965: ELSE
966: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
967: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
969: FND_MESSAGE.SET_TOKEN('PARAMETERS',
970: 'Invoice_date = '||TO_CHAR(P_invoice_date)
971: ||' Invoice_amount = '||TO_CHAR(P_invoice_amount)
964: NULL;
965: ELSE
966: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
967: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
969: FND_MESSAGE.SET_TOKEN('PARAMETERS',
970: 'Invoice_date = '||TO_CHAR(P_invoice_date)
971: ||' Invoice_amount = '||TO_CHAR(P_invoice_amount)
972: ||' Vendor_id = '||TO_CHAR(P_vendor_id)
965: ELSE
966: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
967: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
969: FND_MESSAGE.SET_TOKEN('PARAMETERS',
970: 'Invoice_date = '||TO_CHAR(P_invoice_date)
971: ||' Invoice_amount = '||TO_CHAR(P_invoice_amount)
972: ||' Vendor_id = '||TO_CHAR(P_vendor_id)
973: ||' Vendor_site_id = '||TO_CHAR(P_vendor_site_id)
976: ||' Tax_id = '||TO_CHAR(P_tax_id)
977: ||' Currency_code = '||P_invoice_currency_code);
978:
979: IF (debug_info = 'Get min_unit and precision') then
980: FND_MESSAGE.SET_TOKEN('DEBUG_INFO','No currency code for this invoice');
981: APP_EXCEPTION.RAISE_EXCEPTION;
982: elsif(debug_info ='Get period name') then
983: FND_MESSAGE.SET_TOKEN('DEBUG_INFO','the GL_date(sysdate) is not in an open period');
984: APP_EXCEPTION.RAISE_EXCEPTION;
979: IF (debug_info = 'Get min_unit and precision') then
980: FND_MESSAGE.SET_TOKEN('DEBUG_INFO','No currency code for this invoice');
981: APP_EXCEPTION.RAISE_EXCEPTION;
982: elsif(debug_info ='Get period name') then
983: FND_MESSAGE.SET_TOKEN('DEBUG_INFO','the GL_date(sysdate) is not in an open period');
984: APP_EXCEPTION.RAISE_EXCEPTION;
985: else
986: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
987: APP_EXCEPTION.RAISE_EXCEPTION;
982: elsif(debug_info ='Get period name') then
983: FND_MESSAGE.SET_TOKEN('DEBUG_INFO','the GL_date(sysdate) is not in an open period');
984: APP_EXCEPTION.RAISE_EXCEPTION;
985: else
986: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
987: APP_EXCEPTION.RAISE_EXCEPTION;
988: END IF;
989: END IF;
990:
990:
991: WHEN OTHERS then
992:
993: IF ((SQLCODE <> -20001) OR ((SQLCODE <> -20002))) then
994: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
995: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
996: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
997:
998: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
991: WHEN OTHERS then
992:
993: IF ((SQLCODE <> -20001) OR ((SQLCODE <> -20002))) then
994: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
995: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
996: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
997:
998: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
999: END IF;
992:
993: IF ((SQLCODE <> -20001) OR ((SQLCODE <> -20002))) then
994: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
995: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
996: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
997:
998: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
999: END IF;
1000: FND_MESSAGE.SET_TOKEN('PARAMETERS',
994: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
995: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
996: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
997:
998: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
999: END IF;
1000: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1001: 'Invoice_date = '||TO_CHAR(P_invoice_date)
1002: ||' Invoice_amount = '||TO_CHAR(P_invoice_amount)
996: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
997:
998: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
999: END IF;
1000: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1001: 'Invoice_date = '||TO_CHAR(P_invoice_date)
1002: ||' Invoice_amount = '||TO_CHAR(P_invoice_amount)
1003: ||' Vendor_id = '||TO_CHAR(P_vendor_id)
1004: ||' Vendor_site_id = '||TO_CHAR(P_vendor_site_id)
1114: EXCEPTION
1115: WHEN OTHERS then
1116:
1117: IF ((SQLCODE <> -20001) AND ((SQLCODE <> -20002))) then
1118: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1119: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1120: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1121: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1122: 'P_batch_name = '||P_batch_name
1115: WHEN OTHERS then
1116:
1117: IF ((SQLCODE <> -20001) AND ((SQLCODE <> -20002))) then
1118: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1119: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1120: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1121: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1122: 'P_batch_name = '||P_batch_name
1123: ||'P_batch_control_flag = '|| P_batch_control_flag
1116:
1117: IF ((SQLCODE <> -20001) AND ((SQLCODE <> -20002))) then
1118: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1119: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1120: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1121: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1122: 'P_batch_name = '||P_batch_name
1123: ||'P_batch_control_flag = '|| P_batch_control_flag
1124: ||'P_invoice_currency_code = '||P_invoice_currency_code
1117: IF ((SQLCODE <> -20001) AND ((SQLCODE <> -20002))) then
1118: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1119: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1120: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1121: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1122: 'P_batch_name = '||P_batch_name
1123: ||'P_batch_control_flag = '|| P_batch_control_flag
1124: ||'P_invoice_currency_code = '||P_invoice_currency_code
1125: ||'P_payment_currency_code = '||P_payment_currency_code
1124: ||'P_invoice_currency_code = '||P_invoice_currency_code
1125: ||'P_payment_currency_code = '||P_payment_currency_code
1126: ||'P_last_update_date = '||TO_CHAR(P_last_update_date)
1127: ||'P_last_updated_by = '||TO_CHAR(P_last_updated_by));
1128: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1129: END IF;
1130:
1131: APP_EXCEPTION.RAISE_EXCEPTION;
1132:
1501: EXCEPTION
1502: WHEN OTHERS then
1503:
1504: IF ((SQLCODE <> -20001) or ((SQLCODE <> -20002)) ) 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('PARAMETERS',
1509: ' batch_id = '||TO_CHAR(p_batch_id)
1502: WHEN OTHERS then
1503:
1504: IF ((SQLCODE <> -20001) or ((SQLCODE <> -20002)) ) 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('PARAMETERS',
1509: ' batch_id = '||TO_CHAR(p_batch_id)
1510: ||' c_source = '||c_source
1503:
1504: IF ((SQLCODE <> -20001) or ((SQLCODE <> -20002)) ) 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('PARAMETERS',
1509: ' batch_id = '||TO_CHAR(p_batch_id)
1510: ||' c_source = '||c_source
1511: ||' P_invoice_id = '||TO_CHAR(C_invoice_id)
1504: IF ((SQLCODE <> -20001) or ((SQLCODE <> -20002)) ) 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('PARAMETERS',
1509: ' batch_id = '||TO_CHAR(p_batch_id)
1510: ||' c_source = '||c_source
1511: ||' P_invoice_id = '||TO_CHAR(C_invoice_id)
1512: ||' P_tax_name = '||P_tax_name
1539: ||' Set 0f books id = '||TO_CHAR(P_set_of_books_id)
1540: ||' Last_updated_by = '||TO_CHAR(P_last_updated_by)
1541: ||' Last_updated_date = '||TO_CHAR(P_last_update_date));
1542:
1543: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1544: END IF;
1545:
1546: APP_EXCEPTION.RAISE_EXCEPTION;
1547:
1686: ELSIF (debug_info = 'Get next year period_num') then
1687: NULL;
1688: else
1689:
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','Period_type = '||P_period_type
1694: ||' Current period name = '||P_current_period_name);
1687: NULL;
1688: else
1689:
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','Period_type = '||P_period_type
1694: ||' Current period name = '||P_current_period_name);
1695: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1688: else
1689:
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','Period_type = '||P_period_type
1694: ||' Current period name = '||P_current_period_name);
1695: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1696: APP_EXCEPTION.RAISE_EXCEPTION;
1689:
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','Period_type = '||P_period_type
1694: ||' Current period name = '||P_current_period_name);
1695: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1696: APP_EXCEPTION.RAISE_EXCEPTION;
1697: END IF;
1691: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1692: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1693: FND_MESSAGE.SET_TOKEN('PARAMETERS','Period_type = '||P_period_type
1694: ||' Current period name = '||P_current_period_name);
1695: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1696: APP_EXCEPTION.RAISE_EXCEPTION;
1697: END IF;
1698:
1699: WHEN OTHERS then
1698:
1699: WHEN OTHERS then
1700:
1701: IF (SQLCODE <> -20001 ) then
1702: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1703: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1704: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1705: FND_MESSAGE.SET_TOKEN('PARAMETERS','Period_type = '||P_period_type
1706: ||' Current period name = '||P_current_period_name);
1699: WHEN OTHERS then
1700:
1701: IF (SQLCODE <> -20001 ) then
1702: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1703: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1704: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1705: FND_MESSAGE.SET_TOKEN('PARAMETERS','Period_type = '||P_period_type
1706: ||' Current period name = '||P_current_period_name);
1707: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1700:
1701: IF (SQLCODE <> -20001 ) then
1702: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1703: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1704: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1705: FND_MESSAGE.SET_TOKEN('PARAMETERS','Period_type = '||P_period_type
1706: ||' Current period name = '||P_current_period_name);
1707: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1708: END IF;
1701: IF (SQLCODE <> -20001 ) then
1702: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1703: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1704: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1705: FND_MESSAGE.SET_TOKEN('PARAMETERS','Period_type = '||P_period_type
1706: ||' Current period name = '||P_current_period_name);
1707: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1708: END IF;
1709:
1703: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1704: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1705: FND_MESSAGE.SET_TOKEN('PARAMETERS','Period_type = '||P_period_type
1706: ||' Current period name = '||P_current_period_name);
1707: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1708: END IF;
1709:
1710: APP_EXCEPTION.RAISE_EXCEPTION;
1711:
1787:
1788: WHEN OTHERS then
1789:
1790: IF (SQLCODE <> -20001 ) then
1791: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1792: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1793: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1794: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1795: 'Increment_percent = '||TO_CHAR(P_increment_percent)
1788: WHEN OTHERS then
1789:
1790: IF (SQLCODE <> -20001 ) then
1791: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1792: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1793: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1794: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1795: 'Increment_percent = '||TO_CHAR(P_increment_percent)
1796: ||' Next period name = '||P_next_period_name);
1789:
1790: IF (SQLCODE <> -20001 ) then
1791: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1792: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1793: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1794: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1795: 'Increment_percent = '||TO_CHAR(P_increment_percent)
1796: ||' Next period name = '||P_next_period_name);
1797: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1790: IF (SQLCODE <> -20001 ) then
1791: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1792: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1793: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1794: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1795: 'Increment_percent = '||TO_CHAR(P_increment_percent)
1796: ||' Next period name = '||P_next_period_name);
1797: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1798: END IF;
1793: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1794: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1795: 'Increment_percent = '||TO_CHAR(P_increment_percent)
1796: ||' Next period name = '||P_next_period_name);
1797: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1798: END IF;
1799:
1800: APP_EXCEPTION.RAISE_EXCEPTION;
1801:
1939:
1940: WHEN OTHERS then
1941:
1942: IF (SQLCODE <> -20001 ) then
1943: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1944: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1945: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1946: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1947: 'first_period_name = '||P_first_period_name
1940: WHEN OTHERS then
1941:
1942: IF (SQLCODE <> -20001 ) then
1943: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1944: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1945: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1946: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1947: 'first_period_name = '||P_first_period_name
1948: ||' P_special_period_name1 = '||P_special_period_name1
1941:
1942: IF (SQLCODE <> -20001 ) then
1943: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1944: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1945: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1946: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1947: 'first_period_name = '||P_first_period_name
1948: ||' P_special_period_name1 = '||P_special_period_name1
1949: ||' P_special_payment_amount1 = '||TO_CHAR(P_special_payment_amount1)
1942: IF (SQLCODE <> -20001 ) then
1943: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1944: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1945: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
1946: FND_MESSAGE.SET_TOKEN('PARAMETERS',
1947: 'first_period_name = '||P_first_period_name
1948: ||' P_special_period_name1 = '||P_special_period_name1
1949: ||' P_special_payment_amount1 = '||TO_CHAR(P_special_payment_amount1)
1950: ||' P_special_period_name2 = '||P_special_period_name2
1952: ||' P_number_of_regular_periods = '||TO_CHAR(P_number_of_regular_periods)
1953: ||' P_amount_source_flag = '||P_amount_source_flag
1954: ||' P_increment_percent = '||TO_CHAR(P_increment_percent)
1955: ||' P_currency_code = '||P_currency_code);
1956: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
1957: END IF;
1958:
1959: APP_EXCEPTION.RAISE_EXCEPTION;
1960:
2331: EXCEPTION
2332:
2333: WHEN OTHERS then
2334: IF ((SQLCODE <> -20001) OR ((SQLCODE <> -20002))) then
2335: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2336: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2337: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2338: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2339: END IF;
2332:
2333: WHEN OTHERS then
2334: IF ((SQLCODE <> -20001) OR ((SQLCODE <> -20002))) then
2335: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2336: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2337: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2338: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2339: END IF;
2340: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2333: WHEN OTHERS then
2334: IF ((SQLCODE <> -20001) OR ((SQLCODE <> -20002))) then
2335: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2336: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2337: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2338: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2339: END IF;
2340: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2341: ' Invoice_line_Number = '||TO_CHAR(l_invoice_line_number)
2334: IF ((SQLCODE <> -20001) OR ((SQLCODE <> -20002))) then
2335: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2336: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2337: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2338: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2339: END IF;
2340: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2341: ' Invoice_line_Number = '||TO_CHAR(l_invoice_line_number)
2342: ||' Asset_bt_code = '||P_asset_bt_code
2336: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2337: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2338: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2339: END IF;
2340: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2341: ' Invoice_line_Number = '||TO_CHAR(l_invoice_line_number)
2342: ||' Asset_bt_code = '||P_asset_bt_code
2343: ||' Transfer_flag = '||p_transfer_flag
2344: ||' Approval_wf_flag = '||P_approval_workflow_flag
2460: FROM ap_distribution_sets
2461: WHERE distribution_set_id = p_distribution_set_id;
2462:
2463: IF (nvl(l_inactive_date, trunc(sysdate) + 1) <= trunc(sysdate)) THEN
2464: FND_MESSAGE.SET_NAME('SQLAP','AP_VEN_DIST_SET_INVALID');
2465: APP_EXCEPTION.RAISE_EXCEPTION;
2466: END IF;
2467:
2468: IF (l_dist_set_percent_number <> 100) then
2465: APP_EXCEPTION.RAISE_EXCEPTION;
2466: END IF;
2467:
2468: IF (l_dist_set_percent_number <> 100) then
2469: FND_MESSAGE.SET_NAME('SQLAP','AP_CANT_USE_SKELETON_DIST_SET');
2470: APP_EXCEPTION.RAISE_EXCEPTION;
2471: END IF;
2472:
2473: EXCEPTION
2473: EXCEPTION
2474: WHEN NO_DATA_FOUND THEN
2475: Debug_info := debug_info || ': Cannot read Dist Set';
2476: IF (SQLCODE <> -20001) THEN
2477: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2478: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2479: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2480: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(p_invoice_id));
2481: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2474: WHEN NO_DATA_FOUND THEN
2475: Debug_info := debug_info || ': Cannot read Dist Set';
2476: IF (SQLCODE <> -20001) THEN
2477: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2478: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2479: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2480: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(p_invoice_id));
2481: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2482: END IF;
2475: Debug_info := debug_info || ': Cannot read Dist Set';
2476: IF (SQLCODE <> -20001) THEN
2477: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2478: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2479: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2480: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(p_invoice_id));
2481: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2482: END IF;
2483: APP_EXCEPTION.RAISE_EXCEPTION;
2476: IF (SQLCODE <> -20001) THEN
2477: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2478: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2479: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2480: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(p_invoice_id));
2481: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2482: END IF;
2483: APP_EXCEPTION.RAISE_EXCEPTION;
2484: END;
2477: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2478: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2479: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2480: FND_MESSAGE.SET_TOKEN('PARAMETERS','Invoice Id = '||TO_CHAR(p_invoice_id));
2481: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2482: END IF;
2483: APP_EXCEPTION.RAISE_EXCEPTION;
2484: END;
2485:
2838:
2839: EXCEPTION
2840: WHEN OTHERS then
2841: IF ((SQLCODE <> -20001) OR (SQLCODE <> -20002) ) then
2842: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2843: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2844: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2845: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2846: 'Invoice_id = '||TO_CHAR(P_invoice_id)
2839: EXCEPTION
2840: WHEN OTHERS then
2841: IF ((SQLCODE <> -20001) OR (SQLCODE <> -20002) ) then
2842: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2843: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2844: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2845: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2846: 'Invoice_id = '||TO_CHAR(P_invoice_id)
2847: ||' Distribution_Set_id = '||TO_CHAR(P_distribution_set_id)
2840: WHEN OTHERS then
2841: IF ((SQLCODE <> -20001) OR (SQLCODE <> -20002) ) then
2842: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2843: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2844: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2845: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2846: 'Invoice_id = '||TO_CHAR(P_invoice_id)
2847: ||' Distribution_Set_id = '||TO_CHAR(P_distribution_set_id)
2848: ||' Line_Amount = '||TO_CHAR(p_line_amount)
2841: IF ((SQLCODE <> -20001) OR (SQLCODE <> -20002) ) then
2842: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2843: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
2844: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
2845: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2846: 'Invoice_id = '||TO_CHAR(P_invoice_id)
2847: ||' Distribution_Set_id = '||TO_CHAR(P_distribution_set_id)
2848: ||' Line_Amount = '||TO_CHAR(p_line_amount)
2849: ||' Accounting_date = '||TO_CHAR(P_accounting_date)
2849: ||' Accounting_date = '||TO_CHAR(P_accounting_date)
2850: ||' P_awt_group_id = '||TO_CHAR(P_awt_group_id)
2851: ||' Exchange Rate = '||TO_CHAR(P_exchange_rate)
2852: ||' Set 0f books id = '||TO_CHAR(P_set_of_books_id));
2853: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
2854: END IF;
2855:
2856: APP_EXCEPTION.RAISE_EXCEPTION;
2857: