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);
1456: EXCEPTION
1457: WHEN OTHERS THEN
1458: --
1459: IF (SQLCODE <> -20001 ) THEN
1460: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1461: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1462: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1463: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1464: END IF;
1457: WHEN OTHERS THEN
1458: --
1459: IF (SQLCODE <> -20001 ) THEN
1460: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1461: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1462: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1463: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1464: END IF;
1465: --
1458: --
1459: IF (SQLCODE <> -20001 ) THEN
1460: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1461: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1462: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1463: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1464: END IF;
1465: --
1466: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1459: IF (SQLCODE <> -20001 ) THEN
1460: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1461: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1462: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1463: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1464: END IF;
1465: --
1466: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1467: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,SQLERRM);
1912:
1913: EXCEPTION
1914: WHEN OTHERS THEN
1915: IF (SQLCODE <> -20001 ) THEN
1916: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1917: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1918: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1919: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1920: END IF;
1913: EXCEPTION
1914: WHEN OTHERS THEN
1915: IF (SQLCODE <> -20001 ) THEN
1916: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1917: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1918: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1919: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1920: END IF;
1921: --
1914: WHEN OTHERS THEN
1915: IF (SQLCODE <> -20001 ) THEN
1916: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1917: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1918: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1919: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1920: END IF;
1921: --
1922: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1915: IF (SQLCODE <> -20001 ) THEN
1916: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
1917: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
1918: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence);
1919: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
1920: END IF;
1921: --
1922: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1923: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,SQLERRM);
2178: FOR I IN 1..l_pa_msg_count
2179: LOOP
2180: l_pa_error_msg := FND_MSG_PUB.Get(p_msg_index => I,
2181: p_encoded => 'T');
2182: FND_MESSAGE.Set_Encoded(l_pa_error_msg);
2183: END LOOP;
2184: END IF;
2185: --
2186: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2253: FOR I IN 1..l_pa_msg_count
2254: LOOP
2255: l_pa_error_msg := FND_MSG_PUB.Get(p_msg_index => I,
2256: p_encoded => 'T');
2257: FND_MESSAGE.Set_Encoded(l_pa_error_msg);
2258: END LOOP;
2259: END IF;
2260: --
2261: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2500: FOR I IN 1..l_pa_msg_count
2501: LOOP
2502: l_pa_error_msg := FND_MSG_PUB.Get(p_msg_index => I,
2503: p_encoded => 'T');
2504: FND_MESSAGE.Set_Encoded(l_pa_error_msg);
2505: END LOOP;
2506: END IF;
2507: --
2508: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2531: FOR I IN 1..l_msg_count
2532: LOOP
2533: l_error_msg := FND_MSG_PUB.Get(p_msg_index => I,
2534: p_encoded => 'T');
2535: FND_MESSAGE.Set_Encoded(l_error_msg);
2536: END LOOP;
2537: END IF;
2538: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2539: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2534: p_encoded => 'T');
2535: FND_MESSAGE.Set_Encoded(l_error_msg);
2536: END LOOP;
2537: END IF;
2538: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2539: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2540: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2541: ||',P_bt_code: '||P_bt_code);
2542: --
2535: FND_MESSAGE.Set_Encoded(l_error_msg);
2536: END LOOP;
2537: END IF;
2538: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2539: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2540: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2541: ||',P_bt_code: '||P_bt_code);
2542: --
2543: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2536: END LOOP;
2537: END IF;
2538: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2539: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2540: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2541: ||',P_bt_code: '||P_bt_code);
2542: --
2543: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2544: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'FA_API_ERROR');
2545: END IF;
2546: --
2547: WHEN OTHERS THEN
2548: IF (SQLCODE <> -20001 ) THEN
2549: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2550: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
2551: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2552: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
2553: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2546: --
2547: WHEN OTHERS THEN
2548: IF (SQLCODE <> -20001 ) THEN
2549: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2550: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
2551: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2552: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
2553: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2554: ||',P_bt_code: '||P_bt_code);
2547: WHEN OTHERS THEN
2548: IF (SQLCODE <> -20001 ) THEN
2549: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2550: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
2551: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2552: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
2553: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2554: ||',P_bt_code: '||P_bt_code);
2555: END IF;
2548: IF (SQLCODE <> -20001 ) THEN
2549: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2550: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
2551: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2552: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
2553: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2554: ||',P_bt_code: '||P_bt_code);
2555: END IF;
2556: --
2549: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
2550: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM );
2551: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',l_current_calling_sequence );
2552: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', l_debug_info );
2553: FND_MESSAGE.SET_TOKEN('PARAMETERS','P_acctg_date: '||P_acctg_date
2554: ||',P_bt_code: '||P_bt_code);
2555: END IF;
2556: --
2557: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2557: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2558: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,SQLERRM);
2559: END IF;
2560: --
2561: errbuf := FND_MESSAGE.GET;
2562: retcode := 2;
2563: --
2564: END Mass_Additions_Create;
2565: --