1: PACKAGE BODY CN_IMP_MAPS_PKG AS
2: /* $Header: cntimmpb.pls 115.2 2002/02/05 00:25:55 pkm ship $*/
3:
4:
5: -- * -------------------------------------------------------------------------*
12: -- this procedure. No refernece to sequence in this procedure.
13: -- 2. All paramaters are IN parameter.
14: -- * -------------------------------------------------------------------------*
15: PROCEDURE insert_row
16: ( p_imp_maps_rec IN CN_IMP_MAPS_PVT.IMP_MAPS_REC_TYPE) IS
17:
18: BEGIN
19:
20: INSERT into CN_IMP_MAPS
16: ( p_imp_maps_rec IN CN_IMP_MAPS_PVT.IMP_MAPS_REC_TYPE) IS
17:
18: BEGIN
19:
20: INSERT into CN_IMP_MAPS
21: ( IMP_MAP_ID,
22: NAME,
23: IMPORT_TYPE_CODE,
24: OBJECT_VERSION_NUMBER,
104: -- 3. All paramaters are IN parameter.
105: -- 4. Raise NO_DATA_FOUND exception if no reocrd updated (??)
106: -- * -------------------------------------------------------------------------*
107: PROCEDURE update_row
108: ( p_imp_maps_rec IN CN_IMP_MAPS_PVT.IMP_MAPS_REC_TYPE) IS
109:
110: BEGIN
111:
112: UPDATE CN_IMP_MAPS oldrec
108: ( p_imp_maps_rec IN CN_IMP_MAPS_PVT.IMP_MAPS_REC_TYPE) IS
109:
110: BEGIN
111:
112: UPDATE CN_IMP_MAPS oldrec
113: SET
114: NAME = DECODE(p_imp_maps_rec.NAME,
115: FND_API.G_MISS_CHAR,
116: oldrec.NAME,
207: -- 3. All paramaters are IN parameter.
208: -- 4. Raise NO_DATA_FOUND exception if no reocrd updated (??)
209: -- * -------------------------------------------------------------------------*
210: PROCEDURE lock_update_row
211: ( p_imp_maps_rec IN CN_IMP_MAPS_PVT.IMP_MAPS_REC_TYPE) IS
212:
213: CURSOR c IS
214: SELECT object_version_number
215: FROM CN_IMP_MAPS
211: ( p_imp_maps_rec IN CN_IMP_MAPS_PVT.IMP_MAPS_REC_TYPE) IS
212:
213: CURSOR c IS
214: SELECT object_version_number
215: FROM CN_IMP_MAPS
216: WHERE imp_map_id = p_imp_maps_rec.imp_map_id;
217:
218: tlinfo c%ROWTYPE ;
219: BEGIN
232: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
233: fnd_msg_pub.add;
234: raise fnd_api.g_exc_unexpected_error;
235: end if;
236: UPDATE CN_IMP_MAPS oldrec
237: SET
238: NAME = DECODE(p_imp_maps_rec.NAME,
239: FND_API.G_MISS_CHAR,
240: oldrec.NAME,
335: ) IS
336:
337: BEGIN
338:
339: DELETE FROM CN_IMP_MAPS
340: WHERE imp_map_id = p_imp_map_id;
341:
342: IF (SQL%ROWCOUNT=0) THEN
343: RAISE NO_DATA_FOUND;
345:
346: END Delete_row;
347:
348:
349: END CN_IMP_MAPS_PKG;