[Home] [Help]
Skip to content
PACKAGE: APPS.BIS_VG_LOOKUP
Source
1 PACKAGE BIS_VG_LOOKUP AUTHID CURRENT_USER AS
2 /* $Header: BISTLATS.pls 115.7 2002/03/27 08:18:38 pkm ship $ */
3
4 -- Copyright (c) 1998 Oracle Corporation, Redwood Shores, CA, USA
5 -- All rights reserved.
6 --
7 -- FILENAME
8 --
9 -- BISTLATS.pls
10 --
11 -- DESCRIPTION
12 --
13 -- specification of view genrator to substitute lookup type
14 --
15 -- NOTES
16 --
17 -- HISTORY
18 --
19 -- 23-JUL-98 Created
20 -- 10-DEC-01 Edited by DBOWLES Added db driver comment
21 --
22 --
23 --
24 --
25 /* ============================================================================
26 PROCEDURE : add_Lookup_Info
27 PARAMETERS:
28 1. p_View_Column_Table table of varchars to hold columns OF view text
29 2. p_View_Select_Table table of varchars to hold SELECT clause of view
30 3. p_Mode mode of execution of the program
31 3. p_Column_Pointer pointer to the lookup column in column table
32 4. p_Select_Pointer pointer to the select clause
33 5. p_From_Pointer pointer to the corresponding from clause
34 6. x_Column_Table table of varchars to hold additional columns
35 7. x_Select_Table table of varchars to hold additional columns
36 8. x_Column_Pointer pointer to the character after the delimiter
37 (column table)
38 9. x_Select_Pointer pointer to the character after the delimiter
39 (select table)
40 10. x_return_status error or normal
41 11. x_error_Tbl table of error messages
42
43 COMMENT : Call this procedure to add a particular lookup information
44 to a view.
45 EXCEPTION : None
46 ===========================================================================*/
47 PROCEDURE add_Lookup_Info
48 ( p_View_Column_Table IN BIS_VG_TYPES.View_Text_Table_Type
49 , p_View_Select_Table IN BIS_VG_TYPES.View_Text_Table_Type
50 , p_Mode IN NUMBER
51 , p_Column_Pointer IN BIS_VG_TYPES.View_Character_Pointer_Type
52 , p_Select_Pointer IN BIS_VG_TYPES.View_Character_Pointer_Type
53 , x_Column_Table OUT BIS_VG_TYPES.View_Text_Table_Type
54 , x_Select_Table OUT BIS_VG_TYPES.View_Text_Table_Type
55 , x_Column_Pointer OUT BIS_VG_TYPES.View_Character_Pointer_Type
56 , x_Select_Pointer OUT BIS_VG_TYPES.View_Character_Pointer_Type
57 , x_return_status OUT VARCHAR2
58 , x_error_Tbl OUT BIS_VG_UTIL.Error_Tbl_Type
59 );
60
61 --============================================================================
62 --PROCEDURE : parse_LA_select
63 -- PARAMETERS:
64 -- 1. p_View_Select_Table table of varchars to hold select OF view text
65 -- 2. p_Select_Pointer pointer to the lookup column in select table
66 -- 3. x_expr PL-SQL expression or column name
67 -- 4. x_lookup_table Lookup table to insert in select
68 -- 5. x_lookup_type Lookup code in the lookup table
69 -- 6. x_lookup_column name of column in lookup table
70 -- 7. x_Select_Pointer pointer to the character after the delimiter
71 -- (select table)
72 -- 8. x_return_status error or normal
73 -- 9. x_error_Tbl table of error messages
74 ----
75 -- COMMENT : Call this procedure to add a particular lookup select
76 -- information to a view.
77 --EXCEPTION : None
78 -- ==========================================================================
79 PROCEDURE parse_LA_select
80 ( p_View_Select_Table IN BIS_VG_TYPES.View_Text_Table_Type
81 , p_Select_Pointer IN BIS_VG_TYPES.View_Character_Pointer_Type
82 , x_expr OUT VARCHAR2
83 , x_lookup_table OUT VARCHAR2
84 , x_lookup_type OUT VARCHAR2
85 , x_lookup_column OUT VARCHAR2
86 , x_Select_Pointer OUT BIS_VG_TYPES.View_Character_Pointer_Type
87 , x_return_status OUT VARCHAR2
88 , x_error_Tbl OUT BIS_VG_UTIL.Error_Tbl_Type
89 );
90
91 --
92 /*============================================================================
93 EXCEPTIONS
94 ===========================================================================*/
95 -- MALFORMED_LAT_COL_TAG EXCEPTION;
96 -- MALFORMED_LAT_SEL_TAG_NO_EXPR EXCEPTION;
97 -- MALFORMED_LAT_SEL_TAG_NO_TABLE EXCEPTION;
98 -- MALFORMED_LAT_SEL_TAG_NO_TYPE EXCEPTION;
99 -- MALFORMED_LAT_SEL_TAG_NO_COL EXCEPTION;
100 -- LAT_INVALID_LOOKUP_TYPE EXCEPTION;
101
102 LAT_COL_TAG_EXP_MSG CONSTANT VARCHAR2(50)
103 := 'BIS_VG_MALFORMED_LAT_COL_TAG';
104
105 LAT_COL_TAG_EXP_NO_EXP_MSG CONSTANT VARCHAR2(50)
106 := 'BIS_VG_LAT_SEL_MISSING_EXP';
107
108 LAT_SEL_TAG_EXP_NO_TABLE_MSG CONSTANT VARCHAR2(50)
109 := 'BIS_VG_LAT_SEL_MISSING_TABLE';
110
111 LAT_SEL_TAG_EXP_NO_TYPE_MSG CONSTANT VARCHAR2(50)
112 := 'BIS_VG_LAT_SEL_MISSING_TYPE';
113
114 LAT_SEL_TAG_EXP_NO_COL_MSG CONSTANT VARCHAR2(50)
115 := 'BIS_VG_LAT_SEL_MISSING_COL';
116 LAT_SEL_TAG_UNDEF_TAB CONSTANT VARCHAR2(50)
117 := 'BIS_VG_LAT_SEL_UNDEF_TAB_COL';
118
119 LAT_INVALID_LOOKUP_TYPE_MSG CONSTANT VARCHAR2(50)
120 := 'BIS_VG_LAT_INVALID_LKUP_TYPE';
121
122 --
123 END BIS_VG_LOOKUP;