[Home] [Help]
PACKAGE BODY: APPS.OE_UI_QUERIES_PKG
Source
1 package body OE_UI_QUERIES_PKG as
2 /* $Header: OEXVUIQB.pls 120.1 2005/09/06 14:44:53 jvicenti noship $ */
3 procedure INSERT_ROW (
4 X_QUERY_ID in NUMBER,
5 X_PUBLIC_FLAG in VARCHAR2,
6 X_LINES_WHERE_CLAUSE in VARCHAR2,
7 X_HEADERS_WHERE_CLAUSE in VARCHAR2,
8 X_ADV_HDR_WHERE_CLAUSE in VARCHAR2,
9 X_ADV_LIN_WHERE_CLAUSE in VARCHAR2,
10 X_HOLDS_WHERE_CLAUSE in VARCHAR2,
11 X_NAME in VARCHAR2,
12 X_CREATION_DATE in DATE,
13 X_CREATED_BY in NUMBER,
14 X_LAST_UPDATE_DATE in DATE,
15 X_LAST_UPDATED_BY in NUMBER,
16 X_LAST_UPDATE_LOGIN in NUMBER,
17 X_ORG_ACCESS_TYPE in VARCHAR2 default NULL,
18 X_ORG_ID in NUMBER default NULL
19 ) is
20 X_ROWID ROWID;
21 cursor C is select ROWID from OE_UI_QUERIES_TL
22 where QUERY_ID = X_QUERY_ID
23 and LANGUAGE = userenv('LANG')
24 ;
25 begin
26 insert into OE_UI_QUERIES_TL (
27 CREATION_DATE,
28 CREATED_BY,
29 LAST_UPDATE_DATE,
30 LAST_UPDATED_BY,
31 LAST_UPDATE_LOGIN,
32 PUBLIC_FLAG,
33 LINES_WHERE_CLAUSE,
34 QUERY_ID,
35 NAME,
36 HEADERS_WHERE_CLAUSE,
37 ADV_HDR_WHERE_CLAUSE,
38 ADV_LIN_WHERE_CLAUSE,
39 HOLDS_WHERE_CLAUSE,
40 LANGUAGE,
41 SOURCE_LANG,
42 ORG_ACCESS_TYPE,
43 ORG_ID
44 ) Values
45 ( X_CREATION_DATE,
46 X_CREATED_BY,
47 X_LAST_UPDATE_DATE,
48 X_LAST_UPDATED_BY,
49 X_LAST_UPDATE_LOGIN,
50 X_PUBLIC_FLAG,
51 X_LINES_WHERE_CLAUSE,
52 X_QUERY_ID,
53 X_NAME,
54 X_HEADERS_WHERE_CLAUSE,
55 X_ADV_HDR_WHERE_CLAUSE,
56 X_ADV_LIN_WHERE_CLAUSE,
57 X_HOLDS_WHERE_CLAUSE,
58 USERENV('LANG'),
59 USERENV('LANG'),
60 X_ORG_ACCESS_TYPE,
61 X_ORG_ID
62 );
63 open c;
64 fetch c into X_ROWID;
65 if (c%notfound) then
66 close c;
67 raise no_data_found;
68 end if;
69 close c;
70
71 end INSERT_ROW;
72
73 procedure LOCK_ROW (
74 X_QUERY_ID in NUMBER,
75 X_PUBLIC_FLAG in VARCHAR2 DEFAULT NULL,
76 X_NAME in VARCHAR2 DEFAULT NULL
77 ) is
78 cursor c1 is select
79 PUBLIC_FLAG,
80 NAME,
81 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
82 from OE_UI_QUERIES_TL
83 where QUERY_ID = X_QUERY_ID
84 for update of QUERY_ID nowait;
85 begin
86 for tlinfo in c1 loop
87 if x_public_flag is not null and x_name is not null then
88 if (tlinfo.BASELANG = 'Y') then
89 if ( (tlinfo.NAME = X_NAME)
90 AND (tlinfo.PUBLIC_FLAG = X_PUBLIC_FLAG)
91 ) then
92 null;
93 else
94 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
95 app_exception.raise_exception;
96 end if;
97 end if;
98 end if;
99 end loop;
100 return;
101 end LOCK_ROW;
102
103 procedure UPDATE_ROW (
104 X_QUERY_ID in NUMBER,
105 X_DELETE_FLAG in VARCHAR2,
106 X_PUBLIC_FLAG in VARCHAR2,
107 X_NAME in VARCHAR2,
108 X_LAST_UPDATE_DATE in DATE,
109 X_LAST_UPDATED_BY in NUMBER,
110 X_LAST_UPDATE_LOGIN in NUMBER
111 ) is
112 begin
113 update OE_UI_QUERIES_TL set
114 DELETE_FLAG = X_DELETE_FLAG,
115 PUBLIC_FLAG = X_PUBLIC_FLAG,
116 NAME = X_NAME,
117 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
118 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
119 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
120 SOURCE_LANG = Userenv('LANG')
121 where QUERY_ID = X_QUERY_ID
122 and userenv('LANG') = LANGUAGE;
123
124 if (sql%notfound) then
125 raise no_data_found;
126 end if;
127 end UPDATE_ROW;
128
129 procedure DELETE_ROW (
130 X_QUERY_ID in NUMBER
131 ) is
132 begin
133 delete from OE_UI_QUERIES_TL
134 where QUERY_ID = X_QUERY_ID;
135
136 if (sql%notfound) then
137 raise no_data_found;
138 end if;
139
140 end DELETE_ROW;
141 procedure Insert_Columns(
142 p_header_column_tbl IN UI_TREE_TBL,
143 p_query_id IN Number
144 ) is
145 i Number;
146 Begin
147 if p_header_column_tbl.count>0 then
148 for i in p_header_column_tbl.first .. p_header_column_tbl.last loop
149 Insert_row_columns
150 (
151 p_header_column_tbl(i).column_name,
152 p_header_column_tbl(i).column_value,
153 p_header_column_tbl(i).column_type,
154 p_header_column_tbl(i).column_index_id,
155 p_query_id
156 );
157
158 end loop;
159 end if;
160
161 end Insert_columns;
162
163 procedure INSERT_ROW_COLUMNS(
164 p_column_name IN varchar2,
165 p_column_value IN varchar2,
166 p_column_data_type IN varchar2,
167 p_column_index_id IN number,
168 p_query_id IN number
169 ) IS
170 l_column_id Number;
171 BEGIN
172 Select oe_ui_query_columns_s.nextval
173 Into l_column_id
174 From dual;
175 INSERT INTO OE_UI_QUERY_COLUMNS
176 (
177 COLUMN_ID,
178 QUERY_ID,
179 QUERY_COLUMN_INDEX_ID,
180 COLUMN_NAME,
181 COLUMN_VALUE,
182 COLUMN_TYPE,
183 OVERRIDE_FLAG,
184 CREATION_DATE,
185 CREATED_BY,
186 LAST_UPDATE_DATE,
187 LAST_UPDATED_BY
188 )
189 VALUES
190 (l_column_id,
191 p_query_id,
192 p_column_index_id,
193 p_column_name,
194 p_column_value,
195 p_column_data_type,
196 Null,
197 sysdate,
198 FND_GLOBAL.USER_ID,
199 sysdate,
200 FND_GLOBAL.USER_ID
201 );
202
203 END INSERT_ROW_COLUMNS;
204
205
206 procedure ADD_LANGUAGE
207 is
208 begin
209 Null;
210 end ADD_LANGUAGE;
211
212 end OE_UI_QUERIES_PKG;