[Home] [Help]
1: PACKAGE BODY EGO_DATA_SECURITY AS
2: /* $Header: EGOPFDSB.pls 120.27 2007/11/05 07:01:30 vkeerthi ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'EGO_DATA_SECURITY';
5: G_LOG_HEAD CONSTANT VARCHAR2(40):= 'fnd.plsql.ego.EGO_DATA_SECURITY.';
1: PACKAGE BODY EGO_DATA_SECURITY AS
2: /* $Header: EGOPFDSB.pls 120.27 2007/11/05 07:01:30 vkeerthi ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'EGO_DATA_SECURITY';
5: G_LOG_HEAD CONSTANT VARCHAR2(40):= 'fnd.plsql.ego.EGO_DATA_SECURITY.';
6: G_TYPE_SET CONSTANT VARCHAR2(30):= 'SET';
7: G_TYPE_INSTANCE CONSTANT VARCHAR2(30):= 'INSTANCE';
8: G_TYPE_UNIVERSAL CONSTANT VARCHAR2(30):= 'UNIVERSAL';
1: PACKAGE BODY EGO_DATA_SECURITY AS
2: /* $Header: EGOPFDSB.pls 120.27 2007/11/05 07:01:30 vkeerthi ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'EGO_DATA_SECURITY';
5: G_LOG_HEAD CONSTANT VARCHAR2(40):= 'fnd.plsql.ego.EGO_DATA_SECURITY.';
6: G_TYPE_SET CONSTANT VARCHAR2(30):= 'SET';
7: G_TYPE_INSTANCE CONSTANT VARCHAR2(30):= 'INSTANCE';
8: G_TYPE_UNIVERSAL CONSTANT VARCHAR2(30):= 'UNIVERSAL';
9:
3809:
3810: if ((lengthb(l_aggregate_predicate) > g_vpd_buf_limit)
3811: AND (p_statement_type = 'BASE')) then
3812: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
3813: FND_MESSAGE.SET_TOKEN('ROUTINE', 'EGO_DATA_SECURITY.GET_SECURITY_PREDICATE');
3814: FND_MESSAGE.SET_TOKEN('REASON',
3815: 'The predicate was longer than the database VPD limit of '||
3816: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
3817: x_return_status := 'L'; /* Indicate Error */
4297: if ((lengthb(l_aggregate_predicate) > g_vpd_buf_limit)
4298: AND (p_statement_type = 'BASE'))then
4299: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
4300: FND_MESSAGE.SET_TOKEN('ROUTINE',
4301: 'EGO_DATA_SECURITY.GET_SECURITY_PREDICATE');
4302: FND_MESSAGE.SET_TOKEN('REASON',
4303: 'The predicate was longer than the database VPD limit of '||
4304: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
4305: x_return_status := 'L'; /* Indicate Error */
4782:
4783: if ( (lengthb(l_aggregate_predicate) > g_vpd_buf_limit)
4784: AND (p_statement_type = 'BASE'))then
4785: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
4786: FND_MESSAGE.SET_TOKEN('ROUTINE','EGO_DATA_SECURITY.GET_SECURITY_PREDICATE');
4787: FND_MESSAGE.SET_TOKEN('REASON',
4788: 'The predicate was longer than the database VPD limit of '||
4789: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
4790: x_return_status := 'L'; /* Indicate Error */
4844: IS
4845: BEGIN
4846: --null;
4847:
4848: EGO_DATA_SECURITY.get_inherited_predicate
4849: (
4850: p_api_version => p_api_version,
4851: p_function => p_function,
4852: p_object_name => p_object_name,
4896: ) IS
4897: l_clob_predicate CLOB;
4898: BEGIN
4899:
4900: EGO_DATA_SECURITY.get_inherited_predicate
4901: (
4902: p_api_version => p_api_version,
4903: p_function => p_function,
4904: p_object_name => p_object_name,
5636: if (p_statement_type = 'EXISTS') then
5637: l_parent_predicate := l_parent_predicate ||
5638: ' WHERE grants.INSTANCE_PK1_VALUE=to_char('|| p_parent_obj_pk1alias_tbl(l_table_index)||')';
5639:
5640: --dbms_output.put_line('EGO_DATA_SECURITY: l_table_index ' || l_table_index);
5641:
5642: --dbms_output.put_line('EGO_DATA_SECURITY: p_parent_obj_pk2alias_tbl ' || p_parent_obj_pk2alias_tbl(l_table_index));
5643: IF (p_parent_obj_pk2alias_tbl IS NOT NULL AND
5644: p_parent_obj_pk2alias_tbl.exists(l_table_index)) THEN
5638: ' WHERE grants.INSTANCE_PK1_VALUE=to_char('|| p_parent_obj_pk1alias_tbl(l_table_index)||')';
5639:
5640: --dbms_output.put_line('EGO_DATA_SECURITY: l_table_index ' || l_table_index);
5641:
5642: --dbms_output.put_line('EGO_DATA_SECURITY: p_parent_obj_pk2alias_tbl ' || p_parent_obj_pk2alias_tbl(l_table_index));
5643: IF (p_parent_obj_pk2alias_tbl IS NOT NULL AND
5644: p_parent_obj_pk2alias_tbl.exists(l_table_index)) THEN
5645: --dbms_output.put_line('EGO_DATA_SECURITY: p_parent_obj_pk2alias_tbl in if statement');
5646: l_parent_predicate := l_parent_predicate ||
5641:
5642: --dbms_output.put_line('EGO_DATA_SECURITY: p_parent_obj_pk2alias_tbl ' || p_parent_obj_pk2alias_tbl(l_table_index));
5643: IF (p_parent_obj_pk2alias_tbl IS NOT NULL AND
5644: p_parent_obj_pk2alias_tbl.exists(l_table_index)) THEN
5645: --dbms_output.put_line('EGO_DATA_SECURITY: p_parent_obj_pk2alias_tbl in if statement');
5646: l_parent_predicate := l_parent_predicate ||
5647: ' AND grants.INSTANCE_PK2_VALUE= to_char('|| p_parent_obj_pk2alias_tbl(l_table_index)||')';
5648: END IF;
5649:
5803: if ( (lengthb(l_aggregate_predicate) > g_vpd_buf_limit)
5804: AND (p_statement_type = 'BASE'))then
5805: FND_MESSAGE.SET_NAME('FND', 'GENERIC-INTERNAL ERROR');
5806: FND_MESSAGE.SET_TOKEN('ROUTINE',
5807: 'EGO_DATA_SECURITY.GET_SECURITY_PREDICATE');
5808: FND_MESSAGE.SET_TOKEN('REASON',
5809: 'The predicate was longer than the database VPD limit of '||
5810: to_char(g_vpd_buf_limit)||' bytes for the predicate. ');
5811: x_return_status := 'L'; /* Indicate Error */
8125: RETURN G_RETURN_UNEXP_ERR;
8126: END check_inherited_function;
8127:
8128: ----------------------------------------------------------------
8129: END EGO_DATA_SECURITY;