[Home] [Help]
1: PACKAGE BODY LNS_PARTICIPANTS_PKG AS
2: /* $Header: LNS_PART_TBLH_B.pls 120.2 2006/01/18 19:59:48 karamach noship $ */
3:
4: /* Insert_Row procedure */
5: PROCEDURE Insert_Row(x_PARTICIPANT_ID IN OUT NOCOPY NUMBER
41: ) IS
42:
43: BEGIN
44:
45: INSERT INTO LNS_PARTICIPANTS
46: (
47: PARTICIPANT_ID
48: ,LOAN_ID
49: ,HZ_PARTY_ID
85: ,CASE_FOLDER_ID
86: ,REVIEW_TYPE
87: ,CREDIT_CLASSIFICATION
88: ) VALUES (
89: DECODE(x_participant_id, FND_API.G_MISS_NUM, LNS_PARTICIPANTS_S.NEXTVAL, NULL, LNS_PARTICIPANTS_S.NEXTVAL, x_participant_id)
90: ,DECODE(p_LOAN_ID, FND_API.G_MISS_NUM, NULL, p_LOAN_ID)
91: ,DECODE(p_HZ_PARTY_ID, FND_API.G_MISS_NUM, NULL, p_HZ_PARTY_ID)
92: ,DECODE(p_LOAN_PARTICIPANT_TYPE, FND_API.G_MISS_CHAR, NULL, p_LOAN_PARTICIPANT_TYPE)
93: ,DECODE(p_START_DATE_ACTIVE, FND_API.G_MISS_DATE, NULL, p_START_DATE_ACTIVE)
174: ,p_credit_classification VARCHAR2
175: ) IS
176: BEGIN
177:
178: UPDATE LNS_PARTICIPANTS SET
179: --PARTICIPANT_ID = DECODE(p_PARTICIPANT_ID, FND_API.G_MISS_NUM, p_PARTICIPANT_ID, NULL, PARTICIPANT_ID)
180: LOAN_ID = DECODE(p_LOAN_ID, FND_API.G_MISS_NUM, NULL, NULL, LOAN_ID, P_LOAN_ID)
181: ,HZ_PARTY_ID = DECODE(p_HZ_PARTY_ID, FND_API.G_MISS_NUM, NULL, NULL, HZ_PARTY_ID, p_HZ_PARTY_ID)
182: ,LOAN_PARTICIPANT_TYPE = DECODE(p_LOAN_PARTICIPANT_TYPE, FND_API.G_MISS_CHAR, NULL, NULL, LOAN_PARTICIPANT_TYPE, p_LOAN_PARTICIPANT_TYPE)
224:
225: /* Delete_Row procedure */
226: PROCEDURE Delete_Row(x_rowid VARCHAR2) IS
227: BEGIN
228: DELETE FROM LNS_PARTICIPANTS
229: WHERE rowid = x_rowid;
230:
231: if (sql%notfound) then
232: raise no_data_found;
276: ,p_CASE_FOLDER_ID NUMBER
277: ,p_review_type VARCHAR2
278: ,p_credit_classification VARCHAR2
279: ) IS
280: CURSOR C IS SELECT * FROM LNS_PARTICIPANTS
281: WHERE rowid = x_rowid
282: FOR UPDATE of PARTICIPANT_ID NOWAIT;
283: Recinfo C%ROWTYPE;
284: BEGIN