7: X_MESSAGE_NAME in VARCHAR2,
8: X_CREATED_BY_MODULE in VARCHAR2,
9: X_MESSAGE_TEXT in CLOB
10: ) is
11: cursor C is select ROWID from FUN_RICH_MESSAGES_B
12: where APPLICATION_ID = X_APPLICATION_ID
13: and MESSAGE_NAME = X_MESSAGE_NAME;
14: begin
15: insert into FUN_RICH_MESSAGES_B (
11: cursor C is select ROWID from FUN_RICH_MESSAGES_B
12: where APPLICATION_ID = X_APPLICATION_ID
13: and MESSAGE_NAME = X_MESSAGE_NAME;
14: begin
15: insert into FUN_RICH_MESSAGES_B (
16: APPLICATION_ID,
17: MESSAGE_NAME,
18: OBJECT_VERSION_NUMBER,
19: CREATED_BY_MODULE,
83: ) is
84:
85: cursor c is select
86: OBJECT_VERSION_NUMBER
87: from FUN_RICH_MESSAGES_B
88: where APPLICATION_ID = X_APPLICATION_ID
89: and MESSAGE_NAME = X_MESSAGE_NAME
90: for update of APPLICATION_ID nowait;
91: recinfo c%rowtype;
116: X_CREATED_BY_MODULE in VARCHAR2,
117: X_MESSAGE_TEXT in CLOB
118: ) is
119: begin
120: update FUN_RICH_MESSAGES_B set
121: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER+1,
122: CREATED_BY_MODULE = X_CREATED_BY_MODULE,
123: LAST_UPDATE_DATE = FUN_RULE_UTILITY_PKG.LAST_UPDATE_DATE,
124: LAST_UPDATED_BY = FUN_RULE_UTILITY_PKG.LAST_UPDATED_BY,
150: X_APPLICATION_ID in NUMBER,
151: X_MESSAGE_NAME in VARCHAR2
152: ) is
153: begin
154: delete from FUN_RICH_MESSAGES_B
155: where APPLICATION_ID = X_APPLICATION_ID
156: and MESSAGE_NAME = X_MESSAGE_NAME;
157:
158: if (sql%notfound) then
188: begin
189: delete from FUN_RICH_MESSAGES_TL T
190: where not exists
191: (select NULL
192: from FUN_RICH_MESSAGES_B B
193: where B.APPLICATION_ID = T.APPLICATION_ID
194: and B.MESSAGE_NAME = T.MESSAGE_NAME
195: );
196: