97: d_pos := 10;
98: IF (PO_LOG.d_stmt) THEN
99: PO_LOG.stmt(d_module,d_pos,'l_return_status',l_return_status);
100: END IF;
101: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: END IF;*/
104:
105: -- Lock the document
98: IF (PO_LOG.d_stmt) THEN
99: PO_LOG.stmt(d_module,d_pos,'l_return_status',l_return_status);
100: END IF;
101: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103: END IF;*/
104:
105: -- Lock the document
106: PO_DOCUMENT_LOCK_GRP.lock_document(
104:
105: -- Lock the document
106: PO_DOCUMENT_LOCK_GRP.lock_document(
107: p_api_version => 1.0,
108: p_init_msg_list => FND_API.G_FALSE,
109: x_return_status => l_return_status,
110: p_document_type => p_doc_type,
111: p_document_id => p_doc_header_id
112: );
114: d_pos := 20;
115: IF (PO_LOG.d_stmt) THEN
116: PO_LOG.stmt(d_module,d_pos,'l_return_status',l_return_status);
117: END IF;
118: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
119: RAISE FND_API.G_EXC_ERROR;
120: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
122: END IF;
115: IF (PO_LOG.d_stmt) THEN
116: PO_LOG.stmt(d_module,d_pos,'l_return_status',l_return_status);
117: END IF;
118: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
119: RAISE FND_API.G_EXC_ERROR;
120: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
122: END IF;
123:
116: PO_LOG.stmt(d_module,d_pos,'l_return_status',l_return_status);
117: END IF;
118: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
119: RAISE FND_API.G_EXC_ERROR;
120: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
122: END IF;
123:
124: -- Validation successful
117: END IF;
118: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
119: RAISE FND_API.G_EXC_ERROR;
120: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
122: END IF;
123:
124: -- Validation successful
125:
165: PO_LOG.stmt(d_module,d_pos,'l_return_status',l_return_status);
166: PO_LOG.stmt(d_module,d_pos,'l_return_code',l_return_code);
167: END IF;
168:
169: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
170: IF (l_return_code = 'STATE_FAILED') THEN
171: -- The document state was not valid for this control action
172: FND_MESSAGE.set_name('PO','PO_APP_APP_FAILED');
173: FND_MSG_PUB.add;
170: IF (l_return_code = 'STATE_FAILED') THEN
171: -- The document state was not valid for this control action
172: FND_MESSAGE.set_name('PO','PO_APP_APP_FAILED');
173: FND_MSG_PUB.add;
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
176: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
177: IF l_exc_msg IS NOT NULL AND PO_LOG.d_exc THEN
178: PO_LOG.exc(d_module,d_pos,l_exc_msg);
172: FND_MESSAGE.set_name('PO','PO_APP_APP_FAILED');
173: FND_MSG_PUB.add;
174: RAISE FND_API.G_EXC_ERROR;
175: END IF;
176: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
177: IF l_exc_msg IS NOT NULL AND PO_LOG.d_exc THEN
178: PO_LOG.exc(d_module,d_pos,l_exc_msg);
179: END IF;
180: RAISE FND_API.G_EXC_ERROR;
176: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
177: IF l_exc_msg IS NOT NULL AND PO_LOG.d_exc THEN
178: PO_LOG.exc(d_module,d_pos,l_exc_msg);
179: END IF;
180: RAISE FND_API.G_EXC_ERROR;
181: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
182: IF l_exc_msg IS NOT NULL AND PO_LOG.d_exc THEN
183: PO_LOG.exc(d_module,d_pos,l_exc_msg);
184: END IF;
177: IF l_exc_msg IS NOT NULL AND PO_LOG.d_exc THEN
178: PO_LOG.exc(d_module,d_pos,l_exc_msg);
179: END IF;
180: RAISE FND_API.G_EXC_ERROR;
181: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
182: IF l_exc_msg IS NOT NULL AND PO_LOG.d_exc THEN
183: PO_LOG.exc(d_module,d_pos,l_exc_msg);
184: END IF;
185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
182: IF l_exc_msg IS NOT NULL AND PO_LOG.d_exc THEN
183: PO_LOG.exc(d_module,d_pos,l_exc_msg);
184: END IF;
185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
186: END IF;
187:
188: x_return_status := FND_API.G_RET_STS_SUCCESS;
189:
184: END IF;
185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
186: END IF;
187:
188: x_return_status := FND_API.G_RET_STS_SUCCESS;
189:
190: IF PO_LOG.d_proc THEN
191: PO_LOG.proc_end(d_module,'x_return_status',x_return_status);
192: END IF;
191: PO_LOG.proc_end(d_module,'x_return_status',x_return_status);
192: END IF;
193:
194: EXCEPTION
195: WHEN FND_API.G_EXC_ERROR THEN
196: x_return_status := FND_API.G_RET_STS_ERROR;
197: IF PO_LOG.d_exc THEN
198: PO_LOG.exc(d_module,d_pos,'Error in ' || d_module);
199: END IF;
192: END IF;
193:
194: EXCEPTION
195: WHEN FND_API.G_EXC_ERROR THEN
196: x_return_status := FND_API.G_RET_STS_ERROR;
197: IF PO_LOG.d_exc THEN
198: PO_LOG.exc(d_module,d_pos,'Error in ' || d_module);
199: END IF;
200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
196: x_return_status := FND_API.G_RET_STS_ERROR;
197: IF PO_LOG.d_exc THEN
198: PO_LOG.exc(d_module,d_pos,'Error in ' || d_module);
199: END IF;
200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
203: IF PO_LOG.d_exc THEN
204: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
197: IF PO_LOG.d_exc THEN
198: PO_LOG.exc(d_module,d_pos,'Error in ' || d_module);
199: END IF;
200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
203: IF PO_LOG.d_exc THEN
204: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
205: END IF;
203: IF PO_LOG.d_exc THEN
204: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
205: END IF;
206: WHEN OTHERS THEN
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
208: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
209: IF PO_LOG.d_exc THEN
210: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
211: END IF;
261: l_open_award_exists_flag VARCHAR(1) := 'N';
262: l_idv_not_open_flag VARCHAR(1) := 'N';
263:
264: BEGIN
265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
266:
267: -- Clear the message stack
268: FND_MSG_PUB.initialize;
269:
369:
370: -- Raise exception in case of any validation error
371: IF l_validation_error_flag = 'Y'
372: THEN
373: x_return_status := FND_API.G_RET_STS_ERROR;
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376:
377: x_return_status := FND_API.G_RET_STS_SUCCESS;
370: -- Raise exception in case of any validation error
371: IF l_validation_error_flag = 'Y'
372: THEN
373: x_return_status := FND_API.G_RET_STS_ERROR;
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376:
377: x_return_status := FND_API.G_RET_STS_SUCCESS;
378: END validate_doc;
373: x_return_status := FND_API.G_RET_STS_ERROR;
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376:
377: x_return_status := FND_API.G_RET_STS_SUCCESS;
378: END validate_doc;
379:
380: END PO_CLM_DOCUMENT_CONTROL_PVT;
381: