[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row
(
row_id IN OUT NOCOPY VARCHAR2,
TREATMENT_ID NUMBER,
CONSOLIDATION_TYPE_CODE VARCHAR2,
ENABLED_FLAG VARCHAR2,
OPERATOR_LOW_CODE VARCHAR2,
OPERATOR_HIGH_CODE VARCHAR2,
LAST_UPDATE_DATE DATE,
LAST_UPDATED_BY NUMBER,
CREATION_DATE DATE,
CREATED_BY NUMBER,
LAST_UPDATE_LOGIN NUMBER,
OWNERSHIP_PERCENT_LOW NUMBER,
OWNERSHIP_PERCENT_HIGH NUMBER,
OBJECT_VERSION_NUMBER NUMBER,
DESCRIPTION VARCHAR2,
TREATMENT_NAME varchar2
) IS
CURSOR treatment_row IS
SELECT rowid
FROM gcs_treatments_b cb
WHERE cb.TREATMENT_ID= insert_row.TREATMENT_ID;
INSERT INTO gcs_treatments_b
(
TREATMENT_ID,
CONSOLIDATION_TYPE_CODE,
ENABLED_FLAG,
OPERATOR_LOW_CODE,
OPERATOR_HIGH_CODE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
OWNERSHIP_PERCENT_LOW,
OWNERSHIP_PERCENT_HIGH,
OBJECT_VERSION_NUMBER
)
SELECT
TREATMENT_ID,
CONSOLIDATION_TYPE_CODE,
ENABLED_FLAG,
OPERATOR_LOW_CODE,
OPERATOR_HIGH_CODE,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
OWNERSHIP_PERCENT_LOW,
OWNERSHIP_PERCENT_HIGH,
OBJECT_VERSION_NUMBER
FROM dual
WHERE NOT EXISTS
(SELECT 1
FROM gcs_treatments_b cb
WHERE cb.TREATMENT_ID= insert_row.TREATMENT_ID);
INSERT INTO gcs_treatments_TL
(
TREATMENT_ID,
LANGUAGE,
SOURCE_LANG,
TREATMENT_NAME,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
DESCRIPTION
)
SELECT
TREATMENT_ID,
userenv('LANG'),
userenv('LANG'),
TREATMENT_NAME,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
description
FROM dual
WHERE NOT EXISTS
(SELECT 1
FROM gcs_treatments_tl ctl
WHERE ctl.TREATMENT_ID = insert_row.TREATMENT_ID
AND ctl.language = userenv('LANG'));
END Insert_Row;
PROCEDURE Update_Row
(
row_id IN OUT NOCOPY VARCHAR2,
TREATMENT_ID NUMBER,
CONSOLIDATION_TYPE_CODE VARCHAR2,
ENABLED_FLAG VARCHAR2,
OPERATOR_LOW_CODE VARCHAR2,
OPERATOR_HIGH_CODE VARCHAR2,
LAST_UPDATE_DATE DATE,
LAST_UPDATED_BY NUMBER,
CREATION_DATE DATE,
CREATED_BY NUMBER,
LAST_UPDATE_LOGIN NUMBER,
OWNERSHIP_PERCENT_LOW NUMBER,
OWNERSHIP_PERCENT_HIGH NUMBER,
OBJECT_VERSION_NUMBER NUMBER,
DESCRIPTION VARCHAR2,
TREATMENT_NAME VARCHAR2
) IS
BEGIN
UPDATE gcs_treatments_b cb
SET
TREATMENT_ID=update_row.TREATMENT_ID,
CONSOLIDATION_TYPE_CODE=update_row.CONSOLIDATION_TYPE_CODE,
ENABLED_FLAG=update_row.ENABLED_FLAG,
OPERATOR_LOW_CODE=update_row.OPERATOR_LOW_CODE,
OPERATOR_HIGH_CODE=update_row.OPERATOR_HIGH_CODE,
LAST_UPDATE_DATE=update_row.LAST_UPDATE_DATE,
LAST_UPDATED_BY=update_row.LAST_UPDATED_BY,
CREATION_DATE=update_row.CREATION_DATE,
CREATED_BY=update_row.CREATED_BY,
LAST_UPDATE_LOGIN=update_row.LAST_UPDATE_LOGIN,
OWNERSHIP_PERCENT_LOW=update_row.OWNERSHIP_PERCENT_LOW,
OWNERSHIP_PERCENT_HIGH=update_row.OWNERSHIP_PERCENT_HIGH,
OBJECT_VERSION_NUMBER=update_row.OBJECT_VERSION_NUMBER
WHERE cb.TREATMENT_ID = update_row.TREATMENT_ID;
INSERT INTO
GCS_TREATMENTS_TL
(
TREATMENT_ID,
LANGUAGE,
SOURCE_LANG,
TREATMENT_NAME,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
DESCRIPTION
)
SELECT
TREATMENT_ID,
userenv('LANG'),
userenv('LANG'),
TREATMENT_NAME,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
description
FROM dual
WHERE NOT EXISTS
(SELECT 1
FROM GCS_TREATMENTS_TL ctl
WHERE ctl.TREATMENT_ID = update_row.TREATMENT_ID
AND ctl.language = userenv('LANG'));
UPDATE GCS_TREATMENTS_TL ctl
SET
LAST_UPDATE_DATE = update_row.LAST_UPDATE_DATE,
LAST_UPDATED_BY = update_row.LAST_UPDATED_BY,
CREATION_DATE = update_row.CREATION_DATE,
CREATED_BY = update_row.CREATED_BY,
LAST_UPDATE_LOGIN = update_row.LAST_UPDATE_LOGIN
WHERE ctl.TREATMENT_ID = update_row.TREATMENT_ID
AND ctl.language = userenv('LANG');
END Update_Row;
LAST_UPDATE_DATE DATE,
LAST_UPDATED_BY NUMBER,
CREATION_DATE DATE,
CREATED_BY NUMBER,
LAST_UPDATE_LOGIN NUMBER,
OWNERSHIP_PERCENT_LOW NUMBER,
OWNERSHIP_PERCENT_HIGH NUMBER,
OBJECT_VERSION_NUMBER NUMBER,
owner VARCHAR2,
custom_mode VARCHAR2,
DESCRIPTION VARCHAR2,
TREATMENT_NAME VARCHAR2
) IS
f_luby NUMBER; -- category owner in file
f_ludate DATE; -- category update date in file
db_ludate DATE; -- category update date in db
f_ludate := nvl(to_date(last_update_date, 'YYYY/MM/DD'), sysdate);
SELECT cb.last_updated_by, cb.last_update_date
INTO db_luby, db_ludate
FROM GCS_TREATMENTS_B cb
WHERE cb.TREATMENT_ID = load_row.TREATMENT_ID;
update_row
(
row_id=>row_id,
TREATMENT_ID=>TREATMENT_ID,
ENABLED_FLAG=>ENABLED_FLAG,
CONSOLIDATION_TYPE_CODE=>CONSOLIDATION_TYPE_CODE,
OPERATOR_LOW_CODE=>OPERATOR_LOW_CODE,
OPERATOR_HIGH_CODE=>OPERATOR_HIGH_CODE,
LAST_UPDATE_DATE=>f_ludate,
LAST_UPDATED_BY=>f_luby,
CREATION_DATE=>f_ludate,
CREATED_BY=>f_luby,
LAST_UPDATE_LOGIN=>0,
OWNERSHIP_PERCENT_LOW=>OWNERSHIP_PERCENT_LOW,
OWNERSHIP_PERCENT_HIGH=>OWNERSHIP_PERCENT_HIGH,
OBJECT_VERSION_NUMBER=>OBJECT_VERSION_NUMBER,
DESCRIPTION=>DESCRIPTION,
TREATMENT_NAME=>TREATMENT_NAME
);
insert_row
(
row_id=>row_id,
TREATMENT_ID=>TREATMENT_ID,
ENABLED_FLAG=>ENABLED_FLAG,
CONSOLIDATION_TYPE_CODE=>CONSOLIDATION_TYPE_CODE,
OPERATOR_LOW_CODE=>OPERATOR_LOW_CODE,
OPERATOR_HIGH_CODE=>OPERATOR_HIGH_CODE,
LAST_UPDATE_DATE=>f_ludate,
LAST_UPDATED_BY=>f_luby,
CREATION_DATE=>f_ludate,
CREATED_BY=>f_luby,
LAST_UPDATE_LOGIN=>0,
OWNERSHIP_PERCENT_LOW=>OWNERSHIP_PERCENT_LOW,
OWNERSHIP_PERCENT_HIGH=>OWNERSHIP_PERCENT_HIGH,
OBJECT_VERSION_NUMBER=>OBJECT_VERSION_NUMBER,
DESCRIPTION=>DESCRIPTION,
TREATMENT_NAME=>TREATMENT_NAME
);
LAST_UPDATE_DATE DATE,
LAST_UPDATED_BY NUMBER,
CREATION_DATE DATE,
CREATED_BY NUMBER,
LAST_UPDATE_LOGIN NUMBER,
DESCRIPTION VARCHAR2,
owner VARCHAR2,
custom_mode VARCHAR2
) IS
f_luby NUMBER; -- category owner in file
f_ludate DATE; -- category update date in file
db_ludate DATE; -- category update date in db
f_ludate := nvl(to_date(last_update_date, 'YYYY/MM/DD'), sysdate);
SELECT ctl.last_updated_by, ctl.last_update_date
INTO db_luby, db_ludate
FROM GCS_TREATMENTS_TL ctl
WHERE ctl.TREATMENT_ID = translate_row.TREATMENT_ID
AND ctl.language = userenv('LANG');
UPDATE
GCS_TREATMENTS_TL ctl
SET
SOURCE_LANG= userenv('LANG'),
TREATMENT_NAME=translate_row.TREATMENT_NAME,
LAST_UPDATE_DATE=f_ludate,
LAST_UPDATED_BY=f_luby,
LAST_UPDATE_LOGIN=0,
DESCRIPTION=translate_row.DESCRIPTION
WHERE ctl.TREATMENT_ID = translate_row.TREATMENT_ID
AND userenv('LANG') IN (ctl.language, ctl.source_lang);
insert /*+ append parallel(tt) */ into
GCS_TREATMENTS_TL tt
(
TREATMENT_ID ,
LANGUAGE ,
SOURCE_LANG ,
TREATMENT_NAME ,
LAST_UPDATE_DATE ,
LAST_UPDATED_BY ,
CREATION_DATE ,
CREATED_BY ,
LAST_UPDATE_LOGIN,
DESCRIPTION
)
select /*+ parallel(v) parallel(t) use_nl(t) */
v.*
from
( SELECT /*+ no_merge ordered parellel(b) */
B.TREATMENT_ID ,
L.LANGUAGE_CODE ,
B.SOURCE_LANG ,
B.TREATMENT_NAME ,
B.LAST_UPDATE_DATE ,
B.LAST_UPDATED_BY ,
B.CREATION_DATE ,
B.CREATED_BY ,
B.LAST_UPDATE_LOGIN ,
B.DESCRIPTION
from GCS_TREATMENTS_TL B,
FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
) v, GCS_TREATMENTS_TL t
where T.TREATMENT_ID(+) = v.TREATMENT_ID
and T.LANGUAGE(+) = v.LANGUAGE_CODE
and t.TREATMENT_ID IS NULL;