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;
900: p_item_key,
901: 'EXPENSE_REPORT_ID');
902:
903: -------------------------------------------------------------------
904: l_debug_info := 'Retrieve Activity Attr FND Message';
905: -------------------------------------------------------------------
906: l_fnd_message := WF_ENGINE.GetActivityAttrText(p_item_type,
907: p_item_key,
908: p_actid,
902:
903: -------------------------------------------------------------------
904: l_debug_info := 'Retrieve Activity Attr FND Message';
905: -------------------------------------------------------------------
906: l_fnd_message := WF_ENGINE.GetActivityAttrText(p_item_type,
907: p_item_key,
908: p_actid,
909: 'FND_MESSAGE');
910:
905: -------------------------------------------------------------------
906: l_fnd_message := WF_ENGINE.GetActivityAttrText(p_item_type,
907: p_item_key,
908: p_actid,
909: 'FND_MESSAGE');
910:
911: if (l_fnd_message is not null) then
912:
913: FND_MESSAGE.SET_NAME('SQLAP', l_fnd_message);
907: p_item_key,
908: p_actid,
909: 'FND_MESSAGE');
910:
911: if (l_fnd_message is not null) then
912:
913: FND_MESSAGE.SET_NAME('SQLAP', l_fnd_message);
914:
915: if (l_fnd_message = 'APWRECPT_HELD_ALL_NOTE') then
909: 'FND_MESSAGE');
910:
911: if (l_fnd_message is not null) then
912:
913: FND_MESSAGE.SET_NAME('SQLAP', l_fnd_message);
914:
915: if (l_fnd_message = 'APWRECPT_HELD_ALL_NOTE') then
916:
917: l_holding_invoice_num := WF_ENGINE.GetItemAttrText(p_item_type,
911: if (l_fnd_message is not null) then
912:
913: FND_MESSAGE.SET_NAME('SQLAP', l_fnd_message);
914:
915: if (l_fnd_message = 'APWRECPT_HELD_ALL_NOTE') then
916:
917: l_holding_invoice_num := WF_ENGINE.GetItemAttrText(p_item_type,
918: p_item_key,
919: 'HOLDING_EXPENSE_REPORT');
917: l_holding_invoice_num := WF_ENGINE.GetItemAttrText(p_item_type,
918: p_item_key,
919: 'HOLDING_EXPENSE_REPORT');
920:
921: FND_MESSAGE.SET_TOKEN('HOLDING_EXPENSE_REPORT', l_holding_invoice_num);
922:
923: end if; -- l_fnd_message is not null
924:
925: l_note_text := FND_MESSAGE.GET;
919: 'HOLDING_EXPENSE_REPORT');
920:
921: FND_MESSAGE.SET_TOKEN('HOLDING_EXPENSE_REPORT', l_holding_invoice_num);
922:
923: end if; -- l_fnd_message is not null
924:
925: l_note_text := FND_MESSAGE.GET;
926:
927: ------------------------------------------------------------
921: FND_MESSAGE.SET_TOKEN('HOLDING_EXPENSE_REPORT', l_holding_invoice_num);
922:
923: end if; -- l_fnd_message is not null
924:
925: l_note_text := FND_MESSAGE.GET;
926:
927: ------------------------------------------------------------
928: l_debug_info := 'store the fnd message as a note';
929: ------------------------------------------------------------
924:
925: l_note_text := FND_MESSAGE.GET;
926:
927: ------------------------------------------------------------
928: l_debug_info := 'store the fnd message as a note';
929: ------------------------------------------------------------
930: AP_WEB_NOTES_PKG.CreateERPrepToAudNote (
931: p_report_header_id => l_report_header_id,
932: p_note => l_note_text,
932: p_note => l_note_text,
933: p_lang => l_new_language_code
934: );
935:
936: end if; -- l_fnd_message is not null
937:
938: -------------------------------------------------------------------
939: l_debug_info := 'Restore nls context to original language';
940: -------------------------------------------------------------------
1080: WHEN OTHERS THEN
1081: BEGIN
1082: IF ( SQLCODE <> -20001 )
1083: THEN
1084: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1085: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1086: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ExpenseHolds' );
1087: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1088: APP_EXCEPTION.RAISE_EXCEPTION;
1081: BEGIN
1082: IF ( SQLCODE <> -20001 )
1083: THEN
1084: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1085: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1086: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ExpenseHolds' );
1087: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1088: APP_EXCEPTION.RAISE_EXCEPTION;
1089: ELSE
1082: IF ( SQLCODE <> -20001 )
1083: THEN
1084: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1085: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1086: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ExpenseHolds' );
1087: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1088: APP_EXCEPTION.RAISE_EXCEPTION;
1089: ELSE
1090: -- Do not need to set the token since it has been done in the
1083: THEN
1084: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1085: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1086: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ExpenseHolds' );
1087: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1088: APP_EXCEPTION.RAISE_EXCEPTION;
1089: ELSE
1090: -- Do not need to set the token since it has been done in the
1091: -- child process
1133: WHEN OTHERS THEN
1134: BEGIN
1135: IF ( SQLCODE <> -20001 )
1136: THEN
1137: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1138: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1139: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'UpdateExpenseStatus' );
1140: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1141: APP_EXCEPTION.RAISE_EXCEPTION;
1134: BEGIN
1135: IF ( SQLCODE <> -20001 )
1136: THEN
1137: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1138: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1139: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'UpdateExpenseStatus' );
1140: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1141: APP_EXCEPTION.RAISE_EXCEPTION;
1142: ELSE
1135: IF ( SQLCODE <> -20001 )
1136: THEN
1137: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1138: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1139: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'UpdateExpenseStatus' );
1140: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1141: APP_EXCEPTION.RAISE_EXCEPTION;
1142: ELSE
1143: -- Do not need to set the token since it has been done in the
1136: THEN
1137: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1138: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1139: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'UpdateExpenseStatus' );
1140: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1141: APP_EXCEPTION.RAISE_EXCEPTION;
1142: ELSE
1143: -- Do not need to set the token since it has been done in the
1144: -- child process
1167: WHEN OTHERS THEN
1168: BEGIN
1169: IF ( SQLCODE <> -20001 )
1170: THEN
1171: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1172: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1173: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReleaseHold' );
1174: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1175: APP_EXCEPTION.RAISE_EXCEPTION;
1168: BEGIN
1169: IF ( SQLCODE <> -20001 )
1170: THEN
1171: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1172: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1173: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReleaseHold' );
1174: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1175: APP_EXCEPTION.RAISE_EXCEPTION;
1176: ELSE
1169: IF ( SQLCODE <> -20001 )
1170: THEN
1171: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1172: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1173: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReleaseHold' );
1174: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1175: APP_EXCEPTION.RAISE_EXCEPTION;
1176: ELSE
1177: -- Do not need to set the token since it has been done in the
1170: THEN
1171: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1172: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1173: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReleaseHold' );
1174: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1175: APP_EXCEPTION.RAISE_EXCEPTION;
1176: ELSE
1177: -- Do not need to set the token since it has been done in the
1178: -- child process
1202: WHEN OTHERS THEN
1203: BEGIN
1204: IF ( SQLCODE <> -20001 )
1205: THEN
1206: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1207: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1208: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'PlaceHold' );
1209: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1210: APP_EXCEPTION.RAISE_EXCEPTION;
1203: BEGIN
1204: IF ( SQLCODE <> -20001 )
1205: THEN
1206: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1207: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1208: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'PlaceHold' );
1209: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1210: APP_EXCEPTION.RAISE_EXCEPTION;
1211: ELSE
1204: IF ( SQLCODE <> -20001 )
1205: THEN
1206: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1207: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1208: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'PlaceHold' );
1209: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1210: APP_EXCEPTION.RAISE_EXCEPTION;
1211: ELSE
1212: -- Do not need to set the token since it has been done in the
1205: THEN
1206: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1207: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1208: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'PlaceHold' );
1209: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1210: APP_EXCEPTION.RAISE_EXCEPTION;
1211: ELSE
1212: -- Do not need to set the token since it has been done in the
1213: -- child process
1236: WHEN OTHERS THEN
1237: BEGIN
1238: IF ( SQLCODE <> -20001 )
1239: THEN
1240: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1241: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1242: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReadyForPayment' );
1243: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1244: APP_EXCEPTION.RAISE_EXCEPTION;
1237: BEGIN
1238: IF ( SQLCODE <> -20001 )
1239: THEN
1240: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1241: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1242: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReadyForPayment' );
1243: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1244: APP_EXCEPTION.RAISE_EXCEPTION;
1245: ELSE
1238: IF ( SQLCODE <> -20001 )
1239: THEN
1240: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1241: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1242: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReadyForPayment' );
1243: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1244: APP_EXCEPTION.RAISE_EXCEPTION;
1245: ELSE
1246: -- Do not need to set the token since it has been done in the
1239: THEN
1240: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1241: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1242: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ReadyForPayment' );
1243: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1244: APP_EXCEPTION.RAISE_EXCEPTION;
1245: ELSE
1246: -- Do not need to set the token since it has been done in the
1247: -- child process
1431: WHEN OTHERS THEN
1432: BEGIN
1433: IF ( SQLCODE <> -20001 )
1434: THEN
1435: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1436: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1437: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldEach' );
1438: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1439: APP_EXCEPTION.RAISE_EXCEPTION;
1432: BEGIN
1433: IF ( SQLCODE <> -20001 )
1434: THEN
1435: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1436: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1437: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldEach' );
1438: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1439: APP_EXCEPTION.RAISE_EXCEPTION;
1440: ELSE
1433: IF ( SQLCODE <> -20001 )
1434: THEN
1435: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1436: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1437: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldEach' );
1438: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1439: APP_EXCEPTION.RAISE_EXCEPTION;
1440: ELSE
1441: -- Do not need to set the token since it has been done in the
1434: THEN
1435: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1436: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1437: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldEach' );
1438: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1439: APP_EXCEPTION.RAISE_EXCEPTION;
1440: ELSE
1441: -- Do not need to set the token since it has been done in the
1442: -- child process
1496: WHEN OTHERS THEN
1497: BEGIN
1498: IF ( SQLCODE <> -20001 )
1499: THEN
1500: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1501: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1502: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestOverdueReceipts' );
1503: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1504: APP_EXCEPTION.RAISE_EXCEPTION;
1497: BEGIN
1498: IF ( SQLCODE <> -20001 )
1499: THEN
1500: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1501: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1502: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestOverdueReceipts' );
1503: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1504: APP_EXCEPTION.RAISE_EXCEPTION;
1505: ELSE
1498: IF ( SQLCODE <> -20001 )
1499: THEN
1500: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1501: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1502: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestOverdueReceipts' );
1503: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1504: APP_EXCEPTION.RAISE_EXCEPTION;
1505: ELSE
1506: -- Do not need to set the token since it has been done in the
1499: THEN
1500: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1501: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1502: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestOverdueReceipts' );
1503: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1504: APP_EXCEPTION.RAISE_EXCEPTION;
1505: ELSE
1506: -- Do not need to set the token since it has been done in the
1507: -- child process
1563: WHEN OTHERS THEN
1564: BEGIN
1565: IF ( SQLCODE <> -20001 )
1566: THEN
1567: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1568: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1569: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestImgOverdueReceipts' );
1570: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1571: APP_EXCEPTION.RAISE_EXCEPTION;
1564: BEGIN
1565: IF ( SQLCODE <> -20001 )
1566: THEN
1567: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1568: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1569: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestImgOverdueReceipts' );
1570: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1571: APP_EXCEPTION.RAISE_EXCEPTION;
1572: ELSE
1565: IF ( SQLCODE <> -20001 )
1566: THEN
1567: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1568: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1569: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestImgOverdueReceipts' );
1570: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1571: APP_EXCEPTION.RAISE_EXCEPTION;
1572: ELSE
1573: -- Do not need to set the token since it has been done in the
1566: THEN
1567: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1568: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1569: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'GetOldestImgOverdueReceipts' );
1570: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1571: APP_EXCEPTION.RAISE_EXCEPTION;
1572: ELSE
1573: -- Do not need to set the token since it has been done in the
1574: -- child process
1784: WHEN OTHERS THEN
1785: BEGIN
1786: IF ( SQLCODE <> -20001 )
1787: THEN
1788: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1789: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1790: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldAll' );
1791: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1792: APP_EXCEPTION.RAISE_EXCEPTION;
1785: BEGIN
1786: IF ( SQLCODE <> -20001 )
1787: THEN
1788: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1789: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1790: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldAll' );
1791: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1792: APP_EXCEPTION.RAISE_EXCEPTION;
1793: ELSE
1786: IF ( SQLCODE <> -20001 )
1787: THEN
1788: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1789: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1790: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldAll' );
1791: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1792: APP_EXCEPTION.RAISE_EXCEPTION;
1793: ELSE
1794: -- Do not need to set the token since it has been done in the
1787: THEN
1788: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1789: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1790: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldAll' );
1791: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1792: APP_EXCEPTION.RAISE_EXCEPTION;
1793: ELSE
1794: -- Do not need to set the token since it has been done in the
1795: -- child process
1838: WHEN OTHERS THEN
1839: BEGIN
1840: IF ( SQLCODE <> -20001 )
1841: THEN
1842: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1843: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1844: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1845: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1846: APP_EXCEPTION.RAISE_EXCEPTION;
1839: BEGIN
1840: IF ( SQLCODE <> -20001 )
1841: THEN
1842: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1843: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1844: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1845: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1846: APP_EXCEPTION.RAISE_EXCEPTION;
1847: ELSE
1840: IF ( SQLCODE <> -20001 )
1841: THEN
1842: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1843: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1844: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1845: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1846: APP_EXCEPTION.RAISE_EXCEPTION;
1847: ELSE
1848: -- Do not need to set the token since it has been done in the
1841: THEN
1842: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1843: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1844: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1845: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1846: APP_EXCEPTION.RAISE_EXCEPTION;
1847: ELSE
1848: -- Do not need to set the token since it has been done in the
1849: -- child process
1891: WHEN OTHERS THEN
1892: BEGIN
1893: IF ( SQLCODE <> -20001 )
1894: THEN
1895: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1896: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1897: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1898: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1899: APP_EXCEPTION.RAISE_EXCEPTION;
1892: BEGIN
1893: IF ( SQLCODE <> -20001 )
1894: THEN
1895: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1896: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1897: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1898: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1899: APP_EXCEPTION.RAISE_EXCEPTION;
1900: ELSE
1893: IF ( SQLCODE <> -20001 )
1894: THEN
1895: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1896: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1897: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1898: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1899: APP_EXCEPTION.RAISE_EXCEPTION;
1900: ELSE
1901: -- Do not need to set the token since it has been done in the
1894: THEN
1895: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
1896: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
1897: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'IsCCReceiptsRequired' );
1898: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
1899: APP_EXCEPTION.RAISE_EXCEPTION;
1900: ELSE
1901: -- Do not need to set the token since it has been done in the
1902: -- child process
2143: WHEN OTHERS THEN
2144: BEGIN
2145: IF ( SQLCODE <> -20001 )
2146: THEN
2147: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2148: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2149: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldBothPay' );
2150: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2151: APP_EXCEPTION.RAISE_EXCEPTION;
2144: BEGIN
2145: IF ( SQLCODE <> -20001 )
2146: THEN
2147: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2148: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2149: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldBothPay' );
2150: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2151: APP_EXCEPTION.RAISE_EXCEPTION;
2152: ELSE
2145: IF ( SQLCODE <> -20001 )
2146: THEN
2147: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2148: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2149: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldBothPay' );
2150: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2151: APP_EXCEPTION.RAISE_EXCEPTION;
2152: ELSE
2153: -- Do not need to set the token since it has been done in the
2146: THEN
2147: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2148: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2149: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'HoldBothPay' );
2150: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2151: APP_EXCEPTION.RAISE_EXCEPTION;
2152: ELSE
2153: -- Do not need to set the token since it has been done in the
2154: -- child process
2346: WHEN OTHERS THEN
2347: BEGIN
2348: IF ( SQLCODE <> -20001 )
2349: THEN
2350: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2351: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2352: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ObsoleteHold' );
2353: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2354: APP_EXCEPTION.RAISE_EXCEPTION;
2347: BEGIN
2348: IF ( SQLCODE <> -20001 )
2349: THEN
2350: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2351: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2352: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ObsoleteHold' );
2353: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2354: APP_EXCEPTION.RAISE_EXCEPTION;
2355: ELSE
2348: IF ( SQLCODE <> -20001 )
2349: THEN
2350: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2351: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2352: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ObsoleteHold' );
2353: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2354: APP_EXCEPTION.RAISE_EXCEPTION;
2355: ELSE
2356: -- Do not need to set the token since it has been done in the
2349: THEN
2350: FND_MESSAGE.SET_NAME( 'SQLAP', 'AP_DEBUG' );
2351: FND_MESSAGE.SET_TOKEN( 'ERROR', SQLERRM );
2352: FND_MESSAGE.SET_TOKEN( 'CALLING_SEQUENCE', 'ObsoleteHold' );
2353: FND_MESSAGE.SET_TOKEN( 'DEBUG_INFO', l_debug_info );
2354: APP_EXCEPTION.RAISE_EXCEPTION;
2355: ELSE
2356: -- Do not need to set the token since it has been done in the
2357: -- child process