[Home] [Help]
1: PACKAGE BODY LNS_AMORTIZATION_LINES_PKG AS
2: /* $Header: LNS_AMLNS_TBLH_B.pls 120.0 2005/05/31 18:39:07 appldev noship $ */
3:
4: /* Insert_Row procedure */
5: PROCEDURE Insert_Row(
19: ,P_LAST_UPDATE_LOGIN IN NUMBER
20: ,P_FEE_SCHEDULE_ID IN NUMBER
21: ) IS
22: BEGIN
23: INSERT INTO LNS_AMORTIZATION_LINES
24: (
25: AMORTIZATION_LINE_ID
26: ,AMORTIZATION_SCHEDULE_ID
27: ,LOAN_ID
37: ,LAST_UPDATED_BY
38: ,LAST_UPDATE_LOGIN
39: ,FEE_SCHEDULE_ID
40: ) VALUES (
41: DECODE(X_AMORTIZATION_LINE_ID, FND_API.G_MISS_NUM, LNS_AMORTIZATION_LINES_S.NEXTVAL, NULL, LNS_AMORTIZATION_LINES_S.NEXTVAL, X_AMORTIZATION_LINE_ID)
42: ,DECODE(P_AMORTIZATION_SCHEDULE_ID, FND_API.G_MISS_NUM, NULL, P_AMORTIZATION_SCHEDULE_ID)
43: ,DECODE(P_LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
44: ,DECODE(P_LINE_TYPE, FND_API.G_MISS_CHAR, NULL, P_LINE_TYPE)
45: ,DECODE(P_AMOUNT, FND_API.G_MISS_NUM, NULL, P_AMOUNT)
75: ,P_LAST_UPDATE_LOGIN IN NUMBER
76: ,P_FEE_SCHEDULE_ID IN NUMBER
77: ) IS
78: BEGIN
79: UPDATE LNS_AMORTIZATION_LINES SET
80: AMORTIZATION_SCHEDULE_ID = DECODE(P_AMORTIZATION_SCHEDULE_ID, NULL, AMORTIZATION_SCHEDULE_ID, FND_API.G_MISS_NUM, NULL, P_AMORTIZATION_SCHEDULE_ID)
81: ,LOAN_ID = DECODE(P_LOAN_ID, NULL, LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
82: ,LINE_TYPE = DECODE(P_LINE_TYPE, NULL, LINE_TYPE, FND_API.G_MISS_CHAR, NULL, P_LINE_TYPE)
83: ,AMOUNT = DECODE(P_AMOUNT, NULL, AMOUNT, FND_API.G_MISS_NUM, NULL, P_AMOUNT)
98:
99: /* Delete_Row procedure */
100: PROCEDURE Delete_Row(P_AMORTIZATION_LINE_ID IN NUMBER) IS
101: BEGIN
102: DELETE FROM LNS_AMORTIZATION_LINES
103: WHERE AMORTIZATION_LINE_ID = P_AMORTIZATION_LINE_ID;
104:
105: if (sql%notfound) then
106: raise no_data_found;
124: ,P_LAST_UPDATED_BY IN NUMBER
125: ,P_LAST_UPDATE_LOGIN IN NUMBER
126: ,P_FEE_SCHEDULE_ID IN NUMBER
127: ) IS
128: CURSOR C IS SELECT * FROM LNS_AMORTIZATION_LINES
129: WHERE AMORTIZATION_LINE_ID = P_AMORTIZATION_LINE_ID
130: FOR UPDATE of AMORTIZATION_LINE_ID NOWAIT;
131: Recinfo C%ROWTYPE;
132: BEGIN