120: X_Table_Name => table_name,
121: X_Where_Clause => where_clause);
122: query_stat := 'SELECT '||name_column||' FROM '||table_name||
123: ' WHERE '||id_column||'= :1';
124: c := dbms_sql.open_cursor;
125: dbms_sql.parse(c,query_stat,dbms_sql.native);
126: dbms_sql.bind_variable(c, ':1', X_Obj_Key );
127: dbms_sql.define_column(c,1,name_val,30);
128: ignore := dbms_sql.execute(c);
121: X_Where_Clause => where_clause);
122: query_stat := 'SELECT '||name_column||' FROM '||table_name||
123: ' WHERE '||id_column||'= :1';
124: c := dbms_sql.open_cursor;
125: dbms_sql.parse(c,query_stat,dbms_sql.native);
126: dbms_sql.bind_variable(c, ':1', X_Obj_Key );
127: dbms_sql.define_column(c,1,name_val,30);
128: ignore := dbms_sql.execute(c);
129: LOOP
122: query_stat := 'SELECT '||name_column||' FROM '||table_name||
123: ' WHERE '||id_column||'= :1';
124: c := dbms_sql.open_cursor;
125: dbms_sql.parse(c,query_stat,dbms_sql.native);
126: dbms_sql.bind_variable(c, ':1', X_Obj_Key );
127: dbms_sql.define_column(c,1,name_val,30);
128: ignore := dbms_sql.execute(c);
129: LOOP
130: IF(dbms_sql.fetch_rows(c)>0)THEN
123: ' WHERE '||id_column||'= :1';
124: c := dbms_sql.open_cursor;
125: dbms_sql.parse(c,query_stat,dbms_sql.native);
126: dbms_sql.bind_variable(c, ':1', X_Obj_Key );
127: dbms_sql.define_column(c,1,name_val,30);
128: ignore := dbms_sql.execute(c);
129: LOOP
130: IF(dbms_sql.fetch_rows(c)>0)THEN
131: dbms_sql.column_value(c,1,name_val);
124: c := dbms_sql.open_cursor;
125: dbms_sql.parse(c,query_stat,dbms_sql.native);
126: dbms_sql.bind_variable(c, ':1', X_Obj_Key );
127: dbms_sql.define_column(c,1,name_val,30);
128: ignore := dbms_sql.execute(c);
129: LOOP
130: IF(dbms_sql.fetch_rows(c)>0)THEN
131: dbms_sql.column_value(c,1,name_val);
132: object_name := name_val;
126: dbms_sql.bind_variable(c, ':1', X_Obj_Key );
127: dbms_sql.define_column(c,1,name_val,30);
128: ignore := dbms_sql.execute(c);
129: LOOP
130: IF(dbms_sql.fetch_rows(c)>0)THEN
131: dbms_sql.column_value(c,1,name_val);
132: object_name := name_val;
133: ELSE
134: EXIT;
127: dbms_sql.define_column(c,1,name_val,30);
128: ignore := dbms_sql.execute(c);
129: LOOP
130: IF(dbms_sql.fetch_rows(c)>0)THEN
131: dbms_sql.column_value(c,1,name_val);
132: object_name := name_val;
133: ELSE
134: EXIT;
135: END IF;
133: ELSE
134: EXIT;
135: END IF;
136: END LOOP;
137: dbms_sql.close_cursor(c);---Added for bug 8526480
138: RETURN object_name;
139: END get_object_name;
140:
141:
160: X_Table_Name => table_name,
161: X_Where_Clause => where_clause);
162: query_stat := 'SELECT '||id_column||' FROM '||table_name||
163: ' WHERE '||name_column||'= :1';
164: c := dbms_sql.open_cursor;
165: dbms_sql.parse(c,query_stat,dbms_sql.native);
166: dbms_sql.bind_variable(c, ':1', X_Obj_Name);
167: dbms_sql.define_column(c,1,name_val,30);
168: ignore := dbms_sql.execute(c);
161: X_Where_Clause => where_clause);
162: query_stat := 'SELECT '||id_column||' FROM '||table_name||
163: ' WHERE '||name_column||'= :1';
164: c := dbms_sql.open_cursor;
165: dbms_sql.parse(c,query_stat,dbms_sql.native);
166: dbms_sql.bind_variable(c, ':1', X_Obj_Name);
167: dbms_sql.define_column(c,1,name_val,30);
168: ignore := dbms_sql.execute(c);
169: LOOP
162: query_stat := 'SELECT '||id_column||' FROM '||table_name||
163: ' WHERE '||name_column||'= :1';
164: c := dbms_sql.open_cursor;
165: dbms_sql.parse(c,query_stat,dbms_sql.native);
166: dbms_sql.bind_variable(c, ':1', X_Obj_Name);
167: dbms_sql.define_column(c,1,name_val,30);
168: ignore := dbms_sql.execute(c);
169: LOOP
170: IF(dbms_sql.fetch_rows(c)>0)THEN
163: ' WHERE '||name_column||'= :1';
164: c := dbms_sql.open_cursor;
165: dbms_sql.parse(c,query_stat,dbms_sql.native);
166: dbms_sql.bind_variable(c, ':1', X_Obj_Name);
167: dbms_sql.define_column(c,1,name_val,30);
168: ignore := dbms_sql.execute(c);
169: LOOP
170: IF(dbms_sql.fetch_rows(c)>0)THEN
171: dbms_sql.column_value(c,1,name_val);
164: c := dbms_sql.open_cursor;
165: dbms_sql.parse(c,query_stat,dbms_sql.native);
166: dbms_sql.bind_variable(c, ':1', X_Obj_Name);
167: dbms_sql.define_column(c,1,name_val,30);
168: ignore := dbms_sql.execute(c);
169: LOOP
170: IF(dbms_sql.fetch_rows(c)>0)THEN
171: dbms_sql.column_value(c,1,name_val);
172: object_key := name_val;
166: dbms_sql.bind_variable(c, ':1', X_Obj_Name);
167: dbms_sql.define_column(c,1,name_val,30);
168: ignore := dbms_sql.execute(c);
169: LOOP
170: IF(dbms_sql.fetch_rows(c)>0)THEN
171: dbms_sql.column_value(c,1,name_val);
172: object_key := name_val;
173: ELSE
174: EXIT;
167: dbms_sql.define_column(c,1,name_val,30);
168: ignore := dbms_sql.execute(c);
169: LOOP
170: IF(dbms_sql.fetch_rows(c)>0)THEN
171: dbms_sql.column_value(c,1,name_val);
172: object_key := name_val;
173: ELSE
174: EXIT;
175: END IF;
173: ELSE
174: EXIT;
175: END IF;
176: END LOOP;
177: dbms_sql.close_cursor(c);---Added for bug 8526480
178: RETURN object_key;
179: END get_object_key;
180:
181: PROCEDURE secure_object (X_Obj_Type VARCHAR2,
208: X_Table_Name => table_name,
209: X_Where_Clause => where_clause);
210: query_stat := 'SELECT security_flag FROM '||table_name||
211: ' WHERE to_char('||id_column||')= :1';
212: c := dbms_sql.open_cursor;
213: dbms_sql.parse(c,query_stat,dbms_sql.native);
214: dbms_sql.bind_variable(c, ':1', X_Obj_Key);
215: dbms_sql.define_column(c,1,securityFlag,1);
216: ignore := dbms_sql.execute(c);
209: X_Where_Clause => where_clause);
210: query_stat := 'SELECT security_flag FROM '||table_name||
211: ' WHERE to_char('||id_column||')= :1';
212: c := dbms_sql.open_cursor;
213: dbms_sql.parse(c,query_stat,dbms_sql.native);
214: dbms_sql.bind_variable(c, ':1', X_Obj_Key);
215: dbms_sql.define_column(c,1,securityFlag,1);
216: ignore := dbms_sql.execute(c);
217: LOOP
210: query_stat := 'SELECT security_flag FROM '||table_name||
211: ' WHERE to_char('||id_column||')= :1';
212: c := dbms_sql.open_cursor;
213: dbms_sql.parse(c,query_stat,dbms_sql.native);
214: dbms_sql.bind_variable(c, ':1', X_Obj_Key);
215: dbms_sql.define_column(c,1,securityFlag,1);
216: ignore := dbms_sql.execute(c);
217: LOOP
218: IF(dbms_sql.fetch_rows(c)>0)THEN
211: ' WHERE to_char('||id_column||')= :1';
212: c := dbms_sql.open_cursor;
213: dbms_sql.parse(c,query_stat,dbms_sql.native);
214: dbms_sql.bind_variable(c, ':1', X_Obj_Key);
215: dbms_sql.define_column(c,1,securityFlag,1);
216: ignore := dbms_sql.execute(c);
217: LOOP
218: IF(dbms_sql.fetch_rows(c)>0)THEN
219: dbms_sql.column_value(c,1,securityFlag);
212: c := dbms_sql.open_cursor;
213: dbms_sql.parse(c,query_stat,dbms_sql.native);
214: dbms_sql.bind_variable(c, ':1', X_Obj_Key);
215: dbms_sql.define_column(c,1,securityFlag,1);
216: ignore := dbms_sql.execute(c);
217: LOOP
218: IF(dbms_sql.fetch_rows(c)>0)THEN
219: dbms_sql.column_value(c,1,securityFlag);
220: ELSE
214: dbms_sql.bind_variable(c, ':1', X_Obj_Key);
215: dbms_sql.define_column(c,1,securityFlag,1);
216: ignore := dbms_sql.execute(c);
217: LOOP
218: IF(dbms_sql.fetch_rows(c)>0)THEN
219: dbms_sql.column_value(c,1,securityFlag);
220: ELSE
221: EXIT;
222: END IF;
215: dbms_sql.define_column(c,1,securityFlag,1);
216: ignore := dbms_sql.execute(c);
217: LOOP
218: IF(dbms_sql.fetch_rows(c)>0)THEN
219: dbms_sql.column_value(c,1,securityFlag);
220: ELSE
221: EXIT;
222: END IF;
223: END LOOP;
221: EXIT;
222: END IF;
223: END LOOP;
224:
225: dbms_sql.close_cursor(c);---Added for bug 8526480
226:
227: luser_id := FND_GLOBAL.User_Id;
228: llogin_id := FND_GLOBAL.Login_Id;
229: IF(securityFlag = 'N') THEN
228: llogin_id := FND_GLOBAL.Login_Id;
229: IF(securityFlag = 'N') THEN
230: update_stat := 'UPDATE '||table_name||' SET security_flag = ''Y'''||
231: ' WHERE to_char('||id_column||')= :1';
232: c := dbms_sql.open_cursor;
233: dbms_sql.parse(c,update_stat,dbms_sql.native);
234: dbms_sql.bind_variable(c, ':1', X_Obj_Key);
235: ignore := dbms_sql.execute(c);
236:
229: IF(securityFlag = 'N') THEN
230: update_stat := 'UPDATE '||table_name||' SET security_flag = ''Y'''||
231: ' WHERE to_char('||id_column||')= :1';
232: c := dbms_sql.open_cursor;
233: dbms_sql.parse(c,update_stat,dbms_sql.native);
234: dbms_sql.bind_variable(c, ':1', X_Obj_Key);
235: ignore := dbms_sql.execute(c);
236:
237: OPEN super_defas;
230: update_stat := 'UPDATE '||table_name||' SET security_flag = ''Y'''||
231: ' WHERE to_char('||id_column||')= :1';
232: c := dbms_sql.open_cursor;
233: dbms_sql.parse(c,update_stat,dbms_sql.native);
234: dbms_sql.bind_variable(c, ':1', X_Obj_Key);
235: ignore := dbms_sql.execute(c);
236:
237: OPEN super_defas;
238: FETCH super_defas INTO defasId;
231: ' WHERE to_char('||id_column||')= :1';
232: c := dbms_sql.open_cursor;
233: dbms_sql.parse(c,update_stat,dbms_sql.native);
234: dbms_sql.bind_variable(c, ':1', X_Obj_Key);
235: ignore := dbms_sql.execute(c);
236:
237: OPEN super_defas;
238: FETCH super_defas INTO defasId;
239: if (super_defas%NOTFOUND) then
271: NULL,
272: NULL);
273:
274: END IF;
275: dbms_sql.close_cursor(c);---Added for bug 8526480
276: END secure_object;
277:
278: PROCEDURE Insert_Row(
279: X_Rowid IN OUT NOCOPY VARCHAR2,