15: -- Procedure name
16: -- INSERT_ROW
17: -- Purpose
18: -- create new compliance environment
19: -- in AMW_COMPLIANCE_ENVS_B and AMW_COMPLIANCE_ENVS_TL
20: -- ===============================================================
21: procedure INSERT_ROW (
22: X_ROWID in out nocopy VARCHAR2,
23: X_COMPLIANCE_ENV_ID in NUMBER,
50: X_COMPLIANCE_ENV_NAME in VARCHAR2,
51: X_COMPLIANCE_ENV_ALIAS in VARCHAR2,
52: X_COMPLIANCE_ENV_DESCRIPTION in VARCHAR2
53: ) is
54: cursor C is select ROWID from AMW_COMPLIANCE_ENVS_B
55: where COMPLIANCE_ENV_ID = X_COMPLIANCE_ENV_ID;
56: begin
57: insert into AMW_COMPLIANCE_ENVS_B (
58: COMPLIANCE_ENV_ID,
53: ) is
54: cursor C is select ROWID from AMW_COMPLIANCE_ENVS_B
55: where COMPLIANCE_ENV_ID = X_COMPLIANCE_ENV_ID;
56: begin
57: insert into AMW_COMPLIANCE_ENVS_B (
58: COMPLIANCE_ENV_ID,
59: START_DATE,
60: END_DATE,
61: ENABLED_FLAG,
212: ATTRIBUTE12,
213: ATTRIBUTE13,
214: ATTRIBUTE14,
215: ATTRIBUTE15
216: from AMW_COMPLIANCE_ENVS_B
217: where COMPLIANCE_ENV_ID = X_COMPLIANCE_ENV_ID
218: for update of COMPLIANCE_ENV_ID nowait;
219: recinfo c%rowtype;
220:
309: -- ===============================================================
310: -- Procedure name
311: -- UPDATE_ROW
312: -- Purpose
313: -- update AMW_COMPLIANCE_ENVS_B and AMW_COMPLIANCE_ENVS_TL
314: -- ===============================================================
315: procedure UPDATE_ROW (
316: X_COMPLIANCE_ENV_ID in NUMBER,
317: X_START_DATE in DATE,
342: X_COMPLIANCE_ENV_ALIAS in VARCHAR2,
343: X_COMPLIANCE_ENV_DESCRIPTION in VARCHAR2
344: ) is
345: begin
346: update AMW_COMPLIANCE_ENVS_B set
347: START_DATE = X_START_DATE,
348: END_DATE = X_END_DATE,
349: ENABLED_FLAG = X_ENABLED_FLAG,
350: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
395: -- ===============================================================
396: -- Procedure name
397: -- LOAD_ROW
398: -- Purpose
399: -- load data to AMW_COMPLIANCE_ENVS_B and AMW_COMPLIANCE_ENVS_TL
400: -- ===============================================================
401: procedure LOAD_ROW (
402: X_COMPLIANCE_ENV_ID in NUMBER,
403: X_START_DATE in DATE,
434: -- Translate owner to file_last_updated_by
435: l_user_id := fnd_load_util.owner_id(X_OWNER);
436:
437: select COMPLIANCE_ENV_ID into l_compliance_env_id
438: from AMW_COMPLIANCE_ENVS_B
439: where COMPLIANCE_ENV_ID = X_COMPLIANCE_ENV_ID;
440:
441: AMW_COMPLIANCE_ENVS_PKG.UPDATE_ROW (
442: X_COMPLIANCE_ENV_ID => l_compliance_env_id,
529: if (sql%notfound) then
530: raise no_data_found;
531: end if;
532:
533: delete from AMW_COMPLIANCE_ENVS_B
534: where COMPLIANCE_ENV_ID = X_COMPLIANCE_ENV_ID;
535:
536: if (sql%notfound) then
537: raise no_data_found;
551: begin
552: delete from AMW_COMPLIANCE_ENVS_TL T
553: where not exists
554: (select NULL
555: from AMW_COMPLIANCE_ENVS_B B
556: where B.COMPLIANCE_ENV_ID = T.COMPLIANCE_ENV_ID
557: );
558:
559: update AMW_COMPLIANCE_ENVS_TL T set (