1: package body BNE_RAW_QUERY_PKG as
2: /* $Header: bnerawqueryb.pls 120.2 2005/06/29 03:40:52 dvayro noship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2,
13: X_LAST_UPDATE_DATE in DATE,
14: X_LAST_UPDATED_BY in NUMBER,
15: X_LAST_UPDATE_LOGIN in NUMBER
16: ) is
17: cursor C is select ROWID from BNE_RAW_QUERY
18: where APPLICATION_ID = X_APPLICATION_ID
19: and QUERY_CODE = X_QUERY_CODE
20: and SEQUENCE_NUM = X_SEQUENCE_NUM
21: ;
19: and QUERY_CODE = X_QUERY_CODE
20: and SEQUENCE_NUM = X_SEQUENCE_NUM
21: ;
22: begin
23: insert into BNE_RAW_QUERY (
24: APPLICATION_ID,
25: QUERY_CODE,
26: SEQUENCE_NUM,
27: OBJECT_VERSION_NUMBER,
63: ) is
64: cursor c1 is select
65: OBJECT_VERSION_NUMBER,
66: QUERY
67: from BNE_RAW_QUERY
68: where APPLICATION_ID = X_APPLICATION_ID
69: and QUERY_CODE = X_QUERY_CODE
70: and SEQUENCE_NUM = X_SEQUENCE_NUM
71: for update of APPLICATION_ID nowait;
93: X_LAST_UPDATED_BY in NUMBER,
94: X_LAST_UPDATE_LOGIN in NUMBER
95: ) is
96: begin
97: update BNE_RAW_QUERY set
98: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
99: QUERY = X_QUERY,
100: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
101: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
114: X_QUERY_CODE in VARCHAR2,
115: X_SEQUENCE_NUM in NUMBER
116: ) is
117: begin
118: delete from BNE_RAW_QUERY
119: where APPLICATION_ID = X_APPLICATION_ID
120: and QUERY_CODE = X_QUERY_CODE
121: and SEQUENCE_NUM = X_SEQUENCE_NUM;
122:
134:
135: --------------------------------------------------------------------------------
136: -- PROCEDURE: LOAD_ROW --
137: -- --
138: -- DESCRIPTION: Load a row into the BNE_RAW_QUERY entity. --
139: -- This proc is called from the apps loader. --
140: -- --
141: -- SEE: http://www-apps.us.oracle.com/atg/plans/r115/fndloadqr.txt --
142: -- --
173: f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
174: begin
175: select LAST_UPDATED_BY, LAST_UPDATE_DATE
176: into db_luby, db_ludate
177: from BNE_RAW_QUERY
178: where APPLICATION_ID = l_app_id
179: and QUERY_CODE = x_query_code
180: and SEQUENCE_NUM = x_sequence_num;
181:
182: -- Test for customization and version
183: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
184: db_ludate, x_custom_mode)) then
185: -- Update existing row
186: BNE_RAW_QUERY_PKG.Update_Row(
187: X_APPLICATION_ID => l_app_id,
188: X_QUERY_CODE => x_query_code,
189: X_SEQUENCE_NUM => x_sequence_num,
190: X_OBJECT_VERSION_NUMBER => x_object_version_number,
197: end if;
198: exception
199: when no_data_found then
200: -- Record doesn't exist - insert in all cases
201: BNE_RAW_QUERY_PKG.Insert_Row(
202: X_ROWID => l_row_id,
203: X_APPLICATION_ID => l_app_id,
204: X_QUERY_CODE => x_query_code,
205: X_SEQUENCE_NUM => x_sequence_num,
214: end;
215: end LOAD_ROW;
216:
217:
218: end BNE_RAW_QUERY_PKG;