15: X_LAST_UPDATE_DATE in DATE,
16: X_LAST_UPDATED_BY in NUMBER,
17: X_LAST_UPDATE_LOGIN in NUMBER
18: ) is
19: cursor C is select ROWID from FEM_ACCT_OWNSHP_B
20: where ACCT_OWNERSHIP_ID = X_ACCT_OWNERSHIP_ID
21: ;
22: begin
23: insert into FEM_ACCT_OWNSHP_B (
19: cursor C is select ROWID from FEM_ACCT_OWNSHP_B
20: where ACCT_OWNERSHIP_ID = X_ACCT_OWNERSHIP_ID
21: ;
22: begin
23: insert into FEM_ACCT_OWNSHP_B (
24: ACCT_OWNERSHIP_ID,
25: ACCT_OWNERSHIP_DISPLAY_CODE,
26: ENABLED_FLAG,
27: PERSONAL_FLAG,
101: ENABLED_FLAG,
102: PERSONAL_FLAG,
103: READ_ONLY_FLAG,
104: OBJECT_VERSION_NUMBER
105: from FEM_ACCT_OWNSHP_B
106: where ACCT_OWNERSHIP_ID = X_ACCT_OWNERSHIP_ID
107: for update of ACCT_OWNERSHIP_ID nowait;
108: recinfo c%rowtype;
109:
165: X_LAST_UPDATED_BY in NUMBER,
166: X_LAST_UPDATE_LOGIN in NUMBER
167: ) is
168: begin
169: update FEM_ACCT_OWNSHP_B set
170: ACCT_OWNERSHIP_DISPLAY_CODE = X_ACCT_OWNERSHIP_DISPLAY_CODE,
171: ENABLED_FLAG = X_ENABLED_FLAG,
172: PERSONAL_FLAG = X_PERSONAL_FLAG,
173: READ_ONLY_FLAG = X_READ_ONLY_FLAG,
206: if (sql%notfound) then
207: raise no_data_found;
208: end if;
209:
210: delete from FEM_ACCT_OWNSHP_B
211: where ACCT_OWNERSHIP_ID = X_ACCT_OWNERSHIP_ID;
212:
213: if (sql%notfound) then
214: raise no_data_found;
220: begin
221: delete from FEM_ACCT_OWNSHP_TL T
222: where not exists
223: (select NULL
224: from FEM_ACCT_OWNSHP_B B
225: where B.ACCT_OWNERSHIP_ID = T.ACCT_OWNERSHIP_ID
226: );
227:
228: update FEM_ACCT_OWNSHP_TL T set (