28: -- 1. p_string VARCHAR2 REQUIRED
29: -- The string to be tokenized.
30: -- 2. p_delim VARCHAR2 REQUIRED
31: -- The delimiter, or token.
32: -- RETURN: A Stringarray containing the tokens of the string.
33: ----------------------------------------------------------------
34: FUNCTION Tokenize_String (p_string IN VARCHAR2,
35: p_delim IN VARCHAR2) RETURN STRINGARRAY IS
36:
31: -- The delimiter, or token.
32: -- RETURN: A Stringarray containing the tokens of the string.
33: ----------------------------------------------------------------
34: FUNCTION Tokenize_String (p_string IN VARCHAR2,
35: p_delim IN VARCHAR2) RETURN STRINGARRAY IS
36:
37: l_tokens STRINGARRAY := STRINGARRAY();
38: l_token VARCHAR2(4000);
39: l_start_index NUMBER := 1;
33: ----------------------------------------------------------------
34: FUNCTION Tokenize_String (p_string IN VARCHAR2,
35: p_delim IN VARCHAR2) RETURN STRINGARRAY IS
36:
37: l_tokens STRINGARRAY := STRINGARRAY();
38: l_token VARCHAR2(4000);
39: l_start_index NUMBER := 1;
40: l_end_index NUMBER := 1;
41: l_count NUMBER := 0;
66: --
67: -- Parameters :
68: -- IN:
69: -- 1. p_name VARCHAR2 REQUIRED
70: -- 2. p_tokens STRINGARRAY NOT REQUIRED.
71: -- The tokens for the message.
72: -- 3. p_values STRINGARRAY NOT REQUIRED.
73: -- The token values. Required if p_tokens is passed.
74: --
68: -- IN:
69: -- 1. p_name VARCHAR2 REQUIRED
70: -- 2. p_tokens STRINGARRAY NOT REQUIRED.
71: -- The tokens for the message.
72: -- 3. p_values STRINGARRAY NOT REQUIRED.
73: -- The token values. Required if p_tokens is passed.
74: --
75: -- RETURN The token-substituted message text
76: -------------------------------------------------------------
74: --
75: -- RETURN The token-substituted message text
76: -------------------------------------------------------------
77: FUNCTION Get_Msg (p_name IN VARCHAR2,
78: p_tokens IN STRINGARRAY DEFAULT NULL,
79: p_values IN STRINGARRAY DEFAULT NULL)
80: RETURN VARCHAR2 IS
81:
82: l_msg varchar2(5000);
75: -- RETURN The token-substituted message text
76: -------------------------------------------------------------
77: FUNCTION Get_Msg (p_name IN VARCHAR2,
78: p_tokens IN STRINGARRAY DEFAULT NULL,
79: p_values IN STRINGARRAY DEFAULT NULL)
80: RETURN VARCHAR2 IS
81:
82: l_msg varchar2(5000);
83:
456: p_value IN VARCHAR2) RETURN NUMBER IS
457: l_delimiter VARCHAR2(5);
458: l_id NUMBER;
459: l_class VARCHAR2(100);
460: token_tab STRINGARRAY;
461: l_value VARCHAR2(30);
462: BEGIN
463: BEGIN
464: SELECT concatenated_segment_delimiter
535: x_status OUT NOCOPY NUMBER,
536: x_error_msg OUT NOCOPY VARCHAR2) IS
537:
538: i NUMBER;
539: token_tab STRINGARRAY;
540: l_module_name CONSTANT VARCHAR2(100) := 'fte.plsql.' || G_PKG_NAME || '.GET_CATEGORY_ID';
541:
542: CURSOR get_freight_classes IS
543: SELECT c.category_id, c.concatenated_segments, c.segment1, c.segment2, c.segment3
611: Enter_Debug(l_module_name);
612: x_status := 2;
613:
614: x_error_msg := GET_MSG(p_name => 'FTE_CAT_COMMODITY_UNKNOWN',
615: p_tokens => STRINGARRAY('COMMODITY'),
616: p_values => STRINGARRAY(p_commodity_value));
617:
618: WRITE_OUTFILE(p_module_name => l_module_name,
619: p_msg => x_error_msg,
612: x_status := 2;
613:
614: x_error_msg := GET_MSG(p_name => 'FTE_CAT_COMMODITY_UNKNOWN',
615: p_tokens => STRINGARRAY('COMMODITY'),
616: p_values => STRINGARRAY(p_commodity_value));
617:
618: WRITE_OUTFILE(p_module_name => l_module_name,
619: p_msg => x_error_msg,
620: p_category => 'D');
873: -- 5. p_line_number the line number where the error occurs.
874: -------------------------------------------------------------------------------------
875:
876: PROCEDURE Write_OutFile(p_msg_name IN VARCHAR2,
877: p_tokens IN STRINGARRAY DEFAULT NULL,
878: p_values IN STRINGARRAY DEFAULT NULL,
879: p_module_name IN VARCHAR2,
880: p_category IN VARCHAR2,
881: p_line_number IN NUMBER DEFAULT NULL) IS
874: -------------------------------------------------------------------------------------
875:
876: PROCEDURE Write_OutFile(p_msg_name IN VARCHAR2,
877: p_tokens IN STRINGARRAY DEFAULT NULL,
878: p_values IN STRINGARRAY DEFAULT NULL,
879: p_module_name IN VARCHAR2,
880: p_category IN VARCHAR2,
881: p_line_number IN NUMBER DEFAULT NULL) IS
882: l_message VARCHAR2(2000);