[Home] [Help]
1: PACKAGE BODY LNS_FEE_ASSIGNMENTS_PKG AS
2: /* $Header: LNS_FASGM_TBLH_B.pls 120.6 2010/06/28 10:34:57 gparuchu ship $ */
3:
4: /* Insert_Row procedure */
5: PROCEDURE Insert_Row(
30: ,P_PHASE IN VARCHAR2
31: ,P_CUSTOM_PROCEDURE IN VARCHAR2
32: ) IS
33: BEGIN
34: INSERT INTO LNS_FEE_ASSIGNMENTS
35: (
36: FEE_ASSIGNMENT_ID
37: ,LOAN_ID
38: ,FEE_ID
59: ,OPEN_PHASE_FLAG
60: ,PHASE
61: ,CUSTOM_PROCEDURE
62: ) VALUES (
63: 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)
64: ,DECODE(P_LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
65: ,DECODE(P_FEE_ID, FND_API.G_MISS_NUM, NULL, P_FEE_ID)
66: ,DECODE(P_FEE_TYPE, FND_API.G_MISS_CHAR, NULL, P_FEE_TYPE)
67: ,DECODE(P_FEE, FND_API.G_MISS_NUM, NULL, P_FEE)
119: ,P_PHASE IN VARCHAR2
120: ,P_CUSTOM_PROCEDURE IN VARCHAR2
121: ) IS
122: BEGIN
123: UPDATE LNS_FEE_ASSIGNMENTS SET
124: LOAN_ID = DECODE(P_LOAN_ID, NULL, LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
125: ,FEE_ID = DECODE(P_FEE_ID, NULL, FEE_ID, FND_API.G_MISS_NUM, NULL, P_FEE_ID)
126: ,FEE_TYPE = DECODE(P_FEE_TYPE, NULL, FEE_TYPE, FND_API.G_MISS_CHAR, NULL, P_FEE_TYPE)
127: ,FEE = DECODE(P_FEE, NULL, FEE, FND_API.G_MISS_NUM, NULL, P_FEE)
153:
154: /* Delete_Row procedure */
155: PROCEDURE Delete_Row(P_FEE_ASSIGNMENT_ID IN NUMBER) IS
156: BEGIN
157: DELETE FROM LNS_FEE_ASSIGNMENTS
158: WHERE FEE_ASSIGNMENT_ID = P_FEE_ASSIGNMENT_ID;
159:
160: if (sql%notfound) then
161: raise no_data_found;
190: ,P_OPEN_PHASE_FLAG IN VARCHAR2
191: ,P_PHASE IN VARCHAR2
192: ,P_CUSTOM_PROCEDURE IN VARCHAR2
193: ) IS
194: CURSOR C IS SELECT * FROM LNS_FEE_ASSIGNMENTS
195: WHERE FEE_ASSIGNMENT_ID = P_FEE_ASSIGNMENT_ID
196: FOR UPDATE of FEE_ASSIGNMENT_ID NOWAIT;
197: Recinfo C%ROWTYPE;
198: BEGIN