[Home] [Help]
1: PACKAGE BODY Igw_Awards_Tbh AS
2: /* $Header: igwtawib.pls 115.3 2002/11/15 18:23:02 vmedikon noship $ */
3:
4: ---------------------------------------------------------------------------
5:
2: /* $Header: igwtawib.pls 115.3 2002/11/15 18:23:02 vmedikon noship $ */
3:
4: ---------------------------------------------------------------------------
5:
6: G_PKG_NAME VARCHAR2(30) := 'IGW_AWARDS_TBH';
7:
8: ---------------------------------------------------------------------------
9:
10: PROCEDURE Insert_Row
66: l_last_update_login NUMBER := Nvl(Fnd_Global.Login_Id,-1);
67:
68: CURSOR c IS
69: SELECT rowid
70: FROM igw_awards
71: WHERE proposal_award_id = x_proposal_award_id;
72:
73: BEGIN
74:
85: App_Exception.Raise_Exception;
86:
87: END IF;
88:
89: INSERT INTO igw_awards
90: (
91: proposal_award_id,
92: proposal_id,
93: award_template_id,
141: last_update_login
142: )
143: VALUES
144: (
145: igw_awards_s.nextval,
146: p_proposal_id,
147: p_award_template_id,
148: p_award_id,
149: p_award_number,
303: App_Exception.Raise_Exception;
304:
305: END IF;
306:
307: UPDATE igw_awards
308: SET proposal_id = p_proposal_id,
309: award_template_id = p_award_template_id,
310: award_number = p_award_number,
311: award_short_name = p_award_short_name,
399:
400: DELETE igw_installments
401: WHERE proposal_award_id = p_proposal_award_id;
402:
403: DELETE igw_awards
404: WHERE proposal_award_id = p_proposal_award_id;
405:
406: EXCEPTION
407:
420: END Delete_Row;
421:
422: ---------------------------------------------------------------------------
423:
424: END Igw_Awards_Tbh;