[Home] [Help]
1: PACKAGE BODY LNS_LOAN_DOCUMENTS_PKG AS
2: /* $Header: LNS_LNDOC_TBLH_B.pls 120.0.12010000.2 2009/05/25 10:25:01 gparuchu ship $ */
3:
4: /* Insert_Row procedure */
5: PROCEDURE Insert_Row(
21: ,P_OBJECT_VERSION_NUMBER IN NUMBER
22: ,P_REASON IN VARCHAR2 DEFAULT NULL
23: ) IS
24: BEGIN
25: INSERT INTO LNS_LOAN_DOCUMENTS
26: (
27: DOCUMENT_ID
28: ,SOURCE_ID
29: ,SOURCE_TABLE
41: ,REQUEST_ID
42: ,OBJECT_VERSION_NUMBER
43: ,REASON
44: ) VALUES (
45: LNS_LOAN_DOCUMENTS_S.NEXTVAL
46: ,DECODE(P_SOURCE_ID, FND_API.G_MISS_NUM, NULL, P_SOURCE_ID)
47: ,DECODE(P_SOURCE_TABLE, FND_API.G_MISS_CHAR, NULL, P_SOURCE_TABLE)
48: ,DECODE(P_DOCUMENT_TYPE, FND_API.G_MISS_CHAR, NULL, P_DOCUMENT_TYPE)
49: ,DECODE(P_VERSION, FND_API.G_MISS_NUM, NULL, P_VERSION)
85: ,P_OBJECT_VERSION_NUMBER IN NUMBER
86: ,P_REASON IN VARCHAR2 DEFAULT NULL
87: ) IS
88: BEGIN
89: UPDATE LNS_LOAN_DOCUMENTS SET
90: DOCUMENT_ID = LNS_LOAN_DOCUMENTS_S.NEXTVAL
91: ,SOURCE_ID = DECODE(P_SOURCE_ID, FND_API.G_MISS_NUM, NULL, P_SOURCE_ID)
92: ,SOURCE_TABLE = DECODE(P_SOURCE_TABLE, FND_API.G_MISS_CHAR, NULL, P_SOURCE_TABLE)
93: ,DOCUMENT_TYPE = DECODE(P_DOCUMENT_TYPE, FND_API.G_MISS_CHAR, NULL, P_DOCUMENT_TYPE)
86: ,P_REASON IN VARCHAR2 DEFAULT NULL
87: ) IS
88: BEGIN
89: UPDATE LNS_LOAN_DOCUMENTS SET
90: DOCUMENT_ID = LNS_LOAN_DOCUMENTS_S.NEXTVAL
91: ,SOURCE_ID = DECODE(P_SOURCE_ID, FND_API.G_MISS_NUM, NULL, P_SOURCE_ID)
92: ,SOURCE_TABLE = DECODE(P_SOURCE_TABLE, FND_API.G_MISS_CHAR, NULL, P_SOURCE_TABLE)
93: ,DOCUMENT_TYPE = DECODE(P_DOCUMENT_TYPE, FND_API.G_MISS_CHAR, NULL, P_DOCUMENT_TYPE)
94: ,VERSION = DECODE(P_VERSION, FND_API.G_MISS_NUM, NULL, P_VERSION)
108: where SOURCE_ID = P_SOURCE_ID;
109:
110: END Update_Row;
111:
112: END LNS_LOAN_DOCUMENTS_PKG;
113: