70: CLOSE c;
71:
72: EXCEPTION
73: WHEN DUP_VAL_ON_INDEX THEN
74: FND_MESSAGE.SET_NAME('FND', 'FORM_DUPLICATE_KEY_IN_INDEX');
75: APP_EXCEPTION.RAISE_EXCEPTION;
76: WHEN OTHERS THEN
77: IF (SQLCODE <> -20001) THEN
78: FND_MESSAGE.SET_NAME('GHG', 'GHG_DEBUG');
74: FND_MESSAGE.SET_NAME('FND', 'FORM_DUPLICATE_KEY_IN_INDEX');
75: APP_EXCEPTION.RAISE_EXCEPTION;
76: WHEN OTHERS THEN
77: IF (SQLCODE <> -20001) THEN
78: FND_MESSAGE.SET_NAME('GHG', 'GHG_DEBUG');
79: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
80: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', v_debug_info);
81: END IF;
82: APP_EXCEPTION.RAISE_EXCEPTION;
75: APP_EXCEPTION.RAISE_EXCEPTION;
76: WHEN OTHERS THEN
77: IF (SQLCODE <> -20001) THEN
78: FND_MESSAGE.SET_NAME('GHG', 'GHG_DEBUG');
79: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
80: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', v_debug_info);
81: END IF;
82: APP_EXCEPTION.RAISE_EXCEPTION;
83:
76: WHEN OTHERS THEN
77: IF (SQLCODE <> -20001) THEN
78: FND_MESSAGE.SET_NAME('GHG', 'GHG_DEBUG');
79: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
80: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', v_debug_info);
81: END IF;
82: APP_EXCEPTION.RAISE_EXCEPTION;
83:
84: END insert_row;
126:
127: EXCEPTION
128: WHEN OTHERS THEN
129: IF (SQLCODE <> -20001) THEN
130: FND_MESSAGE.SET_NAME('GHG', 'GHG_DEBUG');
131: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
132: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', v_debug_info);
133: END IF;
134: APP_EXCEPTION.RAISE_EXCEPTION;
127: EXCEPTION
128: WHEN OTHERS THEN
129: IF (SQLCODE <> -20001) THEN
130: FND_MESSAGE.SET_NAME('GHG', 'GHG_DEBUG');
131: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
132: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', v_debug_info);
133: END IF;
134: APP_EXCEPTION.RAISE_EXCEPTION;
135:
128: WHEN OTHERS THEN
129: IF (SQLCODE <> -20001) THEN
130: FND_MESSAGE.SET_NAME('GHG', 'GHG_DEBUG');
131: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
132: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', v_debug_info);
133: END IF;
134: APP_EXCEPTION.RAISE_EXCEPTION;
135:
136: END update_row;
218: AND ((recinfo.last_update_date = x_last_update_date) OR (recinfo.last_update_date IS NULL AND x_last_update_date IS NULL))
219: AND ((recinfo.last_update_login = x_last_update_login) OR (recinfo.last_update_login IS NULL AND x_last_update_login IS NULL)) ) THEN
220: NULL;
221: ELSE
222: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
223: APP_EXCEPTION.RAISE_EXCEPTION;
224: END IF;
225:
226: EXCEPTION
226: EXCEPTION
227: WHEN OTHERS THEN
228: IF (SQLCODE <> -20001) THEN
229: IF (SQLCODE = -54) THEN
230: FND_MESSAGE.SET_NAME('GHG', 'GHG_RESOURCE_BUSY');
231: ELSE
232: FND_MESSAGE.SET_NAME('GHG', 'GHG_DEBUG');
233: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
234: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', v_debug_info);
228: IF (SQLCODE <> -20001) THEN
229: IF (SQLCODE = -54) THEN
230: FND_MESSAGE.SET_NAME('GHG', 'GHG_RESOURCE_BUSY');
231: ELSE
232: FND_MESSAGE.SET_NAME('GHG', 'GHG_DEBUG');
233: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
234: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', v_debug_info);
235: END IF;
236: END IF;
229: IF (SQLCODE = -54) THEN
230: FND_MESSAGE.SET_NAME('GHG', 'GHG_RESOURCE_BUSY');
231: ELSE
232: FND_MESSAGE.SET_NAME('GHG', 'GHG_DEBUG');
233: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
234: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', v_debug_info);
235: END IF;
236: END IF;
237: APP_EXCEPTION.RAISE_EXCEPTION;
230: FND_MESSAGE.SET_NAME('GHG', 'GHG_RESOURCE_BUSY');
231: ELSE
232: FND_MESSAGE.SET_NAME('GHG', 'GHG_DEBUG');
233: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
234: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', v_debug_info);
235: END IF;
236: END IF;
237: APP_EXCEPTION.RAISE_EXCEPTION;
238: