The following lines contain the word 'select', 'insert', 'update' or 'delete':
bis_vg_log.update_failure_log( x_error_tbl
, x_return_status
, x_error_Tbl
);
bis_vg_log.update_failure_log( x_error_tbl
, x_return_status
, x_error_Tbl
);
bis_vg_log.update_failure_log( x_error_tbl
, x_return_status
, x_error_Tbl
);
bis_vg_log.update_failure_log( x_error_tbl
, x_return_status
, x_error_Tbl
);
select 1
from fnd_application_all_view
where application_short_name = p_app;
PROCEDURE parse_KF_Select_Line
( p_View_Select_Table IN bis_vg_types.View_Text_Table_Type
, p_Select_Pointer IN bis_vg_types.View_Character_Pointer_Type
, x_Select_Pointer OUT bis_vg_types.View_Character_Pointer_Type
, x_PLSQL_Expression OUT VARCHAR2
, x_Application_Name OUT VARCHAR2
, x_Key_Flex_Code OUT VARCHAR2
, x_Table_Alias OUT VARCHAR2
, x_Structure_Column OUT VARCHAR2
, x_DUMMY_flag OUT BOOLEAN --EDW flag change
, x_return_status OUT VARCHAR2
, x_error_Tbl OUT BIS_VG_UTIL.Error_Tbl_Type
)
IS
--
l_token VARCHAR2(100);
bis_debug_pub.Add('> parse_KF_Select_Line');
l_message_token := bis_vg_parser.get_expression( p_View_Select_Table
, p_Select_Pointer
, l_tmp_pointer
, x_return_status
, x_error_Tbl
);
( p_View_Select_Table
, l_tmp_pointer
, x_return_status
, x_error_Tbl
);
( p_View_Select_Table
, p_Select_Pointer
, ':'''
, x_Select_Pointer
, x_return_status
, x_error_Tbl
);
, x_select_pointer
, x_return_status
, x_error_Tbl
)
THEN
raise MALFORMED_KFX_SEL_TAG_NO_FIELD;
( p_View_Select_Table
, x_Select_Pointer
, ':'''
, x_Select_Pointer
, x_return_status
, x_error_Tbl
);
, x_select_pointer
, x_return_status
, x_error_Tbl
)
) THEN
raise MALFORMED_KFX_SEL_TAG_NO_FIELD;
( p_View_Select_Table
, x_Select_Pointer
, ':'
, x_Select_Pointer
, x_return_status
, x_error_Tbl
);
( p_View_Select_Table
, x_Select_Pointer
, x_Select_Pointer
, x_return_status
, x_error_Tbl
);
, p_error_proc_name => G_PKG_NAME||'.parse_DF_Select_Line'
, p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
, p_token1 => 'tag'
, p_value1 => l_message_token
, p_token2 => 'app'
, p_value2 => x_Application_Name
, p_error_table => x_error_tbl
, x_error_table => x_error_tbl
);
bis_vg_log.update_failure_log( x_error_tbl
, x_return_status
, x_error_Tbl
);
( p_View_Select_Table
, x_Select_Pointer
, ':'''
, x_Select_Pointer
, x_return_status
, x_error_Tbl
);
, x_select_pointer
, x_return_status
, x_error_Tbl
)
) THEN
--
raise MALFORMED_KFX_SEL_TAG_NO_FIELD;
( p_View_Select_Table
, x_Select_Pointer
, ':'''
, x_Select_Pointer
, x_return_status
, x_error_Tbl
);
IF(bis_vg_util.get_char( p_View_Select_Table
, x_Select_Pointer
, x_return_status
, x_error_Tbl
) = ':') THEN
x_Select_Pointer := bis_vg_util.increment_pointer
( p_View_Select_Table
, x_Select_Pointer
, x_return_status
, x_error_Tbl
);
( p_View_Select_Table
, x_Select_Pointer
, ':'''
, x_Select_Pointer
, x_return_status
, x_error_Tbl
);
x_Select_Pointer := bis_vg_util.increment_pointer
( p_View_Select_Table
, x_Select_Pointer
, x_return_status
, x_error_Tbl
);
bis_debug_pub.Add('< parse_KF_Select_Line');
, p_error_proc_name => G_PKG_NAME||'.parse_KF_Select_Line'
, p_error_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR
, p_token1 => 'tag'
, p_value1 => l_message_token
, p_error_table => x_error_tbl
, x_error_table => x_error_tbl
);
bis_vg_log.update_failure_log( x_error_tbl
, x_return_status
, x_error_Tbl
);
, p_error_proc_name => G_PKG_NAME||'.parse_KF_Select_Line'
, p_error_table => x_error_tbl
, x_error_table => x_error_tbl
);
bis_vg_log.update_failure_log( x_error_tbl
, x_return_status
, x_error_Tbl
);
END parse_KF_Select_Line;
, x_Select_Table OUT bis_vg_types.View_Text_Table_Type
, x_Column_Comment_Table OUT BIS_VG_TYPES.Flex_Column_Comment_Table_Type
, x_return_status OUT VARCHAR2
, x_error_Tbl OUT BIS_VG_UTIL.Error_Tbl_Type
)
IS
--
l_Segment_List FND_FLEX_KEY_API.SEGMENT_LIST;
x_Select_Table(1) := ' ';
x_Select_Table(i) := ', NULL' ;
x_Select_Table(i) := ', '
|| 'DECODE( ' || p_Table_Alias
|| '.'
|| p_flexfield.structure_column
|| ', '
|| p_structure.structure_number
|| ','
|| p_Table_Alias || '.' ||l_Segment.column_name
|| ', NULL' || ')';
x_Select_Table(i) := ', ' || p_Table_Alias
|| '.' || l_Segment.column_name;
bis_vg_log.update_failure_log( x_error_tbl
, x_return_status
, x_error_Tbl
);
, x_Select_Table OUT bis_vg_types.View_Text_Table_Type
, x_return_status OUT VARCHAR2
, x_error_Tbl OUT BIS_VG_UTIL.Error_Tbl_Type
)
IS
--
l_Segment_List FND_FLEX_KEY_API.SEGMENT_LIST;
x_Select_Table(x_select_table.COUNT +1 ) :=
lpad(' ',p_pad_count)|| p_Structure.structure_number || ', ';
x_Select_Table(x_select_table.COUNT +1 ) := lpad(' ',p_pad_count) || p_Table_Alias || '.' || l_Segment.column_name;
x_select_table(x_select_table.COUNT+1) := Lpad(' ',p_pad_count+2);
x_Select_Table(x_select_table.COUNT) :=
x_Select_Table(x_select_table.COUNT)
||' || '''
|| p_Structure.segment_separator
|| ''' || '
|| p_Table_Alias || '.'
|| l_Segment.column_name;
bis_vg_log.update_failure_log( x_error_tbl
, x_return_status
, x_error_Tbl
);
PROCEDURE update_Key_Flex_Tables
( p_Concat_Seg_Name IN VARCHAR2
, p_Concat_Segment_Flag IN BOOLEAN
, p_decode_on_segments IN BOOLEAN
, p_EDW_Flag IN BOOLEAN
, p_dummy_flag IN BOOLEAN
, p_column_table IN BIS_VG_TYPES.flexfield_column_table_type
, p_Prefix IN VARCHAR2
, p_PLSQL_Expression IN VARCHAR2
, p_Application_Name IN VARCHAR2
, p_Key_Flex_Code IN VARCHAR2
, p_Table_Alias IN VARCHAR2
, p_Structure_Column IN VARCHAR2
, x_Column_Table OUT bis_vg_types.View_Text_Table_Type
, x_Select_Table OUT bis_vg_types.View_Text_Table_Type
, x_Column_Comment_Table OUT BIS_VG_TYPES.Flex_Column_Comment_Table_Type
, x_return_status OUT VARCHAR2
, x_error_Tbl OUT BIS_VG_UTIL.Error_Tbl_Type
)
IS
--
--
l_Flexfield FND_FLEX_KEY_API.FLEXFIELD_TYPE;
l_Select_Table bis_vg_types.View_Text_Table_Type;
bis_debug_pub.Add('> update_Key_Flex_Tables');
, x_Select_Table
, x_return_status
, x_error_tbl
);
, x_Select_Table
, x_return_status
, x_error_Tbl
);
x_Select_Table(x_Select_Table.COUNT + 1) := 'TO_NUMBER(NULL),';
x_Select_Table(x_Select_Table.COUNT + 1) := p_Table_Alias
|| '.'
|| l_Flexfield.structure_column
|| ', ';
x_Select_Table(x_Select_Table.COUNT + 1) := 'NULL';
x_Select_Table(x_Select_Table.COUNT + 1) := ' DECODE( ' || p_Table_Alias
|| '.'
|| l_Flexfield.structure_column;
x_Select_Table(x_Select_Table.COUNT + 1) := lpad(' ',7*l_decode_counter)
||', DECODE( ' || p_Table_Alias
|| '.'
|| l_Flexfield.structure_column;
, l_Select_Table
, x_return_status
, x_error_Tbl
);
IF l_select_table.COUNT > 0 THEN
IF (l_nstructures > 1 OR i > 1)THEN
x_Select_Table(x_Select_Table.COUNT + 1) :=
lpad(', ', 1 + (l_decode_counter * 8));
bis_vg_util.concatenate_Tables( x_Select_Table
, l_Select_Table
, x_Select_Table
, x_return_status
, x_error_Tbl
);
IF(x_Select_Table.COUNT = 1) THEN
-- seems like none of the structures had any segments defined
-- hence add a NULL pair to make decode compile
x_Select_Table(2) := ' , NULL, NULL';
x_Select_Table(x_Select_Table.COUNT+1) := lpad(', NULL'
,l_decode_counter*8 + 5
);
x_Select_Table(x_Select_Table.COUNT+1) := lpad(')'
,i*8
);
, l_Select_Table
, l_Column_Comment_Table
, x_return_status
, x_error_Tbl
);
bis_vg_util.concatenate_Tables(x_Select_Table
, l_Select_Table
, x_Select_Table
, x_return_status
, x_error_Tbl
);
x_select_table(l_count) := ', NULL';
x_select_table(l_count) := ' , '
|| p_table_alias
|| '.'
|| p_column_table(i).application_column_name;
x_Select_Table(1) := 'TO_NUMBER(NULL)';
x_Select_Table(1) := p_Table_Alias
|| '.'
|| l_Flexfield.structure_column;
( x_Select_Table
, x_return_status
, x_error_Tbl
);
bis_debug_pub.Add('< update_Key_Flex_Tables');
IF (x_select_table.COUNT = 0) THEN
x_select_table(1) := 'NULL';
, p_error_proc_name => G_PKG_NAME||'.update_Key_Flex_Tables'
, p_error_table => x_error_tbl
, x_error_table => x_error_tbl
);
bis_vg_log.update_failure_log( x_error_tbl
, x_return_status
, x_error_Tbl
);
END update_Key_Flex_Tables;
, p_View_Select_Table IN bis_vg_types.View_Text_Table_Type
, p_Mode IN NUMBER
, p_column_table IN BIS_VG_TYPES.flexfield_column_table_type
, p_Column_Pointer IN bis_vg_types.View_Character_Pointer_Type
, p_Select_Pointer IN bis_vg_types.View_Character_Pointer_Type
, p_From_Pointer IN bis_vg_types.View_Character_Pointer_Type
, x_Column_Table OUT bis_vg_types.View_Text_Table_Type
, x_Select_Table OUT bis_vg_types.View_Text_Table_Type
, x_Column_Comment_Table OUT BIS_VG_TYPES.Flex_Column_Comment_Table_Type
, x_Column_Pointer OUT bis_vg_types.View_Character_Pointer_Type
, x_Select_Pointer OUT bis_vg_types.View_Character_Pointer_Type
, x_return_status OUT VARCHAR2
, x_error_Tbl OUT BIS_VG_UTIL.Error_Tbl_Type
)
IS
--
l_Concat_Seg_Name VARCHAR2(100);
parse_KF_Select_Line( p_View_Select_Table
, p_Select_Pointer
, x_Select_Pointer
, l_PLSQL_Expression
, l_Application_Name
, l_Key_Flex_Code
, l_Table_Alias
, l_Structure_Column
, l_DUMMY_Flag ---EDW flag change
, x_return_status
, x_error_Tbl
);
update_Key_Flex_Tables(l_Concat_Seg_Name
, l_Concat_Segment_Flag
, l_decode_on_segments
, l_EDW_flag
, l_dummy_flag
, p_column_table
, l_prefix
, l_PLSQL_Expression
, l_Application_Name
, l_Key_Flex_Code
, l_Table_Alias
, l_Structure_Column
, x_Column_Table
, x_Select_Table
, x_Column_Comment_Table
, x_return_status
, x_error_Tbl
);
bis_debug_pub.Add('SELECT POINTER');
bis_vg_util.print_View_Pointer( x_Select_Pointer
, x_return_status
, x_error_Tbl
);
bis_vg_util.print_View_Text(x_Select_Table, x_return_status, x_error_Tbl);
bis_vg_log.update_failure_log( x_error_tbl
, x_return_status
, x_error_Tbl
);