[Home] [Help]
1: PACKAGE BODY LNS_DISB_HEADERS_PKG AS
2: /* $Header: LNS_DSBHR_TBLH_B.pls 120.2 2005/07/15 14:25:55 scherkas noship $ */
3:
4: /* Insert_Row procedure */
5: PROCEDURE Insert_Row(
20: ,P_LAST_UPDATE_LOGIN IN NUMBER
21: ,P_AUTOFUNDING_FLAG IN VARCHAR2
22: ) IS
23: BEGIN
24: INSERT INTO LNS_DISB_HEADERS
25: (
26: DISB_HEADER_ID
27: ,LOAN_ID
28: ,ACTIVITY_CODE
39: ,LAST_UPDATED_BY
40: ,LAST_UPDATE_LOGIN
41: ,AUTOFUNDING_FLAG
42: ) VALUES (
43: 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)
44: ,DECODE(P_LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
45: ,DECODE(P_ACTIVITY_CODE, FND_API.G_MISS_CHAR, NULL, P_ACTIVITY_CODE)
46: ,DECODE(P_DISBURSEMENT_NUMBER, FND_API.G_MISS_NUM, NULL, P_DISBURSEMENT_NUMBER)
47: ,DECODE(P_HEADER_AMOUNT, FND_API.G_MISS_NUM, NULL, P_HEADER_AMOUNT)
79: ,P_LAST_UPDATE_LOGIN IN NUMBER
80: ,P_AUTOFUNDING_FLAG IN VARCHAR2
81: ) IS
82: BEGIN
83: UPDATE LNS_DISB_HEADERS SET
84: LOAN_ID = DECODE(P_LOAN_ID, NULL, LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
85: ,ACTIVITY_CODE = DECODE(P_ACTIVITY_CODE, NULL, ACTIVITY_CODE, FND_API.G_MISS_CHAR, NULL, P_ACTIVITY_CODE)
86: ,DISBURSEMENT_NUMBER = DECODE(P_DISBURSEMENT_NUMBER, NULL, DISBURSEMENT_NUMBER, FND_API.G_MISS_NUM, NULL, P_DISBURSEMENT_NUMBER)
87: ,HEADER_AMOUNT = DECODE(P_HEADER_AMOUNT, NULL, HEADER_AMOUNT, FND_API.G_MISS_NUM, NULL, P_HEADER_AMOUNT)
103:
104: /* Delete_Row procedure */
105: PROCEDURE Delete_Row(P_DISB_HEADER_ID IN NUMBER) IS
106: BEGIN
107: DELETE FROM LNS_DISB_HEADERS
108: WHERE DISB_HEADER_ID = P_DISB_HEADER_ID;
109:
110: if (sql%notfound) then
111: raise no_data_found;
130: ,P_LAST_UPDATED_BY IN NUMBER
131: ,P_LAST_UPDATE_LOGIN IN NUMBER
132: ,P_AUTOFUNDING_FLAG IN VARCHAR2
133: ) IS
134: CURSOR C IS SELECT * FROM LNS_DISB_HEADERS
135: WHERE DISB_HEADER_ID = P_DISB_HEADER_ID
136: FOR UPDATE of DISB_HEADER_ID NOWAIT;
137: Recinfo C%ROWTYPE;
138: BEGIN