31: l_delete_ok varchar2(1);
32:
33: BEGIN
34: IF g_fnd_debug = 'Y' then
35: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
36: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
37: MODULE =>g_module_prefix||l_api_name,
38: MESSAGE =>'100: Start' ||l_api_name);
39: END IF;
32:
33: BEGIN
34: IF g_fnd_debug = 'Y' then
35: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
36: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
37: MODULE =>g_module_prefix||l_api_name,
38: MESSAGE =>'100: Start' ||l_api_name);
39: END IF;
40: End if;
99: FND_MSG_PUB.Add;
100: x_msg_data := 'PON_PROJECT_USED_NO_DELETE';
101:
102: IF g_fnd_debug = 'Y' then
103: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
104: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
105: MODULE =>g_module_prefix||l_api_name,
106: MESSAGE =>'300: The Project Id refrenced in Sourcing');
107: END IF;
100: x_msg_data := 'PON_PROJECT_USED_NO_DELETE';
101:
102: IF g_fnd_debug = 'Y' then
103: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
104: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
105: MODULE =>g_module_prefix||l_api_name,
106: MESSAGE =>'300: The Project Id refrenced in Sourcing');
107: END IF;
108: End IF;
107: END IF;
108: End IF;
109: END IF;
110: IF g_fnd_debug = 'Y' then
111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
112: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
113: MODULE =>g_module_prefix||l_api_name,
114: MESSAGE =>'400: End' ||l_api_name);
115: END IF;
108: End IF;
109: END IF;
110: IF g_fnd_debug = 'Y' then
111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
112: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_STATEMENT,
113: MODULE =>g_module_prefix||l_api_name,
114: MESSAGE =>'400: End' ||l_api_name);
115: END IF;
116: End IF;
117: EXCEPTION
118: WHEN NO_DATA_FOUND THEN
119: x_return_status := FND_API.G_RET_STS_SUCCESS;
120: IF g_fnd_debug = 'Y' then
121: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
122: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
123: MODULE =>g_module_prefix||l_api_name,
124: MESSAGE =>'450:Exception when no data found ');
125: END IF;
118: WHEN NO_DATA_FOUND THEN
119: x_return_status := FND_API.G_RET_STS_SUCCESS;
120: IF g_fnd_debug = 'Y' then
121: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
122: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
123: MODULE =>g_module_prefix||l_api_name,
124: MESSAGE =>'450:Exception when no data found ');
125: END IF;
126: END IF;
133: p_data => x_msg_data );
134:
135:
136: IF g_fnd_debug = 'Y' then
137: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
138: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
139: MODULE =>g_module_prefix||l_api_name,
140: MESSAGE =>'470: expected error ');
141: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
134:
135:
136: IF g_fnd_debug = 'Y' then
137: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
138: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
139: MODULE =>g_module_prefix||l_api_name,
140: MESSAGE =>'470: expected error ');
141: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
142: MODULE =>g_module_prefix||l_api_name,
137: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
138: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
139: MODULE =>g_module_prefix||l_api_name,
140: MESSAGE =>'470: expected error ');
141: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
142: MODULE =>g_module_prefix||l_api_name,
143: MESSAGE =>'470:errors '||FND_MSG_PUB.Get(p_msg_index=>nvl(x_msg_count,1),p_encoded =>'F' ));
144: END IF;
145: END IF;
160: p_data => x_msg_data );
161:
162:
163: IF g_fnd_debug = 'Y' then
164: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
165: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
166: MODULE =>g_module_prefix||l_api_name,
167: MESSAGE =>'500:Exception UnExpected error '||sqlcode||':'||sqlerrm);
168: END IF;
161:
162:
163: IF g_fnd_debug = 'Y' then
164: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
165: FND_LOG.string(LOG_LEVEL=>FND_LOG.LEVEL_EXCEPTION,
166: MODULE =>g_module_prefix||l_api_name,
167: MESSAGE =>'500:Exception UnExpected error '||sqlcode||':'||sqlerrm);
168: END IF;
169: END IF;