The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row
( x_rowid IN OUT NOCOPY VARCHAR2
, p_zone_code IN VARCHAR2
, p_zone_display_name IN VARCHAR2
, p_zone_description IN VARCHAR2
, p_creation_date IN DATE
, p_created_by IN NUMBER
, p_last_update_date IN DATE
, p_last_updated_by IN NUMBER
, p_last_update_login IN NUMBER
)
IS
CURSOR c IS
SELECT
rowid
FROM
MTL_ECONOMIC_ZONES_B
WHERE zone_code = p_zone_code;
INSERT INTO MTL_ECONOMIC_ZONES_B
( zone_code
, creation_date
, created_by
, last_update_date
, last_updated_by
, last_update_login
)
VALUES
( p_zone_code
, p_creation_date
, p_created_by
, p_last_update_date
, p_last_updated_by
, p_last_update_login
);
INSERT INTO MTL_ECONOMIC_ZONES_TL
( zone_code
, zone_display_name
, zone_description
, created_by
, creation_date
, last_updated_by
, last_update_date
, last_update_login
, language
, source_lang
)
SELECT
p_zone_code
, p_zone_display_name
, p_zone_description
, p_created_by
, p_creation_date
, p_last_updated_by
, p_last_update_date
, p_last_update_login
, L.language_code
, USERENV('LANG')
FROM
FND_LANGUAGES L
WHERE L.installed_flag IN ('I', 'B')
AND NOT EXISTS
(SELECT
NULL
FROM
MTL_ECONOMIC_ZONES_TL T
WHERE T.zone_code = p_zone_code
AND T.language = L.language_code);
FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Insert_Row');
END INSERT_ROW;
SELECT *
FROM
MTL_ECONOMIC_ZONES_B
WHERE zone_code = p_zone_code
FOR UPDATE OF zone_code NOWAIT;
SELECT
zone_display_name
, zone_description
, decode(language, USERENV('LANG'), 'Y', 'N') baselang
FROM
MTL_ECONOMIC_ZONES_TL
WHERE zone_code = p_zone_code
FOR UPDATE OF zone_code NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Insert_Row');
PROCEDURE Update_Row
( p_zone_code IN VARCHAR2
, p_zone_display_name IN VARCHAR2
, p_zone_description IN VARCHAR2
, p_last_update_date IN DATE
, p_last_updated_by IN NUMBER
, p_last_update_login IN NUMBER
)
IS
BEGIN
UPDATE MTL_ECONOMIC_ZONES_B
SET
last_update_date = p_last_update_date
, last_updated_by = p_last_updated_by
, last_update_login = p_last_update_login
WHERE zone_code = p_zone_code;
UPDATE MTL_ECONOMIC_ZONES_TL
SET
zone_display_name = p_zone_display_name
, zone_description = p_zone_description
, last_update_date = p_last_update_date
, last_updated_by = p_last_updated_by
, last_update_login = p_last_update_login
, source_lang = USERENV('LANG')
WHERE zone_code = p_zone_code
AND USERENV('LANG') IN (language, source_lang);
FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Update_Row');
END Update_Row;
PROCEDURE Delete_Row
( p_zone_code IN VARCHAR2
)
IS
BEGIN
DELETE FROM MTL_ECONOMIC_ZONES_TL
WHERE zone_code = p_zone_code;
DELETE FROM MTL_ECONOMIC_ZONES_B
WHERE zone_code = p_zone_code;
FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Delete_Row');
END DELETE_ROW;
DELETE FROM MTL_ECONOMIC_ZONES_TL T
WHERE NOT EXISTS
(SELECT
NULL
FROM
MTL_ECONOMIC_ZONES_B B
WHERE B.zone_code = T.zone_code
);
UPDATE MTL_ECONOMIC_ZONES_TL T
SET (zone_display_name
,zone_description) =
(SELECT
B.zone_display_name
, B.zone_description
FROM
MTL_ECONOMIC_ZONES_TL B
WHERE B.zone_code = T.zone_code
AND B.language = T.source_lang)
WHERE (T.zone_code
, T.language
)IN (SELECT
SUBT.zone_code
, SUBT.language
FROM
MTL_ECONOMIC_ZONES_TL SUBB
, MTL_ECONOMIC_ZONES_TL SUBT
WHERE SUBB.zone_code = SUBT.zone_code
AND SUBB.language = SUBT.source_lang
AND (SUBB.zone_display_name <> SUBT.zone_display_name
OR SUBB.zone_description <> SUBT.zone_description));
INSERT INTO MTL_ECONOMIC_ZONES_TL
( zone_code
, zone_display_name
, zone_description
, created_by
, creation_date
, last_updated_by
, last_update_date
, last_update_login
, language
, source_lang
)
SELECT
B.zone_code
, B.zone_display_name
, B.zone_description
, B.created_by
, B.creation_date
, B.last_updated_by
, B.last_update_date
, B.last_update_login
, L.language_CODE
, B.source_lang
FROM
MTL_ECONOMIC_ZONES_TL B
, FND_LANGUAGES L
WHERE L.INSTALLED_FLAG IN ('I', 'B')
AND B.language = USERENV('LANG')
AND NOT EXISTS
(SELECT
NULL
FROM
MTL_ECONOMIC_ZONES_TL T
WHERE T.zone_code = B.zone_code
AND T.language = L.language_CODE);
UPDATE mtl_economic_zones_tl
SET zone_display_name = p_zone_display_name
, zone_description = p_zone_description
, last_update_date = SYSDATE
, last_updated_by = DECODE(p_owner, 'SEED', 1, 0)
, last_update_login = 0
, source_lang = userenv('LANG')
WHERE zone_code = p_zone_code
AND userenv('LANG') IN (language, source_lang);
Update_Row
( p_zone_code => p_zone_code
, p_zone_display_name => p_zone_display_name
, p_zone_description => p_zone_description
, p_last_update_date => SYSDATE
, p_last_updated_by => l_user_id
, p_last_update_login => 0
);
Insert_Row
( x_rowid => l_row_id
, p_zone_code => p_zone_code
, p_zone_display_name => p_zone_display_name
, p_zone_description => p_zone_description
, p_creation_date => SYSDATE
, p_created_by => l_user_id
, p_last_update_date => SYSDATE
, p_last_updated_by => l_user_id
, p_last_update_login => 0
);