60:
61:
62:
63: BEGIN
64: -- Leave starting poing of this procedure at fnd_log_message
65: l_stmt_num := 0;
66: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
67: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
68: ,G_PKG_NAME||'.'||l_api_name
62:
63: BEGIN
64: -- Leave starting poing of this procedure at fnd_log_message
65: l_stmt_num := 0;
66: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
67: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
68: ,G_PKG_NAME||'.'||l_api_name
69: ,'Enter '||G_PKG_NAME||'.'||l_api_name||' '
70: ||to_char(sysdate, 'dd-mon-yyyy hh:mi:ss') );
63: BEGIN
64: -- Leave starting poing of this procedure at fnd_log_message
65: l_stmt_num := 0;
66: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
67: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
68: ,G_PKG_NAME||'.'||l_api_name
69: ,'Enter '||G_PKG_NAME||'.'||l_api_name||' '
70: ||to_char(sysdate, 'dd-mon-yyyy hh:mi:ss') );
71: END IF; --for fnd_log
67: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
68: ,G_PKG_NAME||'.'||l_api_name
69: ,'Enter '||G_PKG_NAME||'.'||l_api_name||' '
70: ||to_char(sysdate, 'dd-mon-yyyy hh:mi:ss') );
71: END IF; --for fnd_log
72:
73: -- Standard call to check for call compatibility.
74: l_stmt_num := 3;
75: IF NOT FND_API.Compatible_API_Call ( l_api_version
89: -- Initialize OUT parameters
90: x_return_status := FND_API.G_RET_STS_SUCCESS;
91: x_out_params_rec.user_has_function := 'U';
92:
93: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
94: fnd_log.string(FND_LOG.LEVEL_STATEMENT
95: ,G_PKG_NAME||'.'||l_api_name
96: ,' p_in_params_rec.object_name=>'|| p_in_params_rec.object_name ||','
97: ||' p_in_params_rec.function_name=>'|| p_in_params_rec.function_name ||','
90: x_return_status := FND_API.G_RET_STS_SUCCESS;
91: x_out_params_rec.user_has_function := 'U';
92:
93: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
94: fnd_log.string(FND_LOG.LEVEL_STATEMENT
95: ,G_PKG_NAME||'.'||l_api_name
96: ,' p_in_params_rec.object_name=>'|| p_in_params_rec.object_name ||','
97: ||' p_in_params_rec.function_name=>'|| p_in_params_rec.function_name ||','
98: ||' p_in_params_rec.instance_pk1_value=>'|| p_in_params_rec.instance_pk1_value ||','
100: ||' p_in_params_rec.instance_pk3_value=>'|| p_in_params_rec.instance_pk3_value ||','
101: ||' p_in_params_rec.instance_pk4_value=>'|| p_in_params_rec.instance_pk4_value ||','
102: ||' p_in_params_rec.instance_pk5_value=>'|| p_in_params_rec.instance_pk5_value ||','
103: ||' p_in_params_rec.user_name=>'|| p_in_params_rec.user_name );
104: END IF; --fnd_log
105:
106:
107: --When OBJECT_NAME = EGO_ITEM, pk1_value = inventory_item_id
108: -- pk2_value = organization_id
118: -- Standard call to get message count and if count is 1, get message info.
119: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count
120: ,p_data => x_msg_data);
121:
122: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
123: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
124: ,G_PKG_NAME||'.'||l_api_name
125: ,'Exit '||G_PKG_NAME||'.'||l_api_name||' '
126: ||to_char(sysdate, 'dd-mon-yyyy hh:mi:ss'));
119: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count
120: ,p_data => x_msg_data);
121:
122: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
123: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
124: ,G_PKG_NAME||'.'||l_api_name
125: ,'Exit '||G_PKG_NAME||'.'||l_api_name||' '
126: ||to_char(sysdate, 'dd-mon-yyyy hh:mi:ss'));
127: END IF; --for fnd_log
123: fnd_log.string(FND_LOG.LEVEL_PROCEDURE
124: ,G_PKG_NAME||'.'||l_api_name
125: ,'Exit '||G_PKG_NAME||'.'||l_api_name||' '
126: ||to_char(sysdate, 'dd-mon-yyyy hh:mi:ss'));
127: END IF; --for fnd_log
128:
129:
130: EXCEPTION
131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
130: EXCEPTION
131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
132: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count
133: ,p_data => x_msg_data);
134: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
135: fnd_log.string(FND_LOG.LEVEL_EXCEPTION
136: ,G_PKG_NAME||'.'||l_api_name
137: ,G_PKG_NAME||'.'||l_api_name
138: ||' FND_API.G_EXC_EXCEPTION at l_stmt_num = '
131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
132: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count
133: ,p_data => x_msg_data);
134: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
135: fnd_log.string(FND_LOG.LEVEL_EXCEPTION
136: ,G_PKG_NAME||'.'||l_api_name
137: ,G_PKG_NAME||'.'||l_api_name
138: ||' FND_API.G_EXC_EXCEPTION at l_stmt_num = '
139: || l_stmt_num|| ': ' ||sqlerrm);
136: ,G_PKG_NAME||'.'||l_api_name
137: ,G_PKG_NAME||'.'||l_api_name
138: ||' FND_API.G_EXC_EXCEPTION at l_stmt_num = '
139: || l_stmt_num|| ': ' ||sqlerrm);
140: END IF; --for fnd_log
141: x_out_params_rec.user_has_function := 'U';
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
143: WHEN OTHERS THEN
144: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
143: WHEN OTHERS THEN
144: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count
145: ,p_data => x_msg_data);
146: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
147: fnd_log.string(FND_LOG.LEVEL_EXCEPTION
148: ,G_PKG_NAME||'.'||l_api_name
149: ,G_PKG_NAME||'.'||l_api_name
150: ||' Others Exception at l_stmt_num = '
143: WHEN OTHERS THEN
144: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count
145: ,p_data => x_msg_data);
146: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
147: fnd_log.string(FND_LOG.LEVEL_EXCEPTION
148: ,G_PKG_NAME||'.'||l_api_name
149: ,G_PKG_NAME||'.'||l_api_name
150: ||' Others Exception at l_stmt_num = '
151: || l_stmt_num|| ': ' ||sqlerrm);
148: ,G_PKG_NAME||'.'||l_api_name
149: ,G_PKG_NAME||'.'||l_api_name
150: ||' Others Exception at l_stmt_num = '
151: || l_stmt_num|| ': ' ||sqlerrm);
152: END IF; --for fnd_log
153: x_out_params_rec.user_has_function := 'U';
154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: END check_custom_security;
156: