[Home] [Help]
1: PACKAGE BODY pon_clo_renumber_pkg AS
2: /* $Header: PONCLORNB.pls 120.27.12020000.2 2013/02/09 08:50:06 hvutukur ship $ */
3:
4: -----------------------------------------------------------------
5: FUNCTION sort_table(LineArray PO_TBL_VARCHAR100)
6: RETURN PO_TBL_VARCHAR100
7: IS
8: l_sortedArray PO_TBL_VARCHAR100;
9: BEGIN
2: /* $Header: PONCLORNB.pls 120.27.12020000.2 2013/02/09 08:50:06 hvutukur ship $ */
3:
4: -----------------------------------------------------------------
5: FUNCTION sort_table(LineArray PO_TBL_VARCHAR100)
6: RETURN PO_TBL_VARCHAR100
7: IS
8: l_sortedArray PO_TBL_VARCHAR100;
9: BEGIN
10:
4: -----------------------------------------------------------------
5: FUNCTION sort_table(LineArray PO_TBL_VARCHAR100)
6: RETURN PO_TBL_VARCHAR100
7: IS
8: l_sortedArray PO_TBL_VARCHAR100;
9: BEGIN
10:
11: SELECT a.column_value line
12: BULK COLLECT INTO l_sortedArray
315: since the ALL_NUMBERS array is gapless.
316:
317: Assumption - The input Array is already in sorted order.
318: ***************************************************************************************/
319: FUNCTION NEXT_CLIN_NUM (ASSIGNED_NUM_ARRAY PO_TBL_VARCHAR100)
320: return VARCHAR2
321: IS
322:
323: ALL_NUMBERS PO_TBL_VARCHAR100;
319: FUNCTION NEXT_CLIN_NUM (ASSIGNED_NUM_ARRAY PO_TBL_VARCHAR100)
320: return VARCHAR2
321: IS
322:
323: ALL_NUMBERS PO_TBL_VARCHAR100;
324: ASSIGNED_NUM_ARRAY_PTR NUMBER;
325: ALL_NUMBERS_PTR NUMBER;
326: SORTED_ASSIGNED_NUM_ARRAY PO_TBL_VARCHAR100;
327:
322:
323: ALL_NUMBERS PO_TBL_VARCHAR100;
324: ASSIGNED_NUM_ARRAY_PTR NUMBER;
325: ALL_NUMBERS_PTR NUMBER;
326: SORTED_ASSIGNED_NUM_ARRAY PO_TBL_VARCHAR100;
327:
328: BEGIN
329: IF ASSIGNED_NUM_ARRAY.Count > 9999 THEN
330: RAISE INVALID_INPUT_CLIN_ARRAY;
442:
443: FUNCTION NEXT_CLIN_NUM_WRAPPER(p_Document_ID IN NUMBER,
444: p_product_code IN VARCHAR2) RETURN VARCHAR2
445: IS
446: tbl PO_TBL_VARCHAR100;
447: next_clin VARCHAR2(6);
448: lines_tbl_name VARCHAR2(50);
449: doc_id_col VARCHAR2(50);
450: lineid_col VARCHAR2(50);
632: This is to get latest possible next clin number.
633: */
634: FUNCTION NEXT_CLIN_NUM_WRAPPER2(p_Document_ID IN NUMBER,
635: p_product_code IN VARCHAR2,
636: new_lines IN PO_TBL_VARCHAR100) RETURN VARCHAR2
637: IS
638: tbl PO_TBL_VARCHAR100;
639: next_clin VARCHAR2(6);
640: lines_tbl_name VARCHAR2(50);
634: FUNCTION NEXT_CLIN_NUM_WRAPPER2(p_Document_ID IN NUMBER,
635: p_product_code IN VARCHAR2,
636: new_lines IN PO_TBL_VARCHAR100) RETURN VARCHAR2
637: IS
638: tbl PO_TBL_VARCHAR100;
639: next_clin VARCHAR2(6);
640: lines_tbl_name VARCHAR2(50);
641: doc_id_col VARCHAR2(50);
642: lineid_col VARCHAR2(50);
643: exhibit_col VARCHAR2(50);
644:
645: line_num_tbl_qry VARCHAR2(1000);
646:
647: union_table PO_TBL_VARCHAR100;
648: BEGIN
649: setProductContext(p_product_code,lines_tbl_name,doc_id_col,lineid_col,exhibit_col);
650: IF(p_product_code = 'PO' OR p_product_code = 'PON') then
651: line_num_tbl_qry := 'select line_num_display from ' || lines_tbl_name
965:
966: l_infoSlinNum VARCHAR2(100);
967: l_PriceSlinNum VARCHAR2(100);
968:
969: slins po_tbl_varchar100 := po_tbl_varchar100();
970: newslin VARCHAR2(6);
971:
972: l_fnd_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
973: l_pkg_name CONSTANT VARCHAR2(30) := 'PON_CLO_RENUMBER_PKG';
1406: FUNCTION NEXT_CLIN_NUM_WRAPPER3(p_bid_number IN NUMBER,
1407: P_auction_id IN NUMBER,
1408: p_product_code IN VARCHAR2) RETURN VARCHAR2
1409: IS
1410: tbl PO_TBL_VARCHAR100;
1411: next_clin VARCHAR2(6);
1412: lines_tbl_name VARCHAR2(50);
1413: doc_id_col VARCHAR2(50);
1414: lineid_col VARCHAR2(50);