[Home] [Help]
1: PACKAGE BODY LNS_DISB_HEADERS_PKG AS
2: /* $Header: LNS_DSBHR_TBLH_B.pls 120.2.12010000.2 2010/03/19 08:37:26 gparuchu ship $ */
3:
4: /* Insert_Row procedure */
5: PROCEDURE Insert_Row(
22: ,P_DESCRIPTION IN VARCHAR2
23: ,P_PHASE IN VARCHAR2
24: ) IS
25: BEGIN
26: INSERT INTO LNS_DISB_HEADERS
27: (
28: DISB_HEADER_ID
29: ,LOAN_ID
30: ,ACTIVITY_CODE
43: ,AUTOFUNDING_FLAG
44: ,DESCRIPTION
45: ,PHASE
46: ) VALUES (
47: DECODE(X_DISB_HEADER_ID, FND_API.G_MISS_NUM, LNS_DISB_HEADERS_S.NEXTVAL, NULL, LNS_DISB_HEADERS_S.NEXTVAL, X_DISB_HEADER_ID)
48: ,DECODE(P_LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
49: ,DECODE(P_ACTIVITY_CODE, FND_API.G_MISS_CHAR, NULL, P_ACTIVITY_CODE)
50: ,DECODE(P_DISBURSEMENT_NUMBER, FND_API.G_MISS_NUM, NULL, P_DISBURSEMENT_NUMBER)
51: ,DECODE(P_HEADER_AMOUNT, FND_API.G_MISS_NUM, NULL, P_HEADER_AMOUNT)
87: ,P_DESCRIPTION IN VARCHAR2
88: ,P_PHASE IN VARCHAR2
89: ) IS
90: BEGIN
91: UPDATE LNS_DISB_HEADERS SET
92: LOAN_ID = DECODE(P_LOAN_ID, NULL, LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
93: ,ACTIVITY_CODE = DECODE(P_ACTIVITY_CODE, NULL, ACTIVITY_CODE, FND_API.G_MISS_CHAR, NULL, P_ACTIVITY_CODE)
94: ,DISBURSEMENT_NUMBER = DECODE(P_DISBURSEMENT_NUMBER, NULL, DISBURSEMENT_NUMBER, FND_API.G_MISS_NUM, NULL, P_DISBURSEMENT_NUMBER)
95: ,HEADER_AMOUNT = DECODE(P_HEADER_AMOUNT, NULL, HEADER_AMOUNT, FND_API.G_MISS_NUM, NULL, P_HEADER_AMOUNT)
113:
114: /* Delete_Row procedure */
115: PROCEDURE Delete_Row(P_DISB_HEADER_ID IN NUMBER) IS
116: BEGIN
117: DELETE FROM LNS_DISB_HEADERS
118: WHERE DISB_HEADER_ID = P_DISB_HEADER_ID;
119:
120: if (sql%notfound) then
121: raise no_data_found;
142: ,P_AUTOFUNDING_FLAG IN VARCHAR2
143: ,P_DESCRIPTION IN VARCHAR2
144: ,P_PHASE IN VARCHAR2
145: ) IS
146: CURSOR C IS SELECT * FROM LNS_DISB_HEADERS
147: WHERE DISB_HEADER_ID = P_DISB_HEADER_ID
148: FOR UPDATE of DISB_HEADER_ID NOWAIT;
149: Recinfo C%ROWTYPE;
150: BEGIN