17: --R12 MOAC Changes--End
18: ) is
19:
20: begin
21: insert into CN_HEAD_HIERARCHIES_ALL_B (
22: HEAD_HIERARCHY_ID,
23: DIMENSION_ID,
24: DESCRIPTION,
25: CREATION_DATE,
101: X_OBJECT_VERSION_NUMBER in out NOCOPY CN_HEAD_HIERARCHIES.OBJECT_VERSION_NUMBER%TYPE
102: ) is
103: begin
104: X_OBJECT_VERSION_NUMBER := X_OBJECT_VERSION_NUMBER + 1; --Increment Obj Ver Num
105: update CN_HEAD_HIERARCHIES_ALL_B set
106: DESCRIPTION = X_DESCRIPTION,
107: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
108: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
109: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
170: delete from CN_HEAD_HIERARCHIES_ALL_TL
171: where HEAD_HIERARCHY_ID = X_HEAD_HIERARCHY_ID
172: and org_id = X_ORG_ID;
173:
174: delete from CN_HEAD_HIERARCHIES_ALL_B
175: where HEAD_HIERARCHY_ID = X_HEAD_HIERARCHY_ID
176: and org_id = X_ORG_ID;
177:
178: if (sql%notfound) then
187: begin
188: delete from CN_HEAD_HIERARCHIES_ALL_TL T
189: where not exists
190: (select NULL
191: from CN_HEAD_HIERARCHIES_ALL_B B
192: where B.HEAD_HIERARCHY_ID = T.head_hierarchy_id
193: and B.ORG_ID = T.ORG_ID
194: );
195:
277: ELSE
278: user_id := 0;
279: END IF;
280: -- Load The record to _B table
281: UPDATE cn_head_hierarchies_all_b SET
282: dimension_id = x_dimension_id,
283: description = x_description,
284: last_update_date = sysdate,
285: last_updated_by = user_id,
288: AND org_id = x_org_id; -- R12 change
289:
290: IF (SQL%NOTFOUND) THEN
291: -- Insert new record to _B table
292: INSERT INTO cn_head_hierarchies_all_b
293: (head_hierarchy_id,
294: dimension_id,
295: org_id, --R12 Change
296: description,