[Home] [Help]
1: package body IGW_PROP_PERSON_SUPPORT_TBH as
2: /* $Header: igwtppsb.pls 115.8 2002/11/15 00:43:08 ashkumar ship $*/
3:
4: PROCEDURE INSERT_ROW (
5: X_ROWID OUT NOCOPY VARCHAR2,
50: X_RETURN_STATUS OUT NOCOPY VARCHAR2) is
51:
52: L_PROP_PERSON_SUPPORT_ID NUMBER;
53:
54: cursor c is select ROWID from IGW_PROP_PERSON_SUPPORT
55: where prop_person_support_id = l_prop_person_support_id;
56:
57: l_last_update_date DATE;
58: l_last_updated_by NUMBER;
83: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
84: app_exception.raise_exception;
85: end if;
86:
87: insert into igw_prop_person_support (
88: PROP_PERSON_SUPPORT_ID
89: ,PROPOSAL_ID
90: ,PERSON_ID
91: ,PARTY_ID
134: ,last_update_login
135: ,record_version_number
136: ,sequence_number
137: ) values (
138: IGW_PROP_PERSON_SUPPORT_S.NEXTVAL
139: ,P_PROPOSAL_ID
140: ,P_PERSON_ID
141: ,P_PARTY_ID
142: ,P_SUPPORT_TYPE
197: X_PROP_PERSON_SUPPORT_ID := L_PROP_PERSON_SUPPORT_ID;
198:
199: EXCEPTION
200: when others then
201: fnd_msg_pub.add_exc_msg(p_pkg_name => 'IGW_PROP_PERSON_SUPPORT_TBH',
202: p_procedure_name => 'INSERT_ROW',
203: p_error_text => SUBSTRB(SQLERRM, 1, 240));
204: x_return_status := fnd_api.g_ret_sts_unexp_error;
205: raise;
285: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
286: app_exception.raise_exception;
287: end if;
288:
289: update IGW_PROP_PERSON_SUPPORT set
290: PROP_PERSON_SUPPORT_ID = P_PROP_PERSON_SUPPORT_ID
291: ,PROPOSAL_ID = P_PROPOSAL_ID
292: ,PERSON_ID = P_PERSON_ID
293: ,PARTY_ID = P_PARTY_ID
344: end if;
345:
346: EXCEPTION
347: when others then
348: fnd_msg_pub.add_exc_msg(p_pkg_name => 'IGW_PROP_PERSON_SUPPORT_TBH',
349: p_procedure_name => 'UPDATE_ROW',
350: p_error_text => SUBSTRB(SQLERRM, 1, 240));
351: x_return_status := fnd_api.g_ret_sts_unexp_error;
352: raise;
363:
364: BEGIN
365: x_return_status := fnd_api.g_ret_sts_success;
366:
367: delete from IGW_PROP_PERSON_SUPPORT
368: where rowid = x_rowid
369: and record_version_number = p_record_version_number;
370:
371: if (sql%notfound) then
496: return;
497: end LOCK_ROW;
498: */
499:
500: END IGW_PROP_PERSON_SUPPORT_TBH;