103: LAST_UPDATE_DATE
104: into l_standard_id,
105: l_db_luby,
106: l_db_ludate
107: from ECX_STANDARDS_B
108: where STANDARD_CODE = X_STANDARD_CODE
109: and STANDARD_TYPE = X_STANDARD_TYPE;
110:
111: -- Update record, honoring customization mode.
163: X_LAST_UPDATE_DATE in DATE,
164: X_LAST_UPDATED_BY in NUMBER,
165: X_LAST_UPDATE_LOGIN in NUMBER
166: ) is
167: cursor C is select ROWID from ECX_STANDARDS_B
168: where STANDARD_ID = X_STANDARD_ID
169: ;
170: begin
171: insert into ECX_STANDARDS_B (
167: cursor C is select ROWID from ECX_STANDARDS_B
168: where STANDARD_ID = X_STANDARD_ID
169: ;
170: begin
171: insert into ECX_STANDARDS_B (
172: STANDARD_ID,
173: STANDARD_CODE,
174: STANDARD_TYPE,
175: DATA_SEEDED,
238: cursor c is select
239: STANDARD_CODE,
240: STANDARD_TYPE,
241: DATA_SEEDED
242: from ECX_STANDARDS_B
243: where STANDARD_ID = X_STANDARD_ID
244: for update of STANDARD_ID nowait;
245: recinfo c%rowtype;
246:
297: X_LAST_UPDATED_BY in NUMBER,
298: X_LAST_UPDATE_LOGIN in NUMBER
299: ) is
300: begin
301: update ECX_STANDARDS_B set
302: STANDARD_CODE = X_STANDARD_CODE,
303: STANDARD_TYPE = X_STANDARD_TYPE,
304: DATA_SEEDED = X_DATA_SEEDED,
305: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
335: if (sql%notfound) then
336: raise no_data_found;
337: end if;
338:
339: delete from ECX_STANDARDS_B
340: where STANDARD_ID = X_STANDARD_ID;
341:
342: if (sql%notfound) then
343: raise no_data_found;
349: begin
350: delete from ECX_STANDARDS_TL T
351: where not exists
352: (select NULL
353: from ECX_STANDARDS_B B
354: where B.STANDARD_ID = T.STANDARD_ID
355: );
356:
357: update ECX_STANDARDS_TL T set (