76: WHEN OTHERS THEN
77: l_error_code := SQLCODE;
78: l_error_msg := SQLERRM;
79: insert into cln_test(test) values('Exception ' || ':' || l_error_code || ':' || l_error_msg);
80: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_EVENT_RAISE_ERROR');
81: FND_MESSAGE.SET_TOKEN('POHEADERID', p_document_id);
82: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
83: l_not_msg := FND_MESSAGE.GET;
84: cln_debug_pub.Add(l_not_msg, 6);
77: l_error_code := SQLCODE;
78: l_error_msg := SQLERRM;
79: insert into cln_test(test) values('Exception ' || ':' || l_error_code || ':' || l_error_msg);
80: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_EVENT_RAISE_ERROR');
81: FND_MESSAGE.SET_TOKEN('POHEADERID', p_document_id);
82: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
83: l_not_msg := FND_MESSAGE.GET;
84: cln_debug_pub.Add(l_not_msg, 6);
85: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_not_msg);
78: l_error_msg := SQLERRM;
79: insert into cln_test(test) values('Exception ' || ':' || l_error_code || ':' || l_error_msg);
80: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_EVENT_RAISE_ERROR');
81: FND_MESSAGE.SET_TOKEN('POHEADERID', p_document_id);
82: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
83: l_not_msg := FND_MESSAGE.GET;
84: cln_debug_pub.Add(l_not_msg, 6);
85: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_not_msg);
86: cln_debug_pub.Add('RAISE_CLN_EVENT EXITED', 2);
79: insert into cln_test(test) values('Exception ' || ':' || l_error_code || ':' || l_error_msg);
80: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_EVENT_RAISE_ERROR');
81: FND_MESSAGE.SET_TOKEN('POHEADERID', p_document_id);
82: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
83: l_not_msg := FND_MESSAGE.GET;
84: cln_debug_pub.Add(l_not_msg, 6);
85: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_not_msg);
86: cln_debug_pub.Add('RAISE_CLN_EVENT EXITED', 2);
87: END RAISE_CANCEL_PO_EVENT;
212: EXCEPTION
213: WHEN OTHERS THEN
214: l_error_code := SQLCODE;
215: l_error_msg := SQLERRM;
216: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_PO_QUERY_ERROR');
217: FND_MESSAGE.SET_TOKEN('POHEADERID', l_po_header_id);
218: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
219: l_not_msg := FND_MESSAGE.GET;
220: IF (l_Debug_Level <= 6) THEN
213: WHEN OTHERS THEN
214: l_error_code := SQLCODE;
215: l_error_msg := SQLERRM;
216: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_PO_QUERY_ERROR');
217: FND_MESSAGE.SET_TOKEN('POHEADERID', l_po_header_id);
218: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
219: l_not_msg := FND_MESSAGE.GET;
220: IF (l_Debug_Level <= 6) THEN
221: cln_debug_pub.Add(l_not_msg, 6);
214: l_error_code := SQLCODE;
215: l_error_msg := SQLERRM;
216: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_PO_QUERY_ERROR');
217: FND_MESSAGE.SET_TOKEN('POHEADERID', l_po_header_id);
218: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
219: l_not_msg := FND_MESSAGE.GET;
220: IF (l_Debug_Level <= 6) THEN
221: cln_debug_pub.Add(l_not_msg, 6);
222: END IF;
215: l_error_msg := SQLERRM;
216: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_PO_QUERY_ERROR');
217: FND_MESSAGE.SET_TOKEN('POHEADERID', l_po_header_id);
218: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
219: l_not_msg := FND_MESSAGE.GET;
220: IF (l_Debug_Level <= 6) THEN
221: cln_debug_pub.Add(l_not_msg, 6);
222: END IF;
223: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_not_msg);
285: WHEN OTHERS THEN
286: x_resultout := 'COMPLETE:F';
287: l_error_code := SQLCODE;
288: l_error_msg := SQLERRM;
289: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_PO_QUERY_ERROR');
290: FND_MESSAGE.SET_TOKEN('POHEADERID', l_po_header_id);
291: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
292: l_not_msg := FND_MESSAGE.GET;
293: IF (l_Debug_Level <= 6) THEN
286: x_resultout := 'COMPLETE:F';
287: l_error_code := SQLCODE;
288: l_error_msg := SQLERRM;
289: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_PO_QUERY_ERROR');
290: FND_MESSAGE.SET_TOKEN('POHEADERID', l_po_header_id);
291: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
292: l_not_msg := FND_MESSAGE.GET;
293: IF (l_Debug_Level <= 6) THEN
294: cln_debug_pub.Add(l_not_msg, 6);
287: l_error_code := SQLCODE;
288: l_error_msg := SQLERRM;
289: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_PO_QUERY_ERROR');
290: FND_MESSAGE.SET_TOKEN('POHEADERID', l_po_header_id);
291: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
292: l_not_msg := FND_MESSAGE.GET;
293: IF (l_Debug_Level <= 6) THEN
294: cln_debug_pub.Add(l_not_msg, 6);
295: END IF;
288: l_error_msg := SQLERRM;
289: FND_MESSAGE.SET_NAME('CLN','CLN_3A9_PO_QUERY_ERROR');
290: FND_MESSAGE.SET_TOKEN('POHEADERID', l_po_header_id);
291: FND_MESSAGE.SET_TOKEN('DBERRMSG', l_error_code || ':' || l_error_msg);
292: l_not_msg := FND_MESSAGE.GET;
293: IF (l_Debug_Level <= 6) THEN
294: cln_debug_pub.Add(l_not_msg, 6);
295: END IF;
296: CLN_NP_PROCESSOR_PKG.NOTIFY_ADMINISTRATOR(l_not_msg);