68: l_return_code VARCHAR2(25);
69: l_exc_msg VARCHAR2(2000);
70:
71: BEGIN
72: IF (PO_LOG.d_proc) THEN
73: PO_LOG.proc_begin(d_module,'p_control_action',p_control_action);
74: PO_LOG.proc_begin(d_module,'p_doc_level',p_doc_level);
75: PO_LOG.proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
76: PO_LOG.proc_begin(d_module,'p_doc_line_id',p_doc_line_id);
69: l_exc_msg VARCHAR2(2000);
70:
71: BEGIN
72: IF (PO_LOG.d_proc) THEN
73: PO_LOG.proc_begin(d_module,'p_control_action',p_control_action);
74: PO_LOG.proc_begin(d_module,'p_doc_level',p_doc_level);
75: PO_LOG.proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
76: PO_LOG.proc_begin(d_module,'p_doc_line_id',p_doc_line_id);
77: PO_LOG.proc_begin(d_module,'p_doc_line_loc_id',p_doc_line_loc_id);
70:
71: BEGIN
72: IF (PO_LOG.d_proc) THEN
73: PO_LOG.proc_begin(d_module,'p_control_action',p_control_action);
74: PO_LOG.proc_begin(d_module,'p_doc_level',p_doc_level);
75: PO_LOG.proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
76: PO_LOG.proc_begin(d_module,'p_doc_line_id',p_doc_line_id);
77: PO_LOG.proc_begin(d_module,'p_doc_line_loc_id',p_doc_line_loc_id);
78: PO_LOG.proc_begin(d_module,'p_doc_type',p_doc_type);
71: BEGIN
72: IF (PO_LOG.d_proc) THEN
73: PO_LOG.proc_begin(d_module,'p_control_action',p_control_action);
74: PO_LOG.proc_begin(d_module,'p_doc_level',p_doc_level);
75: PO_LOG.proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
76: PO_LOG.proc_begin(d_module,'p_doc_line_id',p_doc_line_id);
77: PO_LOG.proc_begin(d_module,'p_doc_line_loc_id',p_doc_line_loc_id);
78: PO_LOG.proc_begin(d_module,'p_doc_type',p_doc_type);
79: PO_LOG.proc_begin(d_module,'p_doc_subtype',p_doc_subtype);
72: IF (PO_LOG.d_proc) THEN
73: PO_LOG.proc_begin(d_module,'p_control_action',p_control_action);
74: PO_LOG.proc_begin(d_module,'p_doc_level',p_doc_level);
75: PO_LOG.proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
76: PO_LOG.proc_begin(d_module,'p_doc_line_id',p_doc_line_id);
77: PO_LOG.proc_begin(d_module,'p_doc_line_loc_id',p_doc_line_loc_id);
78: PO_LOG.proc_begin(d_module,'p_doc_type',p_doc_type);
79: PO_LOG.proc_begin(d_module,'p_doc_subtype',p_doc_subtype);
80: PO_LOG.proc_begin(d_module,'p_reason',p_reason);
73: PO_LOG.proc_begin(d_module,'p_control_action',p_control_action);
74: PO_LOG.proc_begin(d_module,'p_doc_level',p_doc_level);
75: PO_LOG.proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
76: PO_LOG.proc_begin(d_module,'p_doc_line_id',p_doc_line_id);
77: PO_LOG.proc_begin(d_module,'p_doc_line_loc_id',p_doc_line_loc_id);
78: PO_LOG.proc_begin(d_module,'p_doc_type',p_doc_type);
79: PO_LOG.proc_begin(d_module,'p_doc_subtype',p_doc_subtype);
80: PO_LOG.proc_begin(d_module,'p_reason',p_reason);
81: PO_LOG.proc_begin(d_module,'p_closeout_status',p_closeout_status);
74: PO_LOG.proc_begin(d_module,'p_doc_level',p_doc_level);
75: PO_LOG.proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
76: PO_LOG.proc_begin(d_module,'p_doc_line_id',p_doc_line_id);
77: PO_LOG.proc_begin(d_module,'p_doc_line_loc_id',p_doc_line_loc_id);
78: PO_LOG.proc_begin(d_module,'p_doc_type',p_doc_type);
79: PO_LOG.proc_begin(d_module,'p_doc_subtype',p_doc_subtype);
80: PO_LOG.proc_begin(d_module,'p_reason',p_reason);
81: PO_LOG.proc_begin(d_module,'p_closeout_status',p_closeout_status);
82: END IF;
75: PO_LOG.proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
76: PO_LOG.proc_begin(d_module,'p_doc_line_id',p_doc_line_id);
77: PO_LOG.proc_begin(d_module,'p_doc_line_loc_id',p_doc_line_loc_id);
78: PO_LOG.proc_begin(d_module,'p_doc_type',p_doc_type);
79: PO_LOG.proc_begin(d_module,'p_doc_subtype',p_doc_subtype);
80: PO_LOG.proc_begin(d_module,'p_reason',p_reason);
81: PO_LOG.proc_begin(d_module,'p_closeout_status',p_closeout_status);
82: END IF;
83:
76: PO_LOG.proc_begin(d_module,'p_doc_line_id',p_doc_line_id);
77: PO_LOG.proc_begin(d_module,'p_doc_line_loc_id',p_doc_line_loc_id);
78: PO_LOG.proc_begin(d_module,'p_doc_type',p_doc_type);
79: PO_LOG.proc_begin(d_module,'p_doc_subtype',p_doc_subtype);
80: PO_LOG.proc_begin(d_module,'p_reason',p_reason);
81: PO_LOG.proc_begin(d_module,'p_closeout_status',p_closeout_status);
82: END IF;
83:
84: -- Validate document and raise exception if required
77: PO_LOG.proc_begin(d_module,'p_doc_line_loc_id',p_doc_line_loc_id);
78: PO_LOG.proc_begin(d_module,'p_doc_type',p_doc_type);
79: PO_LOG.proc_begin(d_module,'p_doc_subtype',p_doc_subtype);
80: PO_LOG.proc_begin(d_module,'p_reason',p_reason);
81: PO_LOG.proc_begin(d_module,'p_closeout_status',p_closeout_status);
82: END IF;
83:
84: -- Validate document and raise exception if required
85: /*validate_doc(
94: x_return_status => l_return_status
95: );
96:
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;
95: );
96:
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;*/
111: p_document_id => p_doc_header_id
112: );
113:
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;
112: );
113:
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
160: );
161: END IF;
162:
163: d_pos := 40;
164: IF (PO_LOG.d_stmt) THEN
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:
161: END IF;
162:
163: d_pos := 40;
164: IF (PO_LOG.d_stmt) THEN
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
162:
163: d_pos := 40;
164: IF (PO_LOG.d_stmt) THEN
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
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;
181: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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;
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
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;
186: END IF;
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;
186: END IF;
187:
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;
193:
194: EXCEPTION
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;
193:
194: EXCEPTION
195: WHEN FND_API.G_EXC_ERROR THEN
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
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
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);
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;
206: WHEN OTHERS THEN
207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
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);
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;
212:
213: END process_doc_control_action;
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;
212:
213: END process_doc_control_action;
214: