[Home] [Help]
1: PACKAGE BODY LNS_PARTICIPANTS_PKG AS
2: /* $Header: LNS_PART_TBLH_B.pls 120.4 2011/08/22 10:39:55 gparuchu ship $ */
3:
4: /* Insert_Row procedure */
5: PROCEDURE Insert_Row(x_PARTICIPANT_ID IN OUT NOCOPY NUMBER
42: ) IS
43:
44: BEGIN
45:
46: INSERT INTO LNS_PARTICIPANTS
47: (
48: PARTICIPANT_ID
49: ,LOAN_ID
50: ,HZ_PARTY_ID
87: ,REVIEW_TYPE
88: ,CREDIT_CLASSIFICATION
89: ,ACCESS_LEVEL
90: ) VALUES (
91: DECODE(x_participant_id, FND_API.G_MISS_NUM, LNS_PARTICIPANTS_S.NEXTVAL, NULL, LNS_PARTICIPANTS_S.NEXTVAL, x_participant_id)
92: ,DECODE(p_LOAN_ID, FND_API.G_MISS_NUM, NULL, p_LOAN_ID)
93: ,DECODE(p_HZ_PARTY_ID, FND_API.G_MISS_NUM, NULL, p_HZ_PARTY_ID)
94: ,DECODE(p_LOAN_PARTICIPANT_TYPE, FND_API.G_MISS_CHAR, NULL, p_LOAN_PARTICIPANT_TYPE)
95: ,DECODE(p_START_DATE_ACTIVE, FND_API.G_MISS_DATE, NULL, p_START_DATE_ACTIVE)
178: ,p_ACCESS_LEVEL VARCHAR2
179: ) IS
180: BEGIN
181:
182: UPDATE LNS_PARTICIPANTS SET
183: --PARTICIPANT_ID = DECODE(p_PARTICIPANT_ID, FND_API.G_MISS_NUM, p_PARTICIPANT_ID, NULL, PARTICIPANT_ID)
184: LOAN_ID = DECODE(p_LOAN_ID, FND_API.G_MISS_NUM, NULL, NULL, LOAN_ID, P_LOAN_ID)
185: ,HZ_PARTY_ID = DECODE(p_HZ_PARTY_ID, FND_API.G_MISS_NUM, NULL, NULL, HZ_PARTY_ID, p_HZ_PARTY_ID)
186: ,LOAN_PARTICIPANT_TYPE = DECODE(p_LOAN_PARTICIPANT_TYPE, FND_API.G_MISS_CHAR, NULL, NULL, LOAN_PARTICIPANT_TYPE, p_LOAN_PARTICIPANT_TYPE)
229:
230: /* Delete_Row procedure */
231: PROCEDURE Delete_Row(x_rowid VARCHAR2) IS
232: BEGIN
233: DELETE FROM LNS_PARTICIPANTS
234: WHERE rowid = x_rowid;
235:
236: if (sql%notfound) then
237: raise no_data_found;
282: ,p_review_type VARCHAR2
283: ,p_credit_classification VARCHAR2
284: ,p_ACCESS_LEVEL VARCHAR2
285: ) IS
286: CURSOR C IS SELECT * FROM LNS_PARTICIPANTS
287: WHERE rowid = x_rowid
288: FOR UPDATE of PARTICIPANT_ID NOWAIT;
289: Recinfo C%ROWTYPE;
290: BEGIN