12: -- ----------------------------------------------------------------------------
13: PROCEDURE Delete_Row(X_Rowid VARCHAR2) is
14: CURSOR C_Elements is
15: SELECT pbe.Rowid
16: FROM per_budget_elements pbe
17: WHERE pbe.budget_version_id = (SELECT pbv.budget_version_id
18: FROM per_budget_versions pbv
19: WHERE pbv.Rowid = X_Rowid);
20: --
38: IF per_budgets_pkg.chk_OTA_Budget_Type(l_budget_id, NULL, NULL) = FALSE THEN
39: LOOP
40: FETCH C_Elements into l_ele_rowid;
41: EXIT when (C_Elements%NOTFOUND);
42: PER_BUDGET_ELEMENTS_PKG.Delete_Row(X_Rowid => l_ele_rowid);
43: END LOOP;
44: ELSE
45: FETCH C_Elements into l_ele_rowid;
46: IF C_Elements%FOUND THEN