[Home] [Help]
1: PACKAGE BODY IGW_BUDGET_PERSONS_TBH AS
2: -- $Header: igwtbpsb.pls 115.6 2002/11/14 18:43:21 vmedikon ship $
3:
4: procedure INSERT_ROW (
5: p_proposal_id NUMBER
13: ,x_return_status OUT NOCOPY VARCHAR2) IS
14:
15: cursor c_budgets is
16: select rowid
17: from igw_budget_persons
18: where proposal_id = p_proposal_id
19: and version_id = p_version_id
20: and party_id = p_party_id;
21:
25:
26: begin
27: x_return_status := FND_API.G_RET_STS_SUCCESS;
28:
29: insert into igw_budget_persons(
30: proposal_id
31: ,version_id
32: ,person_id
33: ,party_id
92: l_row_id ROWID := p_rowid;
93:
94: CURSOR get_row_id IS
95: select rowid
96: from igw_budget_persons
97: where proposal_id = p_proposal_id
98: and version_id = p_version_id
99: and party_id = p_party_id;
100:
106: FETCH get_row_id INTO l_row_id;
107: CLOSE get_row_id;
108: END IF;
109:
110: update igw_budget_persons
111: set person_id = p_person_id
112: , party_id = p_party_id
113: , appointment_type_code = p_appointment_type_code
114: , effective_date = p_effective_date
143: l_row_id ROWID := p_rowid;
144:
145: CURSOR get_row_id IS
146: select rowid
147: from igw_budget_persons
148: where proposal_id = p_proposal_id
149: and version_id = p_version_id
150: and party_id = p_party_id;
151:
158: FETCH get_row_id INTO l_row_id;
159: CLOSE get_row_id;
160: END IF;
161:
162: delete from igw_budget_persons
163: where rowid = l_row_id
164: and record_version_number = p_record_version_number;
165:
166: if (sql%notfound) then
177: RAISE;
178: end DELETE_ROW;
179:
180:
181: END IGW_BUDGET_PERSONS_TBH;