[Home] [Help]
41: l_object_version_number NUMBER := 1;
42: l_uniqueness_check pls_integer;
43:
44: CURSOR lc_get_next_seq IS
45: SELECT pv_channel_types_s.NEXTVAL FROM DUAL;
46:
47: CURSOR lc_chk_exists(pc_lookup_type varchar2,
48: pc_lookup_code varchar2) is
49: SELECT 1 FROM PV_CHANNEL_TYPES
45: SELECT pv_channel_types_s.NEXTVAL FROM DUAL;
46:
47: CURSOR lc_chk_exists(pc_lookup_type varchar2,
48: pc_lookup_code varchar2) is
49: SELECT 1 FROM PV_CHANNEL_TYPES
50: WHERE channel_lookup_type = pc_lookup_type
51: and channel_lookup_code = pc_lookup_code;
52:
53: BEGIN
98: end if;
99:
100: END IF;
101:
102: INSERT INTO PV_CHANNEL_TYPES (
103: CHANNEL_TYPE_ID,
104: CHANNEL_LOOKUP_TYPE,
105: CHANNEL_LOOKUP_CODE,
106: INDIRECT_CHANNEL_FLAG,
234:
235: END IF;
236:
237:
238: DELETE FROM PV_channel_types
239: WHERE channel_type_id = p_channel_type_id
240: AND object_version_number = p_object_version;
241:
242: IF (SQL%NOTFOUND) THEN
319: l_indirect_channel_flag VARCHAR2(20);
320:
321: CURSOR lc_seed_chk(pc_channel_type_id NUMBER) IS
322: SELECT indirect_channel_flag
323: FROM pv_channel_types
324: WHERE channel_type_id = pc_channel_type_id;
325:
326: BEGIN
327:
379: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
380: PVX_Utility_PVT.debug_message(l_full_name ||': update');
381: END IF;
382:
383: UPDATE PV_CHANNEL_TYPES
384: SET
385: last_update_date = SYSDATE
386: ,last_updated_by = NVL(FND_GLOBAL.user_id,-1)
387: ,last_update_login = NVL(FND_GLOBAL.conc_login_id,-1)
467: IS
468:
469: CURSOR lc_get_channel_type IS
470: SELECT *
471: FROM PV_CHANNEL_TYPES
472: WHERE channel_type_id = p_channel_type_rec.channel_type_id;
473:
474: l_channel_type_rec lc_get_channel_type%ROWTYPE;
475: