1: PACKAGE BODY LNS_FEE_SCHEDULES_PKG AS
2: /* $Header: LNS_FEESC_TBLH_B.pls 120.1 2005/07/28 14:37:35 raverma noship $ */
3:
4: /* Insert_Row procedure */
5: PROCEDURE Insert_Row(
23: ,P_OBJECT_VERSION_NUMBER IN NUMBER
24: ,P_DISB_HEADER_ID IN NUMBER
25: ) IS
26: BEGIN
27: INSERT INTO LNS_FEE_SCHEDULES
28: (
29: FEE_SCHEDULE_ID
30: ,FEE_ID
31: ,LOAN_ID
91: ,P_OBJECT_VERSION_NUMBER IN NUMBER
92: ,P_DISB_HEADER_ID IN NUMBER
93: ) IS
94: BEGIN
95: UPDATE LNS_FEE_SCHEDULES SET
96: FEE_ID = DECODE(P_FEE_ID, NULL, FEE_ID, FND_API.G_MISS_NUM, NULL, P_FEE_ID)
97: ,LOAN_ID = DECODE(P_LOAN_ID, NULL, LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
98: ,FEE_AMOUNT = DECODE(P_FEE_AMOUNT, NULL, FEE_AMOUNT, FND_API.G_MISS_NUM, NULL, P_FEE_AMOUNT)
99: ,FEE_INSTALLMENT = DECODE(P_FEE_INSTALLMENT, NULL, FEE_INSTALLMENT, FND_API.G_MISS_NUM, NULL, P_FEE_INSTALLMENT)
118:
119: /* Delete_Row procedure */
120: PROCEDURE Delete_Row(P_FEE_SCHEDULE_ID IN NUMBER) IS
121: BEGIN
122: DELETE FROM LNS_FEE_SCHEDULES
123: WHERE FEE_SCHEDULE_ID = P_FEE_SCHEDULE_ID;
124:
125: if (sql%notfound) then
126: raise no_data_found;
148: ,P_REQUEST_ID IN NUMBER
149: ,P_OBJECT_VERSION_NUMBER IN NUMBER
150: ,P_DISB_HEADER_ID IN NUMBER
151: ) IS
152: CURSOR C IS SELECT * FROM LNS_FEE_SCHEDULES
153: WHERE FEE_SCHEDULE_ID = P_FEE_SCHEDULE_ID
154: FOR UPDATE of FEE_SCHEDULE_ID NOWAIT;
155: Recinfo C%ROWTYPE;
156: BEGIN