1: PACKAGE BODY po_par_req_create_util AS
2: /* $Header: PO_PAR_REQ_CREATE_UTIL.plb 120.1.12020000.10 2013/05/10 10:04:30 akyanama noship $ */
3: d_pkg_name CONSTANT VARCHAR2(50) :=
4: po_log.Get_package_base('PO_PAR_REQ_CREATE_UTIL');
5: PROCEDURE Create_dummy_req(p_po_header_id IN NUMBER,
6: p_par_draft_id IN NUMBER,
7: x_par_req_header_id OUT nocopy NUMBER)
8: IS
27: x_par_req_header_id := l_req_header_id;
28:
29: l_progress := '001';
30:
31: IF ( po_log.d_stmt ) THEN
32: po_log.Stmt(l_module
33: ||l_api_name, l_progress, 'REQ HEADER ID: '
34: || l_req_header_id);
35: END IF;
28:
29: l_progress := '001';
30:
31: IF ( po_log.d_stmt ) THEN
32: po_log.Stmt(l_module
33: ||l_api_name, l_progress, 'REQ HEADER ID: '
34: || l_req_header_id);
35: END IF;
36: SELECT vendor_id,
88: l_count := SQL%rowcount;
89:
90: l_progress := '002';
91:
92: IF ( po_log.d_stmt ) THEN
93: po_log.Stmt(l_module
94: ||l_api_name, l_progress, 'INSERTED: '
95: || l_count
96: || ' ROWS ');
89:
90: l_progress := '002';
91:
92: IF ( po_log.d_stmt ) THEN
93: po_log.Stmt(l_module
94: ||l_api_name, l_progress, 'INSERTED: '
95: || l_count
96: || ' ROWS ');
97: END IF;
106: l_count := SQL%rowcount;
107:
108: l_progress := '002';
109:
110: IF ( po_log.d_stmt ) THEN
111: po_log.Stmt(l_module
112: ||l_api_name, l_progress, 'NO OF LINES: '
113: || l_count);
114: END IF;
107:
108: l_progress := '002';
109:
110: IF ( po_log.d_stmt ) THEN
111: po_log.Stmt(l_module
112: ||l_api_name, l_progress, 'NO OF LINES: '
113: || l_count);
114: END IF;
115:
115:
116: l_progress := '003';
117:
118: FOR i IN 1 .. l_po_line_id_tbl.count LOOP
119: IF ( po_log.d_stmt ) THEN
120: po_log.Stmt(l_module
121: ||l_api_name, l_progress, 'PROCESSING LINE ID: '
122: || L_po_line_id_tbl(i));
123: END IF;
116: l_progress := '003';
117:
118: FOR i IN 1 .. l_po_line_id_tbl.count LOOP
119: IF ( po_log.d_stmt ) THEN
120: po_log.Stmt(l_module
121: ||l_api_name, l_progress, 'PROCESSING LINE ID: '
122: || L_po_line_id_tbl(i));
123: END IF;
124:
252: AND pld.po_line_id = pldor.po_line_id(+);
253:
254: l_count := SQL%rowcount;
255:
256: IF ( po_log.d_stmt ) THEN
257: po_log.Stmt(l_module
258: ||l_api_name, l_progress, 'NO OF LINES: '
259: || l_count);
260: END IF;
253:
254: l_count := SQL%rowcount;
255:
256: IF ( po_log.d_stmt ) THEN
257: po_log.Stmt(l_module
258: ||l_api_name, l_progress, 'NO OF LINES: '
259: || l_count);
260: END IF;
261:
341: AND PDD.po_line_id = L_po_line_id_tbl(i);
342:
343: l_count := SQL%rowcount;
344:
345: IF ( po_log.d_stmt ) THEN
346: po_log.Stmt(l_module
347: ||l_api_name, l_progress, 'NO OF DISTRIBUTIONS: '
348: || l_count);
349: END IF;
342:
343: l_count := SQL%rowcount;
344:
345: IF ( po_log.d_stmt ) THEN
346: po_log.Stmt(l_module
347: ||l_api_name, l_progress, 'NO OF DISTRIBUTIONS: '
348: || l_count);
349: END IF;
350: END LOOP;
463: AND PHD.change_status = 'UPDATE';
464:
465: l_count := SQL%rowcount;
466:
467: IF ( po_log.d_stmt ) THEN
468: po_log.Stmt(l_module
469: ||l_api_name, l_progress, 'Additional Line Records: '
470: || l_count);
471: END IF;
464:
465: l_count := SQL%rowcount;
466:
467: IF ( po_log.d_stmt ) THEN
468: po_log.Stmt(l_module
469: ||l_api_name, l_progress, 'Additional Line Records: '
470: || l_count);
471: END IF;
472:
495:
496:
497: l_count := SQL%rowcount;
498:
499: IF ( po_log.d_stmt ) THEN
500: po_log.Stmt(l_module
501: ||l_api_name, l_progress, 'Number of SLINS Updated: '
502: || l_count);
503: END IF;
496:
497: l_count := SQL%rowcount;
498:
499: IF ( po_log.d_stmt ) THEN
500: po_log.Stmt(l_module
501: ||l_api_name, l_progress, 'Number of SLINS Updated: '
502: || l_count);
503: END IF;
504:
505:
506: COMMIT;
507: EXCEPTION
508: WHEN OTHERS THEN
509: IF ( po_log.d_exc ) THEN
510: po_log.Exc(l_module, l_progress, SQLCODE
511: ||SQLERRM);
512: END IF;
513:
506: COMMIT;
507: EXCEPTION
508: WHEN OTHERS THEN
509: IF ( po_log.d_exc ) THEN
510: po_log.Exc(l_module, l_progress, SQLCODE
511: ||SQLERRM);
512: END IF;
513:
514: RAISE;
594: l_api_name VARCHAR2(30) := 'PAR_RESERVE_FUNDS';
595:
596: BEGIN
597: l_progress := '001';
598: IF ( po_log.d_stmt ) THEN
599: po_log.Stmt(l_module
600: ||l_api_name, l_progress, 'Reserve funds Started' );
601: END IF;
602:
595:
596: BEGIN
597: l_progress := '001';
598: IF ( po_log.d_stmt ) THEN
599: po_log.Stmt(l_module
600: ||l_api_name, l_progress, 'Reserve funds Started' );
601: END IF;
602:
603: Select preparer_id
605: FROM po_requisition_headers_all
606: WHERE
607: requisition_header_id = p_par_req_header_id;
608: l_progress := '002';
609: IF ( po_log.d_stmt ) THEN
610: po_log.Stmt(l_module
611: ||l_api_name, l_progress, 'p_preparer_id' || p_preparer_id );
612: END IF;
613:
606: WHERE
607: requisition_header_id = p_par_req_header_id;
608: l_progress := '002';
609: IF ( po_log.d_stmt ) THEN
610: po_log.Stmt(l_module
611: ||l_api_name, l_progress, 'p_preparer_id' || p_preparer_id );
612: END IF;
613:
614:
632: P_RESULT_STATUS := L_FC_RESULT_STATUS;
633: P_DETAILED_RESULTS := L_DETAILED_RESULTS;
634:
635: l_progress := '003';
636: IF ( po_log.d_stmt ) THEN
637: po_log.Stmt(l_module
638: ||l_api_name, l_progress, 'After Do_reserve');
639: END IF;
640:
633: P_DETAILED_RESULTS := L_DETAILED_RESULTS;
634:
635: l_progress := '003';
636: IF ( po_log.d_stmt ) THEN
637: po_log.Stmt(l_module
638: ||l_api_name, l_progress, 'After Do_reserve');
639: END IF;
640:
641: COMMIT;