1: PACKAGE BODY po_partial_funding_pkg AS
2: /* $Header: PO_PARTIAL_FUNDING_PKG.plb 120.12.12020000.3 2013/04/08 09:13:46 dtoshniw ship $ */
3: d_pkg_name CONSTANT VARCHAR2(50) := po_log.Get_package_base('PO_PARTIAL_FUNDING_PKG');
4:
5: /*=======================================================================+
6: | FILENAME
7: | PO_PARTIAL_FUNDING_PKG.plB
25:
26: BEGIN
27: d_progress := 10;
28:
29: IF (po_log.d_proc) THEN
30: po_log.Proc_begin(d_module);
31:
32: po_log.Proc_begin(d_module,'p_Doc_type',p_doc_type);
33:
26: BEGIN
27: d_progress := 10;
28:
29: IF (po_log.d_proc) THEN
30: po_log.Proc_begin(d_module);
31:
32: po_log.Proc_begin(d_module,'p_Doc_type',p_doc_type);
33:
34: po_log.Proc_begin(d_module,'p_Doc_Level_Id',p_doc_level_id);
28:
29: IF (po_log.d_proc) THEN
30: po_log.Proc_begin(d_module);
31:
32: po_log.Proc_begin(d_module,'p_Doc_type',p_doc_type);
33:
34: po_log.Proc_begin(d_module,'p_Doc_Level_Id',p_doc_level_id);
35: END IF;
36:
30: po_log.Proc_begin(d_module);
31:
32: po_log.Proc_begin(d_module,'p_Doc_type',p_doc_type);
33:
34: po_log.Proc_begin(d_module,'p_Doc_Level_Id',p_doc_level_id);
35: END IF;
36:
37: d_progress := 20;
38:
53: END IF;
54:
55: d_progress := 30;
56:
57: IF po_log.d_stmt THEN
58: po_log.Stmt(d_module,d_progress,'l_Clm_Document: '
59: ||l_clm_document);
60: END IF;
61:
54:
55: d_progress := 30;
56:
57: IF po_log.d_stmt THEN
58: po_log.Stmt(d_module,d_progress,'l_Clm_Document: '
59: ||l_clm_document);
60: END IF;
61:
62: RETURN l_clm_document;
65: l_clm_document := 'N';
66:
67: RETURN l_clm_document;
68: WHEN OTHERS THEN
69: IF po_log.d_stmt THEN
70: po_log.Stmt(d_module,d_progress,'Error is : ',sqlerrm);
71: END IF;
72: END;
73:
66:
67: RETURN l_clm_document;
68: WHEN OTHERS THEN
69: IF po_log.d_stmt THEN
70: po_log.Stmt(d_module,d_progress,'Error is : ',sqlerrm);
71: END IF;
72: END;
73:
74: FUNCTION Is_clm_enabled
86:
87: RETURN l_clm_enabled;
88: EXCEPTION
89: WHEN OTHERS THEN
90: IF po_log.d_stmt THEN
91: po_log.Stmt(d_module,d_progress,'Error is : ',sqlerrm);
92: END IF;
93:
94: RETURN l_clm_enabled;
87: RETURN l_clm_enabled;
88: EXCEPTION
89: WHEN OTHERS THEN
90: IF po_log.d_stmt THEN
91: po_log.Stmt(d_module,d_progress,'Error is : ',sqlerrm);
92: END IF;
93:
94: RETURN l_clm_enabled;
95: END;
123: RETURN l_ACRN_enabled;
124:
125: EXCEPTION
126: WHEN OTHERS THEN
127: IF po_log.d_stmt THEN
128: po_log.Stmt(d_module,d_progress,'Error is : ',sqlerrm);
129: END IF;
130:
131: END;
124:
125: EXCEPTION
126: WHEN OTHERS THEN
127: IF po_log.d_stmt THEN
128: po_log.Stmt(d_module,d_progress,'Error is : ',sqlerrm);
129: END IF;
130:
131: END;
132:
150: BEGIN
151:
152: d_progress := 10;
153:
154: IF (po_log.d_proc) THEN
155: po_log.Proc_begin(d_module);
156: po_log.Proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
157: END IF;
158:
151:
152: d_progress := 10;
153:
154: IF (po_log.d_proc) THEN
155: po_log.Proc_begin(d_module);
156: po_log.Proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
157: END IF;
158:
159: SELECT NVL(style_id,-1)
152: d_progress := 10;
153:
154: IF (po_log.d_proc) THEN
155: po_log.Proc_begin(d_module);
156: po_log.Proc_begin(d_module,'p_doc_header_id',p_doc_header_id);
157: END IF;
158:
159: SELECT NVL(style_id,-1)
160: INTO l_style_id
177: x_return_status => l_return_status);
178:
179: END IF;
180:
181: IF (po_log.d_proc) THEN
182: po_log.Proc_end(d_module,'p_doc_header_id',p_doc_header_id);
183: END IF;
184:
185: EXCEPTION
178:
179: END IF;
180:
181: IF (po_log.d_proc) THEN
182: po_log.Proc_end(d_module,'p_doc_header_id',p_doc_header_id);
183: END IF;
184:
185: EXCEPTION
186: WHEN OTHERS THEN
183: END IF;
184:
185: EXCEPTION
186: WHEN OTHERS THEN
187: IF (po_log.d_exc) THEN
188: po_log.Exc(d_module,d_progress,SQLCODE
189: ||sqlerrm);
190: END IF;
191: END recalculate_pf_attributes;
184:
185: EXCEPTION
186: WHEN OTHERS THEN
187: IF (po_log.d_exc) THEN
188: po_log.Exc(d_module,d_progress,SQLCODE
189: ||sqlerrm);
190: END IF;
191: END recalculate_pf_attributes;
192:
369: EXCEPTION
370: WHEN OTHERS THEN
371: x_return_status := fnd_api.g_ret_sts_unexp_error;
372:
373: IF (po_log.d_exc) THEN
374: po_log.Exc(d_module,d_progress,SQLCODE
375: ||sqlerrm);
376:
377: po_log.Proc_end(d_module,'x_return_status',x_return_status);
370: WHEN OTHERS THEN
371: x_return_status := fnd_api.g_ret_sts_unexp_error;
372:
373: IF (po_log.d_exc) THEN
374: po_log.Exc(d_module,d_progress,SQLCODE
375: ||sqlerrm);
376:
377: po_log.Proc_end(d_module,'x_return_status',x_return_status);
378: END IF;
373: IF (po_log.d_exc) THEN
374: po_log.Exc(d_module,d_progress,SQLCODE
375: ||sqlerrm);
376:
377: po_log.Proc_end(d_module,'x_return_status',x_return_status);
378: END IF;
379: END updt_funding_info;
380:
381: /*
420: EXCEPTION
421: WHEN OTHERS THEN
422: x_return_status := fnd_api.g_ret_sts_unexp_error;
423:
424: IF (po_log.d_exc) THEN
425: po_log.Exc(d_module,d_progress,SQLCODE
426: ||sqlerrm);
427:
428: po_log.Proc_end(d_module,'x_return_status',x_return_status);
421: WHEN OTHERS THEN
422: x_return_status := fnd_api.g_ret_sts_unexp_error;
423:
424: IF (po_log.d_exc) THEN
425: po_log.Exc(d_module,d_progress,SQLCODE
426: ||sqlerrm);
427:
428: po_log.Proc_end(d_module,'x_return_status',x_return_status);
429: END IF;
424: IF (po_log.d_exc) THEN
425: po_log.Exc(d_module,d_progress,SQLCODE
426: ||sqlerrm);
427:
428: po_log.Proc_end(d_module,'x_return_status',x_return_status);
429: END IF;
430: END get_change_in_funds;
431:
432: PROCEDURE Get_qty_amt_funded
468: EXCEPTION
469: WHEN OTHERS THEN
470: x_return_status := fnd_api.g_ret_sts_unexp_error;
471:
472: IF (po_log.d_exc) THEN
473: po_log.Exc(d_module,d_progress,SQLCODE
474: ||sqlerrm);
475:
476: po_log.Proc_end(d_module,'x_return_status',x_return_status);
469: WHEN OTHERS THEN
470: x_return_status := fnd_api.g_ret_sts_unexp_error;
471:
472: IF (po_log.d_exc) THEN
473: po_log.Exc(d_module,d_progress,SQLCODE
474: ||sqlerrm);
475:
476: po_log.Proc_end(d_module,'x_return_status',x_return_status);
477: END IF;
472: IF (po_log.d_exc) THEN
473: po_log.Exc(d_module,d_progress,SQLCODE
474: ||sqlerrm);
475:
476: po_log.Proc_end(d_module,'x_return_status',x_return_status);
477: END IF;
478: END get_qty_amt_funded;
479:
480: PROCEDURE Updt_Funds_Split(x_return_status OUT NOCOPY VARCHAR2, p_new_Req_line_id in number)
591:
592: IF l_doc_type = 'REQ' THEN
593: d_progress := 15;
594:
595: IF po_log.d_stmt THEN
596: po_log.Stmt(d_module,d_progress,'Document Type : '
597: ||l_doc_type);
598: END IF;
599:
592: IF l_doc_type = 'REQ' THEN
593: d_progress := 15;
594:
595: IF po_log.d_stmt THEN
596: po_log.Stmt(d_module,d_progress,'Document Type : '
597: ||l_doc_type);
598: END IF;
599:
600: IF l_distribution_id IS NOT NULL THEN
599:
600: IF l_distribution_id IS NOT NULL THEN
601: d_progress := 20;
602:
603: IF po_log.d_stmt THEN
604: po_log.Stmt(d_module,d_progress,'Distribution id is not null : '
605: ||l_distribution_id);
606: END IF;
607:
600: IF l_distribution_id IS NOT NULL THEN
601: d_progress := 20;
602:
603: IF po_log.d_stmt THEN
604: po_log.Stmt(d_module,d_progress,'Distribution id is not null : '
605: ||l_distribution_id);
606: END IF;
607:
608: SELECT Nvl(funded_value,0)
611: WHERE distribution_id = l_distribution_id;
612: ELSIF l_line_id IS NOT NULL THEN
613: d_progress := 25;
614:
615: IF po_log.d_stmt THEN
616: po_log.Stmt(d_module,d_progress,'Line id is not null : '
617: ||l_line_id);
618: END IF;
619:
612: ELSIF l_line_id IS NOT NULL THEN
613: d_progress := 25;
614:
615: IF po_log.d_stmt THEN
616: po_log.Stmt(d_module,d_progress,'Line id is not null : '
617: ||l_line_id);
618: END IF;
619:
620: SELECT Sum(Nvl(funded_value,0))
625: AND l.requisition_line_id = l_line_id;
626: ELSIF l_header_id IS NOT NULL THEN
627: d_progress := 30;
628:
629: IF po_log.d_stmt THEN
630: po_log.Stmt(d_module,d_progress,'Header id is not null : '
631: ||l_header_id);
632: END IF;
633:
626: ELSIF l_header_id IS NOT NULL THEN
627: d_progress := 30;
628:
629: IF po_log.d_stmt THEN
630: po_log.Stmt(d_module,d_progress,'Header id is not null : '
631: ||l_header_id);
632: END IF;
633:
634: SELECT Sum(Nvl(funded_value,0))
640: END IF;
641: ELSIF l_doc_type = 'PO' THEN
642: d_progress := 35;
643:
644: IF po_log.d_stmt THEN
645: po_log.Stmt(d_module,d_progress,'Document Type is : '
646: ||l_doc_type);
647: END IF;
648:
641: ELSIF l_doc_type = 'PO' THEN
642: d_progress := 35;
643:
644: IF po_log.d_stmt THEN
645: po_log.Stmt(d_module,d_progress,'Document Type is : '
646: ||l_doc_type);
647: END IF;
648:
649: IF l_distribution_id IS NOT NULL THEN
648:
649: IF l_distribution_id IS NOT NULL THEN
650: d_progress := 40;
651:
652: IF po_log.d_stmt THEN
653: po_log.Stmt(d_module,d_progress,'Distribution id is not null : '
654: ||l_distribution_id);
655: END IF;
656:
649: IF l_distribution_id IS NOT NULL THEN
650: d_progress := 40;
651:
652: IF po_log.d_stmt THEN
653: po_log.Stmt(d_module,d_progress,'Distribution id is not null : '
654: ||l_distribution_id);
655: END IF;
656:
657: SELECT Nvl(funded_value,0)
660: WHERE po_distribution_id = l_distribution_id;
661: ELSIF l_shipment_id IS NOT NULL THEN
662: d_progress := 45;
663:
664: IF po_log.d_stmt THEN
665: po_log.Stmt(d_module,d_progress,'Shipment id is not null : '
666: ||l_shipment_id);
667: END IF;
668:
661: ELSIF l_shipment_id IS NOT NULL THEN
662: d_progress := 45;
663:
664: IF po_log.d_stmt THEN
665: po_log.Stmt(d_module,d_progress,'Shipment id is not null : '
666: ||l_shipment_id);
667: END IF;
668:
669: SELECT Sum(Nvl(funded_value,0))
672: WHERE d.line_location_id = l_shipment_id;
673: ELSIF l_line_id IS NOT NULL THEN
674: d_progress := 50;
675:
676: IF po_log.d_stmt THEN
677: po_log.Stmt(d_module,d_progress,'Line id is not null : '
678: ||l_line_id);
679: END IF;
680:
673: ELSIF l_line_id IS NOT NULL THEN
674: d_progress := 50;
675:
676: IF po_log.d_stmt THEN
677: po_log.Stmt(d_module,d_progress,'Line id is not null : '
678: ||l_line_id);
679: END IF;
680:
681: SELECT Sum(Nvl(funded_value,0))
684: WHERE d.po_line_id = l_line_id;
685: ELSIF l_header_id IS NOT NULL THEN
686: d_progress := 55;
687:
688: IF po_log.d_stmt THEN
689: po_log.Stmt(d_module,d_progress,'Header id is not null : '
690: ||l_header_id);
691: END IF;
692:
685: ELSIF l_header_id IS NOT NULL THEN
686: d_progress := 55;
687:
688: IF po_log.d_stmt THEN
689: po_log.Stmt(d_module,d_progress,'Header id is not null : '
690: ||l_header_id);
691: END IF;
692:
693: SELECT Sum(Nvl(funded_value,0))
698: END IF;
699:
700: d_progress := 60;
701:
702: IF po_log.d_stmt THEN
703: po_log.Stmt(d_module,d_progress,'Funded Value is : '
704: ||l_funded_value);
705: END IF;
706:
699:
700: d_progress := 60;
701:
702: IF po_log.d_stmt THEN
703: po_log.Stmt(d_module,d_progress,'Funded Value is : '
704: ||l_funded_value);
705: END IF;
706:
707: RETURN l_funded_value;
708: EXCEPTION
709: WHEN OTHERS THEN
710: RETURN l_funded_value;
711:
712: IF (po_log.d_exc) THEN
713: po_log.Exc(d_module,d_progress,SQLCODE
714: ||sqlerrm);
715: END IF;
716: END get_funded_value;
709: WHEN OTHERS THEN
710: RETURN l_funded_value;
711:
712: IF (po_log.d_exc) THEN
713: po_log.Exc(d_module,d_progress,SQLCODE
714: ||sqlerrm);
715: END IF;
716: END get_funded_value;
717: