42: l_count NUMBER := 0;
43: BEGIN
44: d_progress := 0;
45:
46: IF (po_log.d_proc) THEN
47: po_log.Proc_begin(d_module);
48: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
49: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
50: po_log.Proc_begin(d_module,'p_line_location_id',p_po_line_location_id);
43: BEGIN
44: d_progress := 0;
45:
46: IF (po_log.d_proc) THEN
47: po_log.Proc_begin(d_module);
48: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
49: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
50: po_log.Proc_begin(d_module,'p_line_location_id',p_po_line_location_id);
51: po_log.Proc_begin(d_module,'p_po_distribution_id',p_po_distribution_id);
44: d_progress := 0;
45:
46: IF (po_log.d_proc) THEN
47: po_log.Proc_begin(d_module);
48: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
49: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
50: po_log.Proc_begin(d_module,'p_line_location_id',p_po_line_location_id);
51: po_log.Proc_begin(d_module,'p_po_distribution_id',p_po_distribution_id);
52: END IF;
45:
46: IF (po_log.d_proc) THEN
47: po_log.Proc_begin(d_module);
48: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
49: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
50: po_log.Proc_begin(d_module,'p_line_location_id',p_po_line_location_id);
51: po_log.Proc_begin(d_module,'p_po_distribution_id',p_po_distribution_id);
52: END IF;
53:
46: IF (po_log.d_proc) THEN
47: po_log.Proc_begin(d_module);
48: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
49: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
50: po_log.Proc_begin(d_module,'p_line_location_id',p_po_line_location_id);
51: po_log.Proc_begin(d_module,'p_po_distribution_id',p_po_distribution_id);
52: END IF;
53:
54: IF p_po_header_id IS NOT NULL THEN
47: po_log.Proc_begin(d_module);
48: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
49: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
50: po_log.Proc_begin(d_module,'p_line_location_id',p_po_line_location_id);
51: po_log.Proc_begin(d_module,'p_po_distribution_id',p_po_distribution_id);
52: END IF;
53:
54: IF p_po_header_id IS NOT NULL THEN
55: l_po_header_id := p_po_header_id;
78: EXCEPTION
79: WHEN NO_DATA_FOUND THEN
80: RETURN l_is_clm_po;
81: WHEN OTHERS THEN
82: IF (po_log.d_exc) THEN
83: po_log.Exc(d_module,d_progress,SQLCODE
84: ||sqlerrm);
85: po_log.Proc_end(d_module);
86: END IF;
79: WHEN NO_DATA_FOUND THEN
80: RETURN l_is_clm_po;
81: WHEN OTHERS THEN
82: IF (po_log.d_exc) THEN
83: po_log.Exc(d_module,d_progress,SQLCODE
84: ||sqlerrm);
85: po_log.Proc_end(d_module);
86: END IF;
87: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
81: WHEN OTHERS THEN
82: IF (po_log.d_exc) THEN
83: po_log.Exc(d_module,d_progress,SQLCODE
84: ||sqlerrm);
85: po_log.Proc_end(d_module);
86: END IF;
87: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
88: END is_clm_po;
89:
117: --This new function takes care of clm installation details
118: is_clm_installed := NVL(FND_PROFILE.VALUE('PO_CLM_INSTALLED'),'N');
119: --po_clm_clo_util.getCLMStatus;
120:
121: IF (po_log.d_proc) THEN
122: po_log.Proc_begin(d_module);
123: END IF;
124:
125: d_progress := 10;
118: is_clm_installed := NVL(FND_PROFILE.VALUE('PO_CLM_INSTALLED'),'N');
119: --po_clm_clo_util.getCLMStatus;
120:
121: IF (po_log.d_proc) THEN
122: po_log.Proc_begin(d_module);
123: END IF;
124:
125: d_progress := 10;
126:
126:
127: RETURN is_clm_installed;
128: EXCEPTION
129: WHEN OTHERS THEN
130: IF (po_log.d_exc) THEN
131: po_log.Exc(d_module,d_progress,SQLCODE
132: ||sqlerrm);
133:
134: po_log.Proc_end(d_module);
127: RETURN is_clm_installed;
128: EXCEPTION
129: WHEN OTHERS THEN
130: IF (po_log.d_exc) THEN
131: po_log.Exc(d_module,d_progress,SQLCODE
132: ||sqlerrm);
133:
134: po_log.Proc_end(d_module);
135: END IF;
130: IF (po_log.d_exc) THEN
131: po_log.Exc(d_module,d_progress,SQLCODE
132: ||sqlerrm);
133:
134: po_log.Proc_end(d_module);
135: END IF;
136:
137: RAISE;
138: END is_clm_installed;
302:
303: BEGIN
304:
305: d_progress := 0;
306: IF (po_log.d_proc) THEN
307: po_log.Proc_begin(d_module);
308: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
309: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
310: po_log.Proc_begin(d_module,'p_line_location_id',p_line_location_id);
303: BEGIN
304:
305: d_progress := 0;
306: IF (po_log.d_proc) THEN
307: po_log.Proc_begin(d_module);
308: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
309: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
310: po_log.Proc_begin(d_module,'p_line_location_id',p_line_location_id);
311: po_log.Proc_begin(d_module,'p_po_distribution_id',p_po_distribution_id);
304:
305: d_progress := 0;
306: IF (po_log.d_proc) THEN
307: po_log.Proc_begin(d_module);
308: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
309: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
310: po_log.Proc_begin(d_module,'p_line_location_id',p_line_location_id);
311: po_log.Proc_begin(d_module,'p_po_distribution_id',p_po_distribution_id);
312: END IF;
305: d_progress := 0;
306: IF (po_log.d_proc) THEN
307: po_log.Proc_begin(d_module);
308: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
309: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
310: po_log.Proc_begin(d_module,'p_line_location_id',p_line_location_id);
311: po_log.Proc_begin(d_module,'p_po_distribution_id',p_po_distribution_id);
312: END IF;
313:
306: IF (po_log.d_proc) THEN
307: po_log.Proc_begin(d_module);
308: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
309: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
310: po_log.Proc_begin(d_module,'p_line_location_id',p_line_location_id);
311: po_log.Proc_begin(d_module,'p_po_distribution_id',p_po_distribution_id);
312: END IF;
313:
314: IF p_po_distribution_id IS NOT NULL THEN
307: po_log.Proc_begin(d_module);
308: po_log.Proc_begin(d_module,'p_po_header_id',p_po_header_id);
309: po_log.Proc_begin(d_module,'p_po_line_id',p_po_line_id);
310: po_log.Proc_begin(d_module,'p_line_location_id',p_line_location_id);
311: po_log.Proc_begin(d_module,'p_po_distribution_id',p_po_distribution_id);
312: END IF;
313:
314: IF p_po_distribution_id IS NOT NULL THEN
315:
558:
559: ELSE
560: x_return_status := fnd_api.g_ret_sts_unexp_error;
561: d_progress := 110;
562: IF (po_log.d_stmt) THEN
563: po_log.Stmt(d_module,d_progress,'p_po_header_id, p_po_line_id, p_po_line_location_id, p_po_distribution_id are NULL!');
564: END IF;
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566: END IF;
559: ELSE
560: x_return_status := fnd_api.g_ret_sts_unexp_error;
561: d_progress := 110;
562: IF (po_log.d_stmt) THEN
563: po_log.Stmt(d_module,d_progress,'p_po_header_id, p_po_line_id, p_po_line_location_id, p_po_distribution_id are NULL!');
564: END IF;
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566: END IF;
567:
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566: END IF;
567:
568: x_return_status := fnd_api.g_ret_sts_success;
569: IF (po_log.d_proc) THEN
570: po_log.Proc_end(d_module);
571: END IF;
572: EXCEPTION
573: WHEN OTHERS THEN
566: END IF;
567:
568: x_return_status := fnd_api.g_ret_sts_success;
569: IF (po_log.d_proc) THEN
570: po_log.Proc_end(d_module);
571: END IF;
572: EXCEPTION
573: WHEN OTHERS THEN
574: IF (po_log.d_exc) THEN
570: po_log.Proc_end(d_module);
571: END IF;
572: EXCEPTION
573: WHEN OTHERS THEN
574: IF (po_log.d_exc) THEN
575: po_log.Exc(d_module,d_progress,SQLCODE
576: ||sqlerrm);
577: po_log.Proc_end(d_module);
578: END IF;
571: END IF;
572: EXCEPTION
573: WHEN OTHERS THEN
574: IF (po_log.d_exc) THEN
575: po_log.Exc(d_module,d_progress,SQLCODE
576: ||sqlerrm);
577: po_log.Proc_end(d_module);
578: END IF;
579: x_return_status := fnd_api.g_ret_sts_unexp_error;
573: WHEN OTHERS THEN
574: IF (po_log.d_exc) THEN
575: po_log.Exc(d_module,d_progress,SQLCODE
576: ||sqlerrm);
577: po_log.Proc_end(d_module);
578: END IF;
579: x_return_status := fnd_api.g_ret_sts_unexp_error;
580: END get_funding_info;
581: