273: EXCEPTION
274: WHEN OTHERS THEN
275: --AP_LOGGING_PKG.AP_End_Block(l_debug_loc);
276: IF (SQLCODE <> -20001) THEN
277: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
278: FND_MESSAGE.SET_TOKEN('ERROR', 'SQLERRM');
279: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
280: FND_MESSAGE.SET_TOKEN('PARAMETERS',
281: 'Amount to Round = '||to_char(p_amount)
274: WHEN OTHERS THEN
275: --AP_LOGGING_PKG.AP_End_Block(l_debug_loc);
276: IF (SQLCODE <> -20001) THEN
277: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
278: FND_MESSAGE.SET_TOKEN('ERROR', 'SQLERRM');
279: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
280: FND_MESSAGE.SET_TOKEN('PARAMETERS',
281: 'Amount to Round = '||to_char(p_amount)
282: ||', Currency Code = '||p_currency_code
275: --AP_LOGGING_PKG.AP_End_Block(l_debug_loc);
276: IF (SQLCODE <> -20001) THEN
277: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
278: FND_MESSAGE.SET_TOKEN('ERROR', 'SQLERRM');
279: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
280: FND_MESSAGE.SET_TOKEN('PARAMETERS',
281: 'Amount to Round = '||to_char(p_amount)
282: ||', Currency Code = '||p_currency_code
283: ||', Rounding Rule = '||p_round_rule);
276: IF (SQLCODE <> -20001) THEN
277: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
278: FND_MESSAGE.SET_TOKEN('ERROR', 'SQLERRM');
279: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
280: FND_MESSAGE.SET_TOKEN('PARAMETERS',
281: 'Amount to Round = '||to_char(p_amount)
282: ||', Currency Code = '||p_currency_code
283: ||', Rounding Rule = '||p_round_rule);
284: END IF;
354: EXCEPTION
355: WHEN OTHERS THEN
356: --AP_LOGGING_PKG.AP_End_Block(l_debug_loc);
357: IF (SQLCODE <> -20001) THEN
358: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
359: FND_MESSAGE.SET_TOKEN('ERROR', 'SQLERRM');
360: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence
361: );
362: FND_MESSAGE.SET_TOKEN('PARAMETERS',
355: WHEN OTHERS THEN
356: --AP_LOGGING_PKG.AP_End_Block(l_debug_loc);
357: IF (SQLCODE <> -20001) THEN
358: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
359: FND_MESSAGE.SET_TOKEN('ERROR', 'SQLERRM');
360: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence
361: );
362: FND_MESSAGE.SET_TOKEN('PARAMETERS',
363: 'Amount to Round = '||to_char(p_amount)
356: --AP_LOGGING_PKG.AP_End_Block(l_debug_loc);
357: IF (SQLCODE <> -20001) THEN
358: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
359: FND_MESSAGE.SET_TOKEN('ERROR', 'SQLERRM');
360: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence
361: );
362: FND_MESSAGE.SET_TOKEN('PARAMETERS',
363: 'Amount to Round = '||to_char(p_amount)
364: ||', Currency Code = '||p_currency_code
358: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
359: FND_MESSAGE.SET_TOKEN('ERROR', 'SQLERRM');
360: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence
361: );
362: FND_MESSAGE.SET_TOKEN('PARAMETERS',
363: 'Amount to Round = '||to_char(p_amount)
364: ||', Currency Code = '||p_currency_code
365: ||', Rounding Rule = '||p_round_rule);
366: END IF;
696: query. Therefore, I am commenting it out NOCOPY and simply
697: returning null if no record is retrieved.
698:
699: if (SQLCODE <> -20001) then
700: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
701: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
702: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
703: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'p_from_currency_code = '||p_from_currency_code
704: ||', p_to_currency_code = '||p_to_currency_code
697: returning null if no record is retrieved.
698:
699: if (SQLCODE <> -20001) then
700: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
701: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
702: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
703: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'p_from_currency_code = '||p_from_currency_code
704: ||', p_to_currency_code = '||p_to_currency_code
705: ||', p_exchange_rate_type = ' ||p_exchange_rate_type
698:
699: if (SQLCODE <> -20001) then
700: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
701: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
702: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
703: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'p_from_currency_code = '||p_from_currency_code
704: ||', p_to_currency_code = '||p_to_currency_code
705: ||', p_exchange_rate_type = ' ||p_exchange_rate_type
706: ||', p_exchange_date = ' ||TO_CHAR(p_exchange_date));
699: if (SQLCODE <> -20001) then
700: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
701: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
702: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
703: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'p_from_currency_code = '||p_from_currency_code
704: ||', p_to_currency_code = '||p_to_currency_code
705: ||', p_exchange_rate_type = ' ||p_exchange_rate_type
706: ||', p_exchange_date = ' ||TO_CHAR(p_exchange_date));
707: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
703: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'p_from_currency_code = '||p_from_currency_code
704: ||', p_to_currency_code = '||p_to_currency_code
705: ||', p_exchange_rate_type = ' ||p_exchange_rate_type
706: ||', p_exchange_date = ' ||TO_CHAR(p_exchange_date));
707: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
708: end if;
709: APP_EXCEPTION.RAISE_EXCEPTION;
710: */
711: return(l_rate);
731:
732: PROCEDURE AP_Get_Message(p_err_txt OUT NOCOPY VARCHAR2) IS
733: BEGIN
734:
735: p_err_txt := fnd_message.get;
736:
737: END AP_Get_Message;
738:
739: --MO Access Control: Added the following new function for the
931:
932:
933:
934: IF (l_segment_delimiter IS NULL) THEN
935: l_reason_unbuilt_flex := FND_MESSAGE.GET;
936: END IF;
937:
938: -- Get Segment array for the input ccid
939: --
950: l_segments);
951:
952:
953: IF (NOT l_result) THEN
954: l_reason_unbuilt_flex := FND_MESSAGE.GET;
955: END IF;
956:
957: END IF; -- l_ccid not null
958: --
962: l_segments,
963: l_segment_delimiter);
964:
965: IF (NOT l_result) THEN
966: l_reason_unbuilt_flex := FND_MESSAGE.GET;
967: l_ccid := -1;
968: END IF;
969:
970: p_ccid := l_ccid;
1038: l_account_segment_num);
1039:
1040:
1041: IF (NOT l_result) THEN
1042: l_reason_unbuilt_flex := FND_MESSAGE.GET;
1043: END IF;
1044:
1045:
1046: l_result := FND_FLEX_KEY_API.GET_SEG_ORDER_BY_QUAL_NAME(
1051: l_balancing_segment_num);
1052:
1053:
1054: IF (NOT l_result) THEN
1055: l_reason_unbuilt_flex := FND_MESSAGE.GET;
1056: END IF;
1057:
1058:
1059: l_result := FND_FLEX_KEY_API.GET_SEG_ORDER_BY_QUAL_NAME(
1064: l_cost_center_segment_num);
1065:
1066:
1067: IF (NOT l_result) THEN
1068: l_reason_unbuilt_flex := FND_MESSAGE.GET;
1069: END IF;
1070:
1071:
1072:
1104: l_segments,
1105: l_segment_delimiter);
1106:
1107: IF (NOT l_result) THEN
1108: l_reason_unbuilt_flex := FND_MESSAGE.GET;
1109: END IF;
1110:
1111:
1112:
1241: WHEN OTHERS THEN
1242:
1243:
1244: if (SQLCODE <> -20001) then
1245: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1246: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1247: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1248: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1249: end if;
1242:
1243:
1244: if (SQLCODE <> -20001) then
1245: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1246: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1247: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1248: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1249: end if;
1250:
1243:
1244: if (SQLCODE <> -20001) then
1245: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1246: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1247: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1248: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1249: end if;
1250:
1251:
1244: if (SQLCODE <> -20001) then
1245: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1246: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1247: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1248: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1249: end if;
1250:
1251:
1252: RETURN(FALSE);
1319:
1320:
1321:
1322: IF (l_segment_delimiter IS NULL) THEN
1323: l_reason_unbuilt_flex := FND_MESSAGE.GET;
1324: END IF;
1325:
1326: -- Get Segment array for the input ccid
1327: --
1338: l_segments);
1339:
1340:
1341: IF (NOT l_result) THEN
1342: l_reason_unbuilt_flex := FND_MESSAGE.GET;
1343: END IF;
1344:
1345: END IF; -- l_ccid not null
1346: --
1350: l_segments,
1351: l_segment_delimiter);
1352:
1353: IF (NOT l_result) THEN
1354: l_reason_unbuilt_flex := FND_MESSAGE.GET;
1355: l_ccid := -1;
1356: END IF;
1357:
1358: p_ccid := l_ccid;
1426: l_account_segment_num);
1427:
1428:
1429: IF (NOT l_result) THEN
1430: l_reason_unbuilt_flex := FND_MESSAGE.GET;
1431: END IF;
1432:
1433:
1434: l_result := FND_FLEX_KEY_API.GET_SEG_ORDER_BY_QUAL_NAME(
1439: l_balancing_segment_num);
1440:
1441:
1442: IF (NOT l_result) THEN
1443: l_reason_unbuilt_flex := FND_MESSAGE.GET;
1444: END IF;
1445:
1446:
1447: l_result := FND_FLEX_KEY_API.GET_SEG_ORDER_BY_QUAL_NAME(
1452: l_cost_center_segment_num);
1453:
1454:
1455: IF (NOT l_result) THEN
1456: l_reason_unbuilt_flex := FND_MESSAGE.GET;
1457: END IF;
1458:
1459:
1460:
1492: l_segments,
1493: l_segment_delimiter);
1494:
1495: IF (NOT l_result) THEN
1496: l_reason_unbuilt_flex := FND_MESSAGE.GET;
1497: END IF;
1498:
1499:
1500:
1623: WHEN OTHERS THEN
1624:
1625:
1626: if (SQLCODE <> -20001) then
1627: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1628: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1629: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1630: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1631: end if;
1624:
1625:
1626: if (SQLCODE <> -20001) then
1627: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1628: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1629: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1630: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1631: end if;
1632:
1625:
1626: if (SQLCODE <> -20001) then
1627: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1628: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1629: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1630: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1631: end if;
1632:
1633:
1626: if (SQLCODE <> -20001) then
1627: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1628: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1629: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1630: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1631: end if;
1632:
1633:
1634: RETURN(FALSE);
1677:
1678:
1679:
1680: IF (l_segment_delimiter IS NULL) THEN
1681: p_error_message:= FND_MESSAGE.GET;
1682: END IF;
1683:
1684: debug_info := 'Break Segments';
1685: l_num_segments := FND_FLEX_EXT.breakup_segments(p_concatenated_segments,
1707:
1708: WHEN OTHERS THEN
1709:
1710: if (SQLCODE <> -20001) then
1711: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1712: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1713: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1714: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1715: end if;
1708: WHEN OTHERS THEN
1709:
1710: if (SQLCODE <> -20001) then
1711: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1712: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1713: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1714: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1715: end if;
1716: RETURN(FALSE);
1709:
1710: if (SQLCODE <> -20001) then
1711: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1712: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1713: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1714: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1715: end if;
1716: RETURN(FALSE);
1717:
1710: if (SQLCODE <> -20001) then
1711: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1712: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1713: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1714: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1715: end if;
1716: RETURN(FALSE);
1717:
1718: END Check_partial;
1794:
1795: WHEN OTHERS THEN
1796:
1797: if (SQLCODE <> -20001) then
1798: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1799: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1800: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1801: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1802: end if;
1795: WHEN OTHERS THEN
1796:
1797: if (SQLCODE <> -20001) then
1798: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1799: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1800: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1801: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1802: end if;
1803: RETURN(FALSE);
1796:
1797: if (SQLCODE <> -20001) then
1798: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1799: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1800: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1801: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1802: end if;
1803: RETURN(FALSE);
1804:
1797: if (SQLCODE <> -20001) then
1798: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1799: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1800: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1801: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1802: end if;
1803: RETURN(FALSE);
1804:
1805: END IS_CCID_VALID;
1873:
1874: p_mc_flag_enabled := NULL;
1875:
1876: if (SQLCODE <> -20001) then
1877: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1878: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1879: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1880: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1881: end if;
1874: p_mc_flag_enabled := NULL;
1875:
1876: if (SQLCODE <> -20001) then
1877: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1878: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1879: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1880: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1881: end if;
1882:
1875:
1876: if (SQLCODE <> -20001) then
1877: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1878: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1879: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1880: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1881: end if;
1882:
1883: END mc_flag_enabled;
1876: if (SQLCODE <> -20001) then
1877: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1878: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1879: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1880: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1881: end if;
1882:
1883: END mc_flag_enabled;
1884:
1920: EXCEPTION
1921: WHEN OTHERS THEN
1922:
1923: if (SQLCODE <> -20001) then
1924: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1925: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1926: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1927: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1928: end if;
1921: WHEN OTHERS THEN
1922:
1923: if (SQLCODE <> -20001) then
1924: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1925: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1926: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1927: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1928: end if;
1929: return NULL;
1922:
1923: if (SQLCODE <> -20001) then
1924: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1925: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1926: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1927: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1928: end if;
1929: return NULL;
1930:
1923: if (SQLCODE <> -20001) then
1924: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1925: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1926: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1927: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1928: end if;
1929: return NULL;
1930:
1931: end AP_Get_Sob_Order_Col;
1962: EXCEPTION
1963: WHEN OTHERS THEN
1964:
1965: if (SQLCODE <> -20001) then
1966: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1967: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1969: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1970: end if;
1963: WHEN OTHERS THEN
1964:
1965: if (SQLCODE <> -20001) then
1966: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1967: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1969: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1970: end if;
1971: return NULL;
1964:
1965: if (SQLCODE <> -20001) then
1966: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1967: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1969: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1970: end if;
1971: return NULL;
1972:
1965: if (SQLCODE <> -20001) then
1966: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1967: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1968: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1969: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1970: end if;
1971: return NULL;
1972:
1973: END get_charge_account;
2145: RETURN(invoice_status);
2146: EXCEPTION
2147: WHEN OTHERS THEN
2148: if (SQLCODE <> -20001) then
2149: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2150: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2151: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2152: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2153: 'Invoice id = '||to_char(p_invoice_id)
2146: EXCEPTION
2147: WHEN OTHERS THEN
2148: if (SQLCODE <> -20001) then
2149: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2150: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2151: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2152: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2153: 'Invoice id = '||to_char(p_invoice_id)
2154: ||', Org id = '||l_org_id
2147: WHEN OTHERS THEN
2148: if (SQLCODE <> -20001) then
2149: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2150: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2151: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2152: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2153: 'Invoice id = '||to_char(p_invoice_id)
2154: ||', Org id = '||l_org_id
2155: ||', Encumbrance flag = '||encumbrance_flag);
2148: if (SQLCODE <> -20001) then
2149: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2150: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2151: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
2152: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2153: 'Invoice id = '||to_char(p_invoice_id)
2154: ||', Org id = '||l_org_id
2155: ||', Encumbrance flag = '||encumbrance_flag);
2156: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2152: FND_MESSAGE.SET_TOKEN('PARAMETERS',
2153: 'Invoice id = '||to_char(p_invoice_id)
2154: ||', Org id = '||l_org_id
2155: ||', Encumbrance flag = '||encumbrance_flag);
2156: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
2157: end if;
2158: APP_EXCEPTION.RAISE_EXCEPTION;
2159: END get_invoice_status;
2160: ---------------------------------------------------------------------
2617: return TRUE;
2618: EXCEPTION
2619: WHEN OTHERS THEN
2620: if (SQLCODE <> -20001) then
2621: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2622: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2623: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2624: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2625: end if;
2618: EXCEPTION
2619: WHEN OTHERS THEN
2620: if (SQLCODE <> -20001) then
2621: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2622: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2623: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2624: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2625: end if;
2626: RETURN(FALSE);
2619: WHEN OTHERS THEN
2620: if (SQLCODE <> -20001) then
2621: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2622: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2623: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2624: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2625: end if;
2626: RETURN(FALSE);
2627: END delete_invoice_from_interface ;
2620: if (SQLCODE <> -20001) then
2621: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
2622: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
2623: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
2624: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
2625: end if;
2626: RETURN(FALSE);
2627: END delete_invoice_from_interface ;
2628:
2774: end if;
2775: return l_open_gl_date;
2776: EXCEPTION
2777: WHEN NO_DATA_FOUND THEN
2778: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CANCEL_NO_OPEN_FUT_PERIOD');
2779: FND_MESSAGE.SET_TOKEN('DATE', to_char(p_date, 'dd-mon-yyyy'));
2780: APP_EXCEPTION.RAISE_EXCEPTION;
2781: End get_reversal_gl_date;
2782:
2775: return l_open_gl_date;
2776: EXCEPTION
2777: WHEN NO_DATA_FOUND THEN
2778: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CANCEL_NO_OPEN_FUT_PERIOD');
2779: FND_MESSAGE.SET_TOKEN('DATE', to_char(p_date, 'dd-mon-yyyy'));
2780: APP_EXCEPTION.RAISE_EXCEPTION;
2781: End get_reversal_gl_date;
2782:
2783: --Bug2610252 The function get_reversal_period is added to get
2809: end if;
2810: return l_period_name;
2811: EXCEPTION
2812: WHEN NO_DATA_FOUND THEN
2813: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CANCEL_NO_OPEN_FUT_PERIOD');
2814: FND_MESSAGE.SET_TOKEN('DATE', to_char(p_date, 'dd-mon-yyyy'));
2815: APP_EXCEPTION.RAISE_EXCEPTION;
2816: End get_reversal_period;
2817:
2810: return l_period_name;
2811: EXCEPTION
2812: WHEN NO_DATA_FOUND THEN
2813: FND_MESSAGE.SET_NAME('SQLAP', 'AP_CANCEL_NO_OPEN_FUT_PERIOD');
2814: FND_MESSAGE.SET_TOKEN('DATE', to_char(p_date, 'dd-mon-yyyy'));
2815: APP_EXCEPTION.RAISE_EXCEPTION;
2816: End get_reversal_period;
2817:
2818: /* =======================================================================*/
3725:
3726: EXCEPTION
3727: WHEN OTHERS THEN
3728: IF (SQLCODE <> -20001 ) THEN
3729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
3732: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
3733:
3726: EXCEPTION
3727: WHEN OTHERS THEN
3728: IF (SQLCODE <> -20001 ) THEN
3729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
3732: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
3733:
3734: APP_EXCEPTION.RAISE_EXCEPTION;
3727: WHEN OTHERS THEN
3728: IF (SQLCODE <> -20001 ) THEN
3729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
3732: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
3733:
3734: APP_EXCEPTION.RAISE_EXCEPTION;
3735:
3728: IF (SQLCODE <> -20001 ) THEN
3729: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
3730: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
3731: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
3732: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
3733:
3734: APP_EXCEPTION.RAISE_EXCEPTION;
3735:
3736: END IF;