825: ------------------------------------------------------------------------
826: l_report_header_id number;
827: l_debug_info VARCHAR2(200);
828:
829: l_fnd_message fnd_new_messages.message_name%type;
830: l_note_text varchar2(2000);
831: l_holding_invoice_num ap_expense_report_headers.invoice_num%type;
832:
833: l_orig_language_code ap_expense_params.note_language_code%type := null;
894: p_item_key,
895: 'EXPENSE_REPORT_ID');
896:
897: -------------------------------------------------------------------
898: l_debug_info := 'Retrieve Activity Attr FND Message';
899: -------------------------------------------------------------------
900: l_fnd_message := WF_ENGINE.GetActivityAttrText(p_item_type,
901: p_item_key,
902: p_actid,
896:
897: -------------------------------------------------------------------
898: l_debug_info := 'Retrieve Activity Attr FND Message';
899: -------------------------------------------------------------------
900: l_fnd_message := WF_ENGINE.GetActivityAttrText(p_item_type,
901: p_item_key,
902: p_actid,
903: 'FND_MESSAGE');
904:
899: -------------------------------------------------------------------
900: l_fnd_message := WF_ENGINE.GetActivityAttrText(p_item_type,
901: p_item_key,
902: p_actid,
903: 'FND_MESSAGE');
904:
905: if (l_fnd_message is not null) then
906:
907: FND_MESSAGE.SET_NAME('SQLAP', l_fnd_message);
901: p_item_key,
902: p_actid,
903: 'FND_MESSAGE');
904:
905: if (l_fnd_message is not null) then
906:
907: FND_MESSAGE.SET_NAME('SQLAP', l_fnd_message);
908:
909: if (l_fnd_message = 'APWRECPT_HELD_ALL_NOTE') then
903: 'FND_MESSAGE');
904:
905: if (l_fnd_message is not null) then
906:
907: FND_MESSAGE.SET_NAME('SQLAP', l_fnd_message);
908:
909: if (l_fnd_message = 'APWRECPT_HELD_ALL_NOTE') then
910:
911: l_holding_invoice_num := WF_ENGINE.GetItemAttrText(p_item_type,
905: if (l_fnd_message is not null) then
906:
907: FND_MESSAGE.SET_NAME('SQLAP', l_fnd_message);
908:
909: if (l_fnd_message = 'APWRECPT_HELD_ALL_NOTE') then
910:
911: l_holding_invoice_num := WF_ENGINE.GetItemAttrText(p_item_type,
912: p_item_key,
913: 'HOLDING_EXPENSE_REPORT');
911: l_holding_invoice_num := WF_ENGINE.GetItemAttrText(p_item_type,
912: p_item_key,
913: 'HOLDING_EXPENSE_REPORT');
914:
915: FND_MESSAGE.SET_TOKEN('HOLDING_EXPENSE_REPORT', l_holding_invoice_num);
916:
917: end if; -- l_fnd_message is not null
918:
919: l_note_text := FND_MESSAGE.GET;
913: 'HOLDING_EXPENSE_REPORT');
914:
915: FND_MESSAGE.SET_TOKEN('HOLDING_EXPENSE_REPORT', l_holding_invoice_num);
916:
917: end if; -- l_fnd_message is not null
918:
919: l_note_text := FND_MESSAGE.GET;
920:
921: ------------------------------------------------------------
915: FND_MESSAGE.SET_TOKEN('HOLDING_EXPENSE_REPORT', l_holding_invoice_num);
916:
917: end if; -- l_fnd_message is not null
918:
919: l_note_text := FND_MESSAGE.GET;
920:
921: ------------------------------------------------------------
922: l_debug_info := 'store the fnd message as a note';
923: ------------------------------------------------------------
918:
919: l_note_text := FND_MESSAGE.GET;
920:
921: ------------------------------------------------------------
922: l_debug_info := 'store the fnd message as a note';
923: ------------------------------------------------------------
924: AP_WEB_NOTES_PKG.CreateERPrepToAudNote (
925: p_report_header_id => l_report_header_id,
926: p_note => l_note_text,
926: p_note => l_note_text,
927: p_lang => l_new_language_code
928: );
929:
930: end if; -- l_fnd_message is not null
931:
932: -------------------------------------------------------------------
933: l_debug_info := 'Restore nls context to original language';
934: -------------------------------------------------------------------
1074: WHEN OTHERS THEN
1075: BEGIN
1076: IF ( SQLCODE <> -20001 )
1077: THEN
1078: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1079: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1080: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ExpenseHolds' );
1081: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1082: APP_EXCEPTION.RAISE_EXCEPTION;
1075: BEGIN
1076: IF ( SQLCODE <> -20001 )
1077: THEN
1078: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1079: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1080: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ExpenseHolds' );
1081: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1082: APP_EXCEPTION.RAISE_EXCEPTION;
1083: ELSE
1076: IF ( SQLCODE <> -20001 )
1077: THEN
1078: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1079: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1080: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ExpenseHolds' );
1081: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1082: APP_EXCEPTION.RAISE_EXCEPTION;
1083: ELSE
1084: -- Do not need to set the token since it has been done in the
1077: THEN
1078: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1079: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1080: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ExpenseHolds' );
1081: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1082: APP_EXCEPTION.RAISE_EXCEPTION;
1083: ELSE
1084: -- Do not need to set the token since it has been done in the
1085: -- child process
1127: WHEN OTHERS THEN
1128: BEGIN
1129: IF ( SQLCODE <> -20001 )
1130: THEN
1131: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1132: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1133: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'UpdateExpenseStatus' );
1134: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1135: APP_EXCEPTION.RAISE_EXCEPTION;
1128: BEGIN
1129: IF ( SQLCODE <> -20001 )
1130: THEN
1131: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1132: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1133: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'UpdateExpenseStatus' );
1134: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1135: APP_EXCEPTION.RAISE_EXCEPTION;
1136: ELSE
1129: IF ( SQLCODE <> -20001 )
1130: THEN
1131: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1132: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1133: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'UpdateExpenseStatus' );
1134: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1135: APP_EXCEPTION.RAISE_EXCEPTION;
1136: ELSE
1137: -- Do not need to set the token since it has been done in the
1130: THEN
1131: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1132: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1133: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'UpdateExpenseStatus' );
1134: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1135: APP_EXCEPTION.RAISE_EXCEPTION;
1136: ELSE
1137: -- Do not need to set the token since it has been done in the
1138: -- child process
1161: WHEN OTHERS THEN
1162: BEGIN
1163: IF ( SQLCODE <> -20001 )
1164: THEN
1165: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1166: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1167: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReleaseHold' );
1168: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1169: APP_EXCEPTION.RAISE_EXCEPTION;
1162: BEGIN
1163: IF ( SQLCODE <> -20001 )
1164: THEN
1165: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1166: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1167: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReleaseHold' );
1168: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1169: APP_EXCEPTION.RAISE_EXCEPTION;
1170: ELSE
1163: IF ( SQLCODE <> -20001 )
1164: THEN
1165: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1166: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1167: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReleaseHold' );
1168: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1169: APP_EXCEPTION.RAISE_EXCEPTION;
1170: ELSE
1171: -- Do not need to set the token since it has been done in the
1164: THEN
1165: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1166: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1167: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReleaseHold' );
1168: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1169: APP_EXCEPTION.RAISE_EXCEPTION;
1170: ELSE
1171: -- Do not need to set the token since it has been done in the
1172: -- child process
1196: WHEN OTHERS THEN
1197: BEGIN
1198: IF ( SQLCODE <> -20001 )
1199: THEN
1200: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1201: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1202: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'PlaceHold' );
1203: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1204: APP_EXCEPTION.RAISE_EXCEPTION;
1197: BEGIN
1198: IF ( SQLCODE <> -20001 )
1199: THEN
1200: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1201: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1202: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'PlaceHold' );
1203: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1204: APP_EXCEPTION.RAISE_EXCEPTION;
1205: ELSE
1198: IF ( SQLCODE <> -20001 )
1199: THEN
1200: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1201: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1202: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'PlaceHold' );
1203: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1204: APP_EXCEPTION.RAISE_EXCEPTION;
1205: ELSE
1206: -- Do not need to set the token since it has been done in the
1199: THEN
1200: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1201: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1202: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'PlaceHold' );
1203: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1204: APP_EXCEPTION.RAISE_EXCEPTION;
1205: ELSE
1206: -- Do not need to set the token since it has been done in the
1207: -- child process
1230: WHEN OTHERS THEN
1231: BEGIN
1232: IF ( SQLCODE <> -20001 )
1233: THEN
1234: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1235: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1236: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReadyForPayment' );
1237: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1238: APP_EXCEPTION.RAISE_EXCEPTION;
1231: BEGIN
1232: IF ( SQLCODE <> -20001 )
1233: THEN
1234: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1235: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1236: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReadyForPayment' );
1237: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1238: APP_EXCEPTION.RAISE_EXCEPTION;
1239: ELSE
1232: IF ( SQLCODE <> -20001 )
1233: THEN
1234: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1235: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1236: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReadyForPayment' );
1237: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1238: APP_EXCEPTION.RAISE_EXCEPTION;
1239: ELSE
1240: -- Do not need to set the token since it has been done in the
1233: THEN
1234: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1235: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1236: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReadyForPayment' );
1237: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1238: APP_EXCEPTION.RAISE_EXCEPTION;
1239: ELSE
1240: -- Do not need to set the token since it has been done in the
1241: -- child process
1380: WHEN OTHERS THEN
1381: BEGIN
1382: IF ( SQLCODE <> -20001 )
1383: THEN
1384: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1385: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1386: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldEach' );
1387: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1388: APP_EXCEPTION.RAISE_EXCEPTION;
1381: BEGIN
1382: IF ( SQLCODE <> -20001 )
1383: THEN
1384: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1385: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1386: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldEach' );
1387: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1388: APP_EXCEPTION.RAISE_EXCEPTION;
1389: ELSE
1382: IF ( SQLCODE <> -20001 )
1383: THEN
1384: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1385: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1386: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldEach' );
1387: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1388: APP_EXCEPTION.RAISE_EXCEPTION;
1389: ELSE
1390: -- Do not need to set the token since it has been done in the
1383: THEN
1384: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1385: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1386: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldEach' );
1387: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1388: APP_EXCEPTION.RAISE_EXCEPTION;
1389: ELSE
1390: -- Do not need to set the token since it has been done in the
1391: -- child process
1444: WHEN OTHERS THEN
1445: BEGIN
1446: IF ( SQLCODE <> -20001 )
1447: THEN
1448: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1449: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1450: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestOverdueReceipts' );
1451: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1452: APP_EXCEPTION.RAISE_EXCEPTION;
1445: BEGIN
1446: IF ( SQLCODE <> -20001 )
1447: THEN
1448: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1449: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1450: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestOverdueReceipts' );
1451: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1452: APP_EXCEPTION.RAISE_EXCEPTION;
1453: ELSE
1446: IF ( SQLCODE <> -20001 )
1447: THEN
1448: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1449: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1450: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestOverdueReceipts' );
1451: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1452: APP_EXCEPTION.RAISE_EXCEPTION;
1453: ELSE
1454: -- Do not need to set the token since it has been done in the
1447: THEN
1448: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1449: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1450: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestOverdueReceipts' );
1451: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1452: APP_EXCEPTION.RAISE_EXCEPTION;
1453: ELSE
1454: -- Do not need to set the token since it has been done in the
1455: -- child process
1629: WHEN OTHERS THEN
1630: BEGIN
1631: IF ( SQLCODE <> -20001 )
1632: THEN
1633: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1634: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1635: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldAll' );
1636: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1637: APP_EXCEPTION.RAISE_EXCEPTION;
1630: BEGIN
1631: IF ( SQLCODE <> -20001 )
1632: THEN
1633: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1634: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1635: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldAll' );
1636: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1637: APP_EXCEPTION.RAISE_EXCEPTION;
1638: ELSE
1631: IF ( SQLCODE <> -20001 )
1632: THEN
1633: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1634: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1635: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldAll' );
1636: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1637: APP_EXCEPTION.RAISE_EXCEPTION;
1638: ELSE
1639: -- Do not need to set the token since it has been done in the
1632: THEN
1633: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1634: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1635: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldAll' );
1636: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1637: APP_EXCEPTION.RAISE_EXCEPTION;
1638: ELSE
1639: -- Do not need to set the token since it has been done in the
1640: -- child process
1683: WHEN OTHERS THEN
1684: BEGIN
1685: IF ( SQLCODE <> -20001 )
1686: THEN
1687: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1688: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1689: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1690: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1691: APP_EXCEPTION.RAISE_EXCEPTION;
1684: BEGIN
1685: IF ( SQLCODE <> -20001 )
1686: THEN
1687: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1688: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1689: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1690: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1691: APP_EXCEPTION.RAISE_EXCEPTION;
1692: ELSE
1685: IF ( SQLCODE <> -20001 )
1686: THEN
1687: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1688: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1689: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1690: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1691: APP_EXCEPTION.RAISE_EXCEPTION;
1692: ELSE
1693: -- Do not need to set the token since it has been done in the
1686: THEN
1687: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1688: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1689: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1690: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1691: APP_EXCEPTION.RAISE_EXCEPTION;
1692: ELSE
1693: -- Do not need to set the token since it has been done in the
1694: -- child process
1905: WHEN OTHERS THEN
1906: BEGIN
1907: IF ( SQLCODE <> -20001 )
1908: THEN
1909: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1910: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1911: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldBothPay' );
1912: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1913: APP_EXCEPTION.RAISE_EXCEPTION;
1906: BEGIN
1907: IF ( SQLCODE <> -20001 )
1908: THEN
1909: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1910: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1911: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldBothPay' );
1912: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1913: APP_EXCEPTION.RAISE_EXCEPTION;
1914: ELSE
1907: IF ( SQLCODE <> -20001 )
1908: THEN
1909: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1910: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1911: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldBothPay' );
1912: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1913: APP_EXCEPTION.RAISE_EXCEPTION;
1914: ELSE
1915: -- Do not need to set the token since it has been done in the
1908: THEN
1909: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1910: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1911: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldBothPay' );
1912: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1913: APP_EXCEPTION.RAISE_EXCEPTION;
1914: ELSE
1915: -- Do not need to set the token since it has been done in the
1916: -- child process
2108: WHEN OTHERS THEN
2109: BEGIN
2110: IF ( SQLCODE <> -20001 )
2111: THEN
2112: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2113: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2114: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ObsoleteHold' );
2115: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2116: APP_EXCEPTION.RAISE_EXCEPTION;
2109: BEGIN
2110: IF ( SQLCODE <> -20001 )
2111: THEN
2112: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2113: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2114: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ObsoleteHold' );
2115: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2116: APP_EXCEPTION.RAISE_EXCEPTION;
2117: ELSE
2110: IF ( SQLCODE <> -20001 )
2111: THEN
2112: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2113: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2114: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ObsoleteHold' );
2115: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2116: APP_EXCEPTION.RAISE_EXCEPTION;
2117: ELSE
2118: -- Do not need to set the token since it has been done in the
2111: THEN
2112: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2113: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2114: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ObsoleteHold' );
2115: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2116: APP_EXCEPTION.RAISE_EXCEPTION;
2117: ELSE
2118: -- Do not need to set the token since it has been done in the
2119: -- child process