67: EXCEPTION
68: WHEN OTHERS THEN
69: --
70: IF (SQLCODE <> -20001 ) THEN
71: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
72: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
73: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
74: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
75: END IF;
68: WHEN OTHERS THEN
69: --
70: IF (SQLCODE <> -20001 ) THEN
71: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
72: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
73: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
74: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
75: END IF;
76: --
69: --
70: IF (SQLCODE <> -20001 ) THEN
71: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
72: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
73: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
74: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
75: END IF;
76: --
77: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
70: IF (SQLCODE <> -20001 ) THEN
71: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
72: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
73: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
74: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
75: END IF;
76: --
77: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
78: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name, SQLERRM);
169: EXCEPTION
170: WHEN OTHERS THEN
171: --
172: IF (SQLCODE <> -20001 ) THEN
173: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
174: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
175: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
176: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
177: END IF;
170: WHEN OTHERS THEN
171: --
172: IF (SQLCODE <> -20001 ) THEN
173: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
174: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
175: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
176: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
177: END IF;
178: --
171: --
172: IF (SQLCODE <> -20001 ) THEN
173: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
174: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
175: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
176: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
177: END IF;
178: --
179: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
172: IF (SQLCODE <> -20001 ) THEN
173: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
174: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
175: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
176: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
177: END IF;
178: --
179: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
180: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name, SQLERRM);
220: EXCEPTION
221: WHEN OTHERS THEN
222: --
223: IF (SQLCODE <> -20001 ) THEN
224: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
225: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
226: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
227: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
228: END IF;
221: WHEN OTHERS THEN
222: --
223: IF (SQLCODE <> -20001 ) THEN
224: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
225: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
226: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
227: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
228: END IF;
229: --
222: --
223: IF (SQLCODE <> -20001 ) THEN
224: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
225: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
226: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
227: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
228: END IF;
229: --
230: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
223: IF (SQLCODE <> -20001 ) THEN
224: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
225: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
226: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
227: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
228: END IF;
229: --
230: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
231: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,SQLERRM);
1085: EXCEPTION
1086: WHEN OTHERS THEN
1087: --
1088: IF (SQLCODE <> -20001 ) THEN
1089: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1090: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1091: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1092: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1093: END IF;
1086: WHEN OTHERS THEN
1087: --
1088: IF (SQLCODE <> -20001 ) THEN
1089: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1090: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1091: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1092: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1093: END IF;
1094: --
1087: --
1088: IF (SQLCODE <> -20001 ) THEN
1089: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1090: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1091: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1092: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1093: END IF;
1094: --
1095: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1088: IF (SQLCODE <> -20001 ) THEN
1089: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1090: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1091: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1092: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1093: END IF;
1094: --
1095: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1096: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,SQLERRM);
1498:
1499: EXCEPTION
1500: WHEN OTHERS THEN
1501: IF (SQLCODE <> -20001 ) THEN
1502: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1503: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1504: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1505: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1506: END IF;
1499: EXCEPTION
1500: WHEN OTHERS THEN
1501: IF (SQLCODE <> -20001 ) THEN
1502: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1503: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1504: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1505: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1506: END IF;
1507: --
1500: WHEN OTHERS THEN
1501: IF (SQLCODE <> -20001 ) THEN
1502: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1503: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1504: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1505: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1506: END IF;
1507: --
1508: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1501: IF (SQLCODE <> -20001 ) THEN
1502: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1503: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1504: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1505: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1506: END IF;
1507: --
1508: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1509: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,SQLERRM);
1732: FOR I IN 1..l_pa_msg_count
1733: LOOP
1734: l_pa_error_msg := FND_MSG_PUB.Get(p_msg_index => I,
1735: p_encoded => 'T');
1736: FND_MESSAGE.Set_Encoded(l_pa_error_msg);
1737: END LOOP;
1738: END IF;
1739: --
1740: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1862: FOR I IN 1..l_pa_msg_count
1863: LOOP
1864: l_pa_error_msg := FND_MSG_PUB.Get(p_msg_index => I,
1865: p_encoded => 'T');
1866: FND_MESSAGE.Set_Encoded(l_pa_error_msg);
1867: END LOOP;
1868: END IF;
1869: --
1870: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1952: FOR I IN 1..l_pa_msg_count
1953: LOOP
1954: l_pa_error_msg := FND_MSG_PUB.Get(p_msg_index => I,
1955: p_encoded => 'T');
1956: FND_MESSAGE.Set_Encoded(l_pa_error_msg);
1957: END LOOP;
1958: END IF;
1959: --
1960: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2079: FOR I IN 1..l_pa_msg_count
2080: LOOP
2081: l_pa_error_msg := FND_MSG_PUB.Get(p_msg_index => I,
2082: p_encoded => 'T');
2083: FND_MESSAGE.Set_Encoded(l_pa_error_msg);
2084: END LOOP;
2085: END IF;
2086: --
2087: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2110: FOR I IN 1..l_msg_count
2111: LOOP
2112: l_error_msg := FND_MSG_PUB.Get(p_msg_index => I,
2113: p_encoded => 'T');
2114: FND_MESSAGE.Set_Encoded(l_error_msg);
2115: END LOOP;
2116: END IF;
2117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2118: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2113: p_encoded => 'T');
2114: FND_MESSAGE.Set_Encoded(l_error_msg);
2115: END LOOP;
2116: END IF;
2117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2118: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2119: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2120: ||',P_bt_code: '||P_bt_code);
2121: --
2114: FND_MESSAGE.Set_Encoded(l_error_msg);
2115: END LOOP;
2116: END IF;
2117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2118: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2119: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2120: ||',P_bt_code: '||P_bt_code);
2121: --
2122: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2115: END LOOP;
2116: END IF;
2117: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2118: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2119: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2120: ||',P_bt_code: '||P_bt_code);
2121: --
2122: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2123: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'FA_API_ERROR');
2124: END IF;
2125: --
2126: WHEN OTHERS THEN
2127: IF (SQLCODE <> -20001 ) THEN
2128: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2129: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
2130: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2131: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
2132: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2125: --
2126: WHEN OTHERS THEN
2127: IF (SQLCODE <> -20001 ) THEN
2128: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2129: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
2130: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2131: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
2132: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2133: ||',P_bt_code: '||P_bt_code);
2126: WHEN OTHERS THEN
2127: IF (SQLCODE <> -20001 ) THEN
2128: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2129: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
2130: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2131: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
2132: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2133: ||',P_bt_code: '||P_bt_code);
2134: END IF;
2127: IF (SQLCODE <> -20001 ) THEN
2128: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2129: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
2130: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2131: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
2132: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2133: ||',P_bt_code: '||P_bt_code);
2134: END IF;
2135: --
2128: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2129: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
2130: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2131: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
2132: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2133: ||',P_bt_code: '||P_bt_code);
2134: END IF;
2135: --
2136: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2136: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2137: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,SQLERRM);
2138: END IF;
2139: --
2140: errbuf := FND_MESSAGE.GET;
2141: retcode := 2;
2142: --
2143: END Mass_Additions_Create;
2144: --