[Home] [Help]
PACKAGE: APPS.BIS_VG_KEY_FLEX
Source
4 -- Copyright (c) 1998 Oracle Corporation, Redwood Shores, CA, USA
1 PACKAGE BIS_VG_KEY_FLEX AUTHID CURRENT_USER AS
2 /* $Header: BISTKFXS.pls 115.18 2002/03/27 08:18:37 pkm ship $ */
3
5 --- All rights reserved.
6 ---
7 --- FILENAME
8 ---
9 --- BISTKFXS.pls
10 ---
11 --- DESCRIPTION
12 ---
13 --- specification of package which handles key flexfield tags
14 ---
15 --- NOTES
16 ---
17 --- HISTORY
18 ---
19 --- 29-JUL-98 Created
20 --- 19-MAR-99 Edited by WNASRALL@US for exception handling
21 --- 21-Apr-99 Edited by WNASRALL@US to re-use exception definition
22 --- for missing fields
23 --- 10-NOV-00 Edited by WNASRALL@US to add new function generate_pruned_view
24 --- 06-APR-01 Edited by DBOWLES. modified add_key_flex_info parameter list. Added
25 --- x_Column_Comment_Table.
26 --- 10-DEC-01 Edited by DBOWLES Added db driver comment
27 ---
28 ---
29 --- =====================================================================================
30 --- PROCEDURE : add_Key_Flex_Info
31 --- PARAMETERS: 1. p_View_Column_Table table of varchars to hold columns of view text
32 --- 2. p_View_Select_Table table of varchars to hold select clause of view
33 --- 3. p_Mode mode of the program
34 --- 4. p_column_table List of columns for calls from generate_pruned_view
35 --- 5. p_Column_Pointer pointer to the key flex column in column table
36 --- 6. p_Select_Pointer pointer to the select clause
37 --- 7. p_From_Pointer pointer to the corresponding from clause
38 --- 8. x_Column_Table table of varchars to hold additional columns
39 --- 9. x_Select_Table table of varchars to hold additional columns
40 --- 10. x_Column_Comment_Table table to store flex column data to be used
41 --- to comment the flex columns of the generated view
42 --- 11. x_Column_Pointer pointer to the character after the delimiter
43 --- (column table)
44 --- 12. x_Select_Pointer pointer to the character after the delimiter
45 --- (select table)
46 --- 13. x_return_status error or normal
47 --- 14. x_error_Tbl table of error messages
48 ---
49 --- COMMENT : Call this procedure to add particular key flexfield information to a view.
50 --- --- EXCEPTION : FND_API.G_EXC_UNEXPECTED_ERROR
51 --- FND_API.G_EXC_ERROR;
52 --- ==================================================================================== */
53 PROCEDURE add_Key_Flex_Info
54 ( p_View_Column_Table IN BIS_VG_TYPES.View_Text_Table_Type
55 , p_View_Select_Table IN BIS_VG_TYPES.View_Text_Table_Type
56 , p_Mode IN NUMBER
57 , p_column_table IN BIS_VG_TYPES.flexfield_column_table_type
58 , p_Column_Pointer IN BIS_VG_TYPES.View_Character_Pointer_Type
59 , p_Select_Pointer IN BIS_VG_TYPES.View_Character_Pointer_Type
60 , p_From_Pointer IN BIS_VG_TYPES.View_Character_Pointer_Type
61 , x_Column_Table OUT BIS_VG_TYPES.View_Text_Table_Type
62 , x_Select_Table OUT BIS_VG_TYPES.View_Text_Table_Type
63 , x_Column_Comment_Table OUT BIS_VG_TYPES.Flex_Column_Comment_Table_Type
64 , x_Column_Pointer OUT BIS_VG_TYPES.View_Character_Pointer_Type
65 , x_Select_Pointer OUT BIS_VG_TYPES.View_Character_Pointer_Type
66 , x_return_status OUT VARCHAR2
67 , x_error_Tbl OUT BIS_VG_UTIL.Error_Tbl_Type
68 );
69
70 --- ============================================================================
71 --- PROCEDURE : parse_KF_Select_Line
72 --- PARAMETERS: 1. p_View_Select_Table table of varchars to hold select clause
73 --- of view text
74 --- 2. p_Select_Pointer pointer to the key flex column in select
75 --- table (IN)
76 --- 3. x_Select_Pointer pointer to the char after the delimiter in
77 --- select table (OUT)
78 --- 4. x_PLSQL_Expression PL/SQL expression
79 --- 5. x_Application_Name Application Name
80 --- 6. x_Key_Flex_Code Key Flexfield code
81 --- 7. x_Table_Alias Table alias
82 --- 8. x_Structure_Column Structure Column Name
83 --- 9. x_return_status error or normal
84 --- 10. x_error_Tbl table of error messages
85 --- COMMENT : Call this procedure to parse the KF selected tag.
86 --- EXCEPTION : FND_API.G_EXC_UNEXPECTED_ERROR
87 --- FND_API.G_EXC_ERROR;
88 --- =============================================================================
89 PROCEDURE parse_KF_Select_Line
90 ( p_View_Select_Table IN bis_vg_types.View_Text_Table_Type
91 , p_Select_Pointer IN bis_vg_types.View_Character_Pointer_Type
92 , x_Select_Pointer OUT bis_vg_types.View_Character_Pointer_Type
93 , x_PLSQL_Expression OUT VARCHAR2
94 , x_Application_Name OUT VARCHAR2
95 , x_Key_Flex_Code OUT VARCHAR2
96 , x_Table_Alias OUT VARCHAR2
97 , x_Structure_Column OUT VARCHAR2
98 , x_DUMMY_flag OUT BOOLEAN
99 , x_return_status OUT VARCHAR2
100 , x_error_Tbl OUT BIS_VG_UTIL.Error_Tbl_Type
101 );
102
103
104
105
106 --
107 --============================================================================
108 -- Exceptions for the package
109 --============================================================================
110 --
111
112 KFX_COL_TAG_EXP_NO_SEG_MSG CONSTANT VARCHAR2(50)
113 := 'BIS_VG_KFX_COL_MISSING_SEG';
114
115 KFX_COL_TAG_EXP_BAD_FLAG_MSG CONSTANT VARCHAR2(50)
116 := 'BIS_VG_KFX_COL_BAD_FLAG';
117
118 KFX_COL_TAG_PREF_CO_MSG CONSTANT VARCHAR2(50)
119 := 'BIS_VG_KFX_COL_PREF_CO';
120
121 KFX_SEL_TAG_EXP_NO_FIELD_MSG CONSTANT VARCHAR2(50)
122 := 'BIS_VG_KFX_SEL_MISSING_FIELD';
123
124 KFX_SEL_TAG_EXP_INVALID_APP CONSTANT VARCHAR2(50)
125 := 'BIS_VG_KFX_SEL_INVALID_APP';
126
127 NO_SEGMENTS_IN_KEY_FLEX EXCEPTION;
128 NO_SEGMENTS_IN_KEY_FLEX_MSG CONSTANT VARCHAR2(50)
129 := 'BIS_VG_NO_SEGMENTS_IN_KEY_FLEX';
130
131 MALFORMED_KFX_SEL_TAG_NO_FIELD EXCEPTION;
132 --============================================================================
133 -- UNUSED Exceptions
134 --============================================================================
135
136 -- MALFORMED_KFX_COL_TAG_NO_SEG EXCEPTION;
137 -- MALFORMED_KFX_COL_TAG_BAD_FLAG EXCEPTION;
141 -- MALFORMED_KFX_SEL_TAG_NO_TBALS EXCEPTION;
138 -- MALFORMED_KFX_COL_TAG_PREF_CO EXCEPTION;
139 -- MALFORMED_KFX_SEL_TAG_NO_APP EXCEPTION;
140 -- MALFORMED_KFX_SEL_TAG_NO_NAME EXCEPTION;
142 -- MALFORMED_KFX_SEL_TAG_NO_EXPR EXCEPTION;
143 -- NO_SEGMENTS_IN_KEY_FLEX EXCEPTION;
144 -- KFX_SEL_TAG_EXP_NO_APP_MSG CONSTANT VARCHAR2(50)
145 -- := 'BIS_VG_KFX_SEL_MISSING_APP';
146 --
147 -- KFX_SEL_TAG_EXP_NO_TBALS_MSG CONSTANT VARCHAR2(50)
148 -- := 'BIS_VG_KFX_SEL_MISSING_TBALS';
149 --
150 -- KFX_SEL_TAG_EXP_NO_NAME_MSG CONSTANT VARCHAR2(50)
151 -- := 'BIS_VG_KFX_SEL_MISSING_NAME';
152 --
153 -- KFX_SEL_TAG_EXP_NO_EXPR_MSG CONSTANT VARCHAR2(50)
154 -- := 'BIS_VG_KFX_SEL_MISSING_EXPR';
155
156
157 END BIS_VG_KEY_FLEX;