9:
10: l_rowid ROWID := NULL;
11:
12: CURSOR c IS
13: SELECT ROWID FROM HZ_EXT_DATA_RULES_TL
14: WHERE RULE_ID = X_RULE_ID
15: AND LANGUAGE = USERENV('LANG');
16:
17: BEGIN
15: AND LANGUAGE = USERENV('LANG');
16:
17: BEGIN
18:
19: INSERT INTO HZ_EXT_DATA_RULES_TL (
20: CREATION_DATE,
21: LAST_UPDATE_LOGIN,
22: LAST_UPDATE_DATE,
23: LAST_UPDATED_BY,
41: FROM FND_LANGUAGES L
42: WHERE L.INSTALLED_FLAG IN ('I', 'B')
43: AND NOT EXISTS
44: (SELECT NULL
45: FROM HZ_EXT_DATA_RULES_TL T
46: WHERE T.RULE_ID = X_RULE_ID
47: AND T.LANGUAGE = L.LANGUAGE_CODE);
48:
49: OPEN c;
66: SELECT
67: RULE_TYPE,
68: RULE_NAME,
69: DECODE(LANGUAGE, USERENV('LANG'), 'Y', 'N') BASELANG
70: FROM HZ_EXT_DATA_RULES_TL
71: WHERE RULE_ID = X_RULE_ID
72: AND USERENV('LANG') IN (LANGUAGE, SOURCE_LANG)
73: FOR UPDATE OF RULE_ID NOWAIT;
74:
97: X_RULE_NAME IN VARCHAR2
98: ) IS
99: BEGIN
100:
101: UPDATE HZ_EXT_DATA_RULES_TL
102: SET RULE_NAME = X_RULE_NAME,
103: LAST_UPDATE_DATE = SYSDATE,
104: LAST_UPDATED_BY = hz_utility_v2pub.last_updated_by,
105: LAST_UPDATE_LOGIN = hz_utility_v2pub.last_update_login,
116: PROCEDURE DELETE_ROW (
117: X_RULE_ID IN NUMBER
118: ) IS
119: BEGIN
120: DELETE FROM HZ_EXT_DATA_RULES_TL
121: WHERE RULE_ID = X_RULE_ID;
122:
123: IF (SQL%NOTFOUND) THEN
124: RAISE NO_DATA_FOUND;
127: END DELETE_ROW;
128:
129: PROCEDURE ADD_LANGUAGE IS
130: BEGIN
131: UPDATE HZ_EXT_DATA_RULES_TL T
132: SET (
133: RULE_NAME
134: ) = (SELECT
135: B.RULE_NAME
132: SET (
133: RULE_NAME
134: ) = (SELECT
135: B.RULE_NAME
136: FROM HZ_EXT_DATA_RULES_TL B
137: WHERE B.RULE_ID = T.RULE_ID
138: AND B.LANGUAGE = T.SOURCE_LANG)
139: WHERE (
140: T.RULE_ID,
141: T.LANGUAGE
142: ) IN (SELECT
143: SUBT.RULE_ID,
144: SUBT.LANGUAGE
145: FROM HZ_EXT_DATA_RULES_TL SUBB, HZ_EXT_DATA_RULES_TL SUBT
146: WHERE SUBB.RULE_ID = SUBT.RULE_ID
147: AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
148: AND (SUBB.RULE_NAME <> SUBT.RULE_NAME
149: OR (SUBB.RULE_NAME IS NULL AND SUBT.RULE_NAME IS NOT NULL)
149: OR (SUBB.RULE_NAME IS NULL AND SUBT.RULE_NAME IS NOT NULL)
150: OR (SUBB.RULE_NAME is NOT NULL AND SUBT.RULE_NAME IS NULL)
151: ));
152:
153: INSERT INTO HZ_EXT_DATA_RULES_TL (
154: CREATION_DATE,
155: LAST_UPDATE_LOGIN,
156: LAST_UPDATE_DATE,
157: LAST_UPDATED_BY,
171: B.RULE_ID,
172: B.RULE_TYPE,
173: L.LANGUAGE_CODE,
174: B.SOURCE_LANG
175: FROM HZ_EXT_DATA_RULES_TL B, FND_LANGUAGES L
176: WHERE L.INSTALLED_FLAG in ('I', 'B')
177: AND B.LANGUAGE = USERENV('LANG')
178: AND NOT EXISTS
179: (SELECT NULL
176: WHERE L.INSTALLED_FLAG in ('I', 'B')
177: AND B.LANGUAGE = USERENV('LANG')
178: AND NOT EXISTS
179: (SELECT NULL
180: FROM HZ_EXT_DATA_RULES_TL T
181: WHERE T.RULE_ID = B.RULE_ID
182: AND T.LANGUAGE = L.LANGUAGE_CODE);
183:
184: END ADD_LANGUAGE;