PACKAGE: APPS.JL_ZZ_GL_SEGS_PKG

Source

1 PACKAGE jl_zz_gl_segs_pkg AUTHID CURRENT_USER AS
2 /* $Header: jlzzgsgs.pls 115.1 2002/10/08 11:20:09 rbasker ship $ */
3 
4   TYPE SegmentArray IS TABLE OF VARCHAR2(150) INDEX BY BINARY_INTEGER;
5 
6   QUOTAMARK    CONSTANT VARCHAR2(4) := '''';
7 
8   NEWLINE      CONSTANT VARCHAR2(4) := '
9 ';
10 
11   MAX_SEG_SIZE CONSTANT NUMBER := 150;
12 
13   -- Get segments
14   CURSOR seg (app_id   NUMBER,
15               cht_id   NUMBER,
16               seg_type VARCHAR2) IS
17   SELECT segment_num,
18          application_column_name
19     FROM fnd_id_flex_segments
20    WHERE (application_id, id_flex_code,
21           id_flex_num, application_column_name) =
22          (SELECT application_id, id_flex_code,
23                  id_flex_num, application_column_name
24             FROM fnd_segment_attribute_values a
25            WHERE application_id         = app_id
26              AND id_flex_code           = 'GL#'
27              AND id_flex_num            = cht_id
28              AND segment_attribute_type = seg_type
29              AND attribute_value        = 'Y');
30 
31   -- Build all of the concatened segments
32   FUNCTION get_columns (structure_number IN NUMBER,   -- key flexfield structure number
33                         alias            IN VARCHAR2, -- table alias
34                         segment          IN VARCHAR2, -- Flexfield segment (ALL,GL_ACCOUNT)
35                         descriptor       IN VARCHAR2) -- segment descriptor (LOW,HIGH,TYPE)
36   RETURN VARCHAR2;
37 
38   -- Assemble WHERE segment BETWEEN 'value1' AND 'value2' with connect segments
39   FUNCTION get_between (structure_number IN NUMBER,   -- key flexfield structure number
40                         alias            IN VARCHAR2, -- table alias
41                         catseg1          IN VARCHAR2, -- Concatenated segments low
42                         catseg2          IN VARCHAR2, -- Concatenated segments high
43                         segment          IN VARCHAR2) -- Flexfield segment (ALL,GL_ACCOUNT)
44   RETURN VARCHAR2;
45 
46 END jl_zz_gl_segs_pkg;