1: PACKAGE BODY Igw_Project_Fundings_Tbh AS
2: /* $Header: igwtapfb.pls 115.6 2002/11/15 00:52:35 ashkumar noship $ */
3:
4: ---------------------------------------------------------------------------
5:
2: /* $Header: igwtapfb.pls 115.6 2002/11/15 00:52:35 ashkumar noship $ */
3:
4: ---------------------------------------------------------------------------
5:
6: G_PKG_NAME VARCHAR2(30) := 'IGW_PROJECT_FUNDINGS_TBH';
7:
8: ---------------------------------------------------------------------------
9:
10: PROCEDURE Insert_Row
27: l_last_update_login NUMBER := Nvl(Fnd_Global.Login_Id,-1);
28:
29: CURSOR c IS
30: SELECT rowid
31: FROM igw_project_fundings
32: WHERE proposal_funding_id = x_proposal_funding_id;
33:
34: BEGIN
35:
46: App_Exception.Raise_Exception;
47:
48: END IF;
49:
50: INSERT INTO igw_project_fundings
51: (
52: proposal_funding_id,
53: proposal_installment_id,
54: project_id,
63: last_update_login
64: )
65: VALUES
66: (
67: igw_project_fundings_s.nextval,
68: p_proposal_installment_id,
69: p_project_id,
70: p_task_id,
71: p_funding_amount,
147: App_Exception.Raise_Exception;
148:
149: END IF;
150:
151: UPDATE igw_project_fundings
152: SET proposal_installment_id = p_proposal_installment_id,
153: project_id = p_project_id,
154: task_id = p_task_id,
155: funding_amount = p_funding_amount,
197: BEGIN
198:
199: x_return_status := Fnd_Api.G_Ret_Sts_Success;
200:
201: DELETE igw_project_fundings
202: WHERE rowid = p_rowid;
203:
204: IF SQL%NotFound THEN
205:
226: END Delete_Row;
227:
228: ---------------------------------------------------------------------------
229:
230: END Igw_Project_Fundings_Tbh;