[Home] [Help]
1: PACKAGE BODY AMS_List_Rule_Fields_PVT AS
2: /* $Header: amsvrufb.pls 115.11 2003/02/14 23:49:26 gjoby ship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'AMS_List_Rule_Fields_PVT';
5:
1: PACKAGE BODY AMS_List_Rule_Fields_PVT AS
2: /* $Header: amsvrufb.pls 115.11 2003/02/14 23:49:26 gjoby ship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'AMS_List_Rule_Fields_PVT';
5:
6: /*****************************************************************************/
7: -- Procedure: create_list_rule_field
8: --
37: l_rule_fld_count NUMBER;
38:
39: l_list_rule_count NUMBER;
40: CURSOR c_list_rule_field_seq IS
41: SELECT AMS_LIST_RULE_FIELDS_S.NEXTVAL
42: FROM DUAL;
43:
44: CURSOR c_list_rule_field_count(rule_fld_id IN NUMBER) IS
45: SELECT COUNT(*)
42: FROM DUAL;
43:
44: CURSOR c_list_rule_field_count(rule_fld_id IN NUMBER) IS
45: SELECT COUNT(*)
46: FROM AMS_LIST_RULE_FIELDS
47: WHERE list_rule_field_id = rule_fld_id;
48:
49: CURSOR c_list_rule_count(lst_rule_id IN NUMBER) IS
50: SELECT COUNT(*)
137: EXIT WHEN l_rule_fld_count = 0;
138: END LOOP;
139: END IF;
140:
141: INSERT INTO AMS_LIST_RULE_FIELDS
142: (
143: list_rule_field_id,
144: last_update_date,
145: last_updated_by,
325:
326: AMS_Utility_PVT.debug_message(l_full_name||': update');
327: END IF;
328:
329: UPDATE AMS_LIST_RULE_FIELDS SET
330: last_update_date = SYSDATE,
331: last_updated_by = FND_GLOBAL.user_id,
332: last_update_login = FND_GLOBAL.conc_login_id,
333: object_version_number = l_rule_fld_rec.object_version_number + 1,
435: l_list_rule_count NUMBER;
436: l_list_rule_id NUMBER;
437:
438: CURSOR c_list_rule_id(l_lst_rule_field_id IN NUMBER) IS
439: SELECT list_rule_id FROM ams_list_rule_fields
440: WHERE list_rule_field_id=l_lst_rule_field_id;
441:
442:
443:
496:
497: AMS_Utility_PVT.debug_message(l_full_name || ': delete');
498: END IF;
499:
500: DELETE FROM AMS_LIST_RULE_FIELDS
501: WHERE list_rule_field_id = p_rule_fld_id
502: AND object_version_number = p_object_version;
503:
504: IF (SQL%NOTFOUND) THEN
593: l_rule_fld_id NUMBER;
594:
595: CURSOR c_list_rule_field IS
596: SELECT list_rule_field_id
597: FROM AMS_LIST_RULE_FIELDS
598: WHERE list_rule_field_id = p_rule_fld_id
599: AND object_version_number = p_object_version
600: FOR UPDATE OF list_rule_field_id NOWAIT;
601:
1068: AND p_rule_fld_rec.list_rule_field_id IS NOT NULL
1069: THEN
1070: l_uk_flag := AMS_Utility_PVT.check_uniqueness
1071: (
1072: 'AMS_LIST_RULE_FIELDS',
1073: 'list_rule_field_id = ' || p_rule_fld_rec.list_rule_field_id
1074: );
1075: END IF;
1076:
1087: -- check original_word, replacement_word
1088: IF p_rule_fld_rec.list_rule_field_id IS NOT NULL THEN
1089: l_uk_flag := AMS_Utility_PVT.check_uniqueness
1090: (
1091: 'AMS_LIST_RULE_FIELDS',
1092: 'list_rule_field_id <> ' || p_rule_fld_rec.list_rule_field_id
1093: || ' AND list_rule_id = ' || p_rule_fld_rec.list_rule_id
1094: || ' AND field_table_name = ''' || p_rule_fld_rec.field_table_name
1095: || ''' AND field_column_name = ''' || p_rule_fld_rec.field_column_name || ''''
1096: );
1097: ELSE
1098: l_uk_flag := AMS_Utility_PVT.check_uniqueness
1099: (
1100: 'AMS_LIST_RULE_FIELDS',
1101: 'list_rule_id = ' || p_rule_fld_rec.list_rule_id
1102: || ' AND field_table_name = ''' || p_rule_fld_rec.field_table_name
1103: || ''' AND field_column_name = ''' || p_rule_fld_rec.field_column_name || ''''
1104: );
1130: )
1131: IS
1132:
1133: CURSOR c_list_rule_field IS
1134: SELECT * FROM AMS_LIST_RULE_FIELDS
1135: WHERE list_rule_field_id = p_rule_fld_rec.list_rule_field_id;
1136:
1137: l_rule_fld_rec c_list_rule_field%ROWTYPE;
1138:
1215: x_rule_fld_rec.word_replacement_code := FND_API.g_miss_char;
1216:
1217: END init_rec;
1218:
1219: END AMS_List_Rule_Fields_PVT;