[Home] [Help]
1: PACKAGE BODY LNS_FEE_ASSIGNMENTS_PKG AS
2: /* $Header: LNS_FASGM_TBLH_B.pls 120.2 2005/08/22 05:39:02 hikumar noship $ */
3:
4: /* Insert_Row procedure */
5: PROCEDURE Insert_Row(
27: ,P_DISB_HEADER_ID IN NUMBER
28: ,P_DELETE_DISABLED_FLAG IN VARCHAR2
29: ) IS
30: BEGIN
31: INSERT INTO LNS_FEE_ASSIGNMENTS
32: (
33: FEE_ASSIGNMENT_ID
34: ,LOAN_ID
35: ,FEE_ID
53: ,END_DATE_ACTIVE
54: ,DISB_HEADER_ID
55: ,DELETE_DISABLED_FLAG
56: ) VALUES (
57: DECODE(X_FEE_ASSIGNMENT_ID, FND_API.G_MISS_NUM, LNS_FEE_ASSIGNMENTS_S.NEXTVAL, NULL, LNS_FEE_ASSIGNMENTS_S.NEXTVAL, X_FEE_ASSIGNMENT_ID)
58: ,DECODE(P_LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
59: ,DECODE(P_FEE_ID, FND_API.G_MISS_NUM, NULL, P_FEE_ID)
60: ,DECODE(P_FEE_TYPE, FND_API.G_MISS_CHAR, NULL, P_FEE_TYPE)
61: ,DECODE(P_FEE, FND_API.G_MISS_NUM, NULL, P_FEE)
107: ,P_DISB_HEADER_ID IN NUMBER
108: ,P_DELETE_DISABLED_FLAG IN VARCHAR2
109: ) IS
110: BEGIN
111: UPDATE LNS_FEE_ASSIGNMENTS SET
112: LOAN_ID = DECODE(P_LOAN_ID, NULL, LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
113: ,FEE_ID = DECODE(P_FEE_ID, NULL, FEE_ID, FND_API.G_MISS_NUM, NULL, P_FEE_ID)
114: ,FEE_TYPE = DECODE(P_FEE_TYPE, NULL, FEE_TYPE, FND_API.G_MISS_CHAR, NULL, P_FEE_TYPE)
115: ,FEE = DECODE(P_FEE, NULL, FEE, FND_API.G_MISS_NUM, NULL, P_FEE)
138:
139: /* Delete_Row procedure */
140: PROCEDURE Delete_Row(P_FEE_ASSIGNMENT_ID IN NUMBER) IS
141: BEGIN
142: DELETE FROM LNS_FEE_ASSIGNMENTS
143: WHERE FEE_ASSIGNMENT_ID = P_FEE_ASSIGNMENT_ID;
144:
145: if (sql%notfound) then
146: raise no_data_found;
172: ,P_END_DATE_ACTIVE IN DATE
173: ,P_DISB_HEADER_ID IN NUMBER
174: ,P_DELETE_DISABLED_FLAG IN VARCHAR2
175: ) IS
176: CURSOR C IS SELECT * FROM LNS_FEE_ASSIGNMENTS
177: WHERE FEE_ASSIGNMENT_ID = P_FEE_ASSIGNMENT_ID
178: FOR UPDATE of FEE_ASSIGNMENT_ID NOWAIT;
179: Recinfo C%ROWTYPE;
180: BEGIN