[Home] [Help]
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_BUDGETS_B
20: where BUDGET_ID = X_BUDGET_ID
21: ;
22: begin
23: insert into FEM_BUDGETS_B (
19: cursor C is select ROWID from FEM_BUDGETS_B
20: where BUDGET_ID = X_BUDGET_ID
21: ;
22: begin
23: insert into FEM_BUDGETS_B (
24: BUDGET_DISPLAY_CODE,
25: READ_ONLY_FLAG,
26: ENABLED_FLAG,
27: BUDGET_ID,
101: READ_ONLY_FLAG,
102: ENABLED_FLAG,
103: PERSONAL_FLAG,
104: OBJECT_VERSION_NUMBER
105: from FEM_BUDGETS_B
106: where BUDGET_ID = X_BUDGET_ID
107: for update of BUDGET_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_BUDGETS_B set
170: BUDGET_DISPLAY_CODE = X_BUDGET_DISPLAY_CODE,
171: READ_ONLY_FLAG = X_READ_ONLY_FLAG,
172: ENABLED_FLAG = X_ENABLED_FLAG,
173: PERSONAL_FLAG = X_PERSONAL_FLAG,
206: if (sql%notfound) then
207: raise no_data_found;
208: end if;
209:
210: delete from FEM_BUDGETS_B
211: where BUDGET_ID = X_BUDGET_ID;
212:
213: if (sql%notfound) then
214: raise no_data_found;
220: begin
221: delete from FEM_BUDGETS_TL T
222: where not exists
223: (select NULL
224: from FEM_BUDGETS_B B
225: where B.BUDGET_ID = T.BUDGET_ID
226: );
227:
228: update FEM_BUDGETS_TL T set (