[Home] [Help]
1: PACKAGE BODY AMS_List_Word_Replaces_PVT AS
2: /* $Header: amsvwdrb.pls 115.10 2002/11/22 08:56:35 jieli ship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'AMS_List_Word_Replaces_PVT';
5:
1: PACKAGE BODY AMS_List_Word_Replaces_PVT AS
2: /* $Header: amsvwdrb.pls 115.10 2002/11/22 08:56:35 jieli ship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'AMS_List_Word_Replaces_PVT';
5:
6: /*****************************************************************************/
7: -- Procedure: create_list_word_replace
8: --
37: l_wrd_rpl_rec wrd_rpl_rec_type := p_wrd_rpl_rec;
38: l_wrd_rpl_count NUMBER;
39:
40: CURSOR c_list_word_replace_seq IS
41: SELECT AMS_LIST_WORD_REPLACES_S.NEXTVAL
42: FROM DUAL;
43:
44: CURSOR c_list_word_replace_count(wrd_rpl_id IN NUMBER) IS
45: SELECT COUNT(*)
42: FROM DUAL;
43:
44: CURSOR c_list_word_replace_count(wrd_rpl_id IN NUMBER) IS
45: SELECT COUNT(*)
46: FROM AMS_LIST_WORD_REPLACES
47: WHERE list_word_replaces_id = wrd_rpl_id;
48:
49: BEGIN
50: -- initialize
120: EXIT WHEN l_wrd_rpl_count = 0;
121: END LOOP;
122: END IF;
123:
124: INSERT INTO AMS_LIST_WORD_REPLACES
125: (
126: list_word_replaces_id,
127: last_update_date,
128: last_updated_by,
302:
303: AMS_Utility_PVT.debug_message(l_full_name||': update');
304: END IF;
305:
306: UPDATE AMS_LIST_WORD_REPLACES SET
307: last_update_date = SYSDATE,
308: last_updated_by = FND_GLOBAL.user_id,
309: last_update_login = FND_GLOBAL.conc_login_id,
310: object_version_number = l_wrd_rpl_rec.object_version_number + 1,
448:
449: AMS_Utility_PVT.debug_message(l_full_name || ': delete');
450: END IF;
451:
452: DELETE FROM AMS_LIST_WORD_REPLACES
453: WHERE list_word_replaces_id = p_wrd_rpl_id
454: AND object_version_number = p_object_version;
455:
456: IF (SQL%NOTFOUND) THEN
570: l_wrd_rpl_id NUMBER;
571:
572: CURSOR c_list_word_replace IS
573: SELECT list_word_replaces_id
574: FROM AMS_LIST_WORD_REPLACES
575: WHERE list_word_replaces_id = p_wrd_rpl_id
576: AND object_version_number = p_object_version
577: FOR UPDATE OF list_word_replaces_id NOWAIT;
578:
885: -- check list_word_replaces_id
886: IF p_wrd_rpl_rec.list_word_replaces_id IS NULL
887: AND p_validation_mode = JTF_PLSQL_API.g_update THEN
888: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
889: FND_MESSAGE.set_name('AMS', 'AMS_LIST_WORD_REPLACES_NO_ID');
890: FND_MSG_PUB.add;
891: END IF;
892:
893: x_return_status := FND_API.g_ret_sts_error;
980: AND p_wrd_rpl_rec.list_word_replaces_id IS NOT NULL
981: THEN
982: l_uk_flag := AMS_Utility_PVT.check_uniqueness
983: (
984: 'AMS_LIST_WORD_REPLACES',
985: 'list_word_replaces_id = ' || p_wrd_rpl_rec.list_word_replaces_id
986: );
987: END IF;
988:
987: END IF;
988:
989: IF l_uk_flag = FND_API.g_false THEN
990: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
991: FND_MESSAGE.set_name('AMS', 'AMS_LIST_WORD_REPLACES_NO_ID');
992: FND_MSG_PUB.add;
993: END IF;
994:
995: x_return_status := FND_API.g_ret_sts_error;
999: -- check original_word, replacement_word
1000: IF p_wrd_rpl_rec.list_word_replaces_id IS NOT NULL THEN
1001: l_uk_flag := AMS_Utility_PVT.check_uniqueness
1002: (
1003: 'AMS_LIST_WORD_REPLACES',
1004: 'list_word_replaces_id <> ' || p_wrd_rpl_rec.list_word_replaces_id
1005: || ' AND original_word = ''' || p_wrd_rpl_rec.original_word
1006: || ''' AND replacement_word = ''' || p_wrd_rpl_rec.replacement_word || ''''
1007: );
1007: );
1008: ELSE
1009: l_uk_flag := AMS_Utility_PVT.check_uniqueness
1010: (
1011: 'AMS_LIST_WORD_REPLACES',
1012: 'original_word = ''' || p_wrd_rpl_rec.original_word
1013: ||''' AND replacement_word = ''' || p_wrd_rpl_rec.replacement_word || ''''
1014: );
1015: END IF;
1040: )
1041: IS
1042:
1043: CURSOR c_list_word_replace IS
1044: SELECT * FROM AMS_LIST_WORD_REPLACES
1045: WHERE list_word_replaces_id = p_wrd_rpl_rec.list_word_replaces_id;
1046:
1047: l_wrd_rpl_rec c_list_word_replace%ROWTYPE;
1048:
1108: x_wrd_rpl_rec.enabled_flag := FND_API.g_miss_char;
1109: x_wrd_rpl_rec.description := FND_API.g_miss_char;
1110:
1111: END init_rec;
1112: END AMS_List_Word_Replaces_PVT;