10: X_LAST_UPDATE_DATE in DATE,
11: X_LAST_UPDATED_BY in NUMBER,
12: X_LAST_UPDATE_LOGIN in NUMBER
13: ) is
14: cursor C is select ROWID from FND_PRIVACY_ATTRIBUTE_CHILDREN
15: where PARENT_ATTRIBUTE_CODE = X_PARENT_ATTRIBUTE_CODE
16: and ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
17: ;
18: begin
15: where PARENT_ATTRIBUTE_CODE = X_PARENT_ATTRIBUTE_CODE
16: and ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
17: ;
18: begin
19: insert into FND_PRIVACY_ATTRIBUTE_CHILDREN (
20: PARENT_ATTRIBUTE_CODE,
21: ATTRIBUTE_CODE,
22: CREATED_BY,
23: CREATION_DATE,
37: from FND_LANGUAGES L
38: where L.INSTALLED_FLAG in ('I', 'B')
39: and not exists
40: (select NULL
41: from FND_PRIVACY_ATTRIBUTE_CHILDREN T
42: where T.PARENT_ATTRIBUTE_CODE = X_PARENT_ATTRIBUTE_CODE
43: and T.ATTRIBUTE_CODE = X_ATTRIBUTE_CODE);
44:
45: open c;
60: ) is
61: cursor c1 is select
62: OBJECT_VERSION_NUMBER,
63: CREATED_BY
64: from FND_PRIVACY_ATTRIBUTE_CHILDREN
65: where PARENT_ATTRIBUTE_CODE = X_PARENT_ATTRIBUTE_CODE
66: and ATTRIBUTE_CODE = X_ATTRIBUTE_CODE
67: for update of PARENT_ATTRIBUTE_CODE nowait;
68: begin
88: X_LAST_UPDATED_BY in NUMBER,
89: X_LAST_UPDATE_LOGIN in NUMBER
90: ) is
91: begin
92: update FND_PRIVACY_ATTRIBUTE_CHILDREN set
93: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
94: CREATED_BY = X_CREATED_BY,
95: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
96: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
107: X_PARENT_ATTRIBUTE_CODE in VARCHAR2,
108: X_ATTRIBUTE_CODE in VARCHAR2
109: ) is
110: begin
111: delete from FND_PRIVACY_ATTRIBUTE_CHILDREN
112: where PARENT_ATTRIBUTE_CODE = X_PARENT_ATTRIBUTE_CODE
113: and ATTRIBUTE_CODE = X_ATTRIBUTE_CODE;
114:
115: if (sql%notfound) then