PACKAGE BODY: APPS.LNS_LOAN_DOCUMENTS_PKG

Source

1 PACKAGE BODY LNS_LOAN_DOCUMENTS_PKG AS
2 /* $Header: LNS_LNDOC_TBLH_B.pls 120.0 2005/05/31 17:25:29 appldev noship $ */
3 
4 /* Insert_Row procedure */
5 PROCEDURE Insert_Row(
6         X_DOCUMENT_ID                   IN OUT NOCOPY NUMBER
7         ,P_SOURCE_ID                    IN NUMBER
8         ,P_SOURCE_TABLE                 IN VARCHAR2
9         ,P_DOCUMENT_TYPE        	IN VARCHAR2
10         ,P_VERSION              	IN NUMBER
11         ,P_DOCUMENT_XML                 IN CLOB
12         ,P_CREATION_DATE                IN DATE         DEFAULT NULL
13         ,P_CREATED_BY           	IN NUMBER       DEFAULT NULL
14         ,P_LAST_UPDATE_DATE             IN DATE         DEFAULT NULL
15         ,P_LAST_UPDATED_BY              IN NUMBER       DEFAULT NULL
16         ,P_LAST_UPDATE_LOGIN            IN NUMBER       DEFAULT NULL
17         ,P_PROGRAM_UPDATE_DATE          IN DATE 	DEFAULT NULL
18         ,P_PROGRAM_APPLICATION_ID       IN NUMBER 	DEFAULT NULL
19         ,P_PROGRAM_ID                   IN NUMBER 	DEFAULT NULL
20         ,P_REQUEST_ID                   IN NUMBER 	DEFAULT NULL
21         ,P_OBJECT_VERSION_NUMBER        IN NUMBER
22 ) IS
23 BEGIN
24 	INSERT INTO LNS_LOAN_DOCUMENTS
25 	(
26 		DOCUMENT_ID
27 		,SOURCE_ID
28 		,SOURCE_TABLE
29 		,DOCUMENT_TYPE
30 		,VERSION
31 		,DOCUMENT_XML
32 		,CREATED_BY
33 		,CREATION_DATE
34 		,LAST_UPDATED_BY
35 		,LAST_UPDATE_DATE
36 		,LAST_UPDATE_LOGIN
37 		,PROGRAM_UPDATE_DATE
38 		,PROGRAM_APPLICATION_ID
39 		,PROGRAM_ID
40 		,REQUEST_ID
41 		,OBJECT_VERSION_NUMBER
42 	) VALUES (
43 		LNS_LOAN_DOCUMENTS_S.NEXTVAL
44 		,DECODE(P_SOURCE_ID, FND_API.G_MISS_NUM, NULL, P_SOURCE_ID)
45 		,DECODE(P_SOURCE_TABLE, FND_API.G_MISS_CHAR, NULL, P_SOURCE_TABLE)
46 		,DECODE(P_DOCUMENT_TYPE, FND_API.G_MISS_CHAR, NULL, P_DOCUMENT_TYPE)
47 		,DECODE(P_VERSION, FND_API.G_MISS_NUM, NULL, P_VERSION)
48 		,P_DOCUMENT_XML
49 		,LNS_UTILITY_PUB.CREATED_BY
50 		,LNS_UTILITY_PUB.CREATION_DATE
51 		,LNS_UTILITY_PUB.LAST_UPDATED_BY
52 		,LNS_UTILITY_PUB.LAST_UPDATE_DATE
53 		,LNS_UTILITY_PUB.LAST_UPDATE_LOGIN
54 		,LNS_UTILITY_PUB.PROGRAM_UPDATE_DATE
55 		,LNS_UTILITY_PUB.PROGRAM_APPLICATION_ID
56 		,LNS_UTILITY_PUB.PROGRAM_ID
57 		,LNS_UTILITY_PUB.REQUEST_ID
58 		,DECODE(P_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, P_OBJECT_VERSION_NUMBER)
59 	) RETURNING
60 		 DOCUMENT_ID
61 	 INTO
62 		 X_DOCUMENT_ID;
63 END Insert_Row;
64 
65 END LNS_LOAN_DOCUMENTS_PKG;
66