[Home] [Help]
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.12010000.2 2009/05/25 10:25:01 gparuchu ship $ */
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 ,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
30 ,DOCUMENT_TYPE
31 ,VERSION
32 ,DOCUMENT_XML
33 ,CREATED_BY
34 ,CREATION_DATE
35 ,LAST_UPDATED_BY
36 ,LAST_UPDATE_DATE
37 ,LAST_UPDATE_LOGIN
38 ,PROGRAM_UPDATE_DATE
39 ,PROGRAM_APPLICATION_ID
40 ,PROGRAM_ID
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)
50 ,P_DOCUMENT_XML
51 ,LNS_UTILITY_PUB.CREATED_BY
52 ,LNS_UTILITY_PUB.CREATION_DATE
53 ,LNS_UTILITY_PUB.LAST_UPDATED_BY
54 ,LNS_UTILITY_PUB.LAST_UPDATE_DATE
55 ,LNS_UTILITY_PUB.LAST_UPDATE_LOGIN
56 ,LNS_UTILITY_PUB.PROGRAM_UPDATE_DATE
57 ,LNS_UTILITY_PUB.PROGRAM_APPLICATION_ID
58 ,LNS_UTILITY_PUB.PROGRAM_ID
59 ,LNS_UTILITY_PUB.REQUEST_ID
60 ,DECODE(P_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, P_OBJECT_VERSION_NUMBER)
61 ,P_REASON
62 ) RETURNING
63 DOCUMENT_ID
64 INTO
65 X_DOCUMENT_ID;
66 END Insert_Row;
67
68 /* Update_Row procedure */
69 PROCEDURE Update_Row(
70 X_DOCUMENT_ID IN OUT NOCOPY NUMBER
71 ,P_SOURCE_ID IN NUMBER
72 ,P_SOURCE_TABLE IN VARCHAR2
73 ,P_DOCUMENT_TYPE IN VARCHAR2
74 ,P_VERSION IN NUMBER
75 ,P_DOCUMENT_XML IN CLOB
76 ,P_CREATION_DATE IN DATE DEFAULT NULL
77 ,P_CREATED_BY IN NUMBER DEFAULT NULL
78 ,P_LAST_UPDATE_DATE IN DATE DEFAULT NULL
79 ,P_LAST_UPDATED_BY IN NUMBER DEFAULT NULL
80 ,P_LAST_UPDATE_LOGIN IN NUMBER DEFAULT NULL
81 ,P_PROGRAM_UPDATE_DATE IN DATE DEFAULT NULL
82 ,P_PROGRAM_APPLICATION_ID IN NUMBER DEFAULT NULL
83 ,P_PROGRAM_ID IN NUMBER DEFAULT NULL
84 ,P_REQUEST_ID IN NUMBER DEFAULT NULL
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)
94 ,VERSION = DECODE(P_VERSION, FND_API.G_MISS_NUM, NULL, P_VERSION)
95 ,DOCUMENT_XML = P_DOCUMENT_XML
96 ,CREATED_BY = LNS_UTILITY_PUB.CREATED_BY
97 ,CREATION_DATE = LNS_UTILITY_PUB.CREATION_DATE
98 ,LAST_UPDATED_BY = LNS_UTILITY_PUB.LAST_UPDATED_BY
99 ,LAST_UPDATE_DATE = LNS_UTILITY_PUB.LAST_UPDATE_DATE
100 ,LAST_UPDATE_LOGIN = LNS_UTILITY_PUB.LAST_UPDATE_LOGIN
101 ,PROGRAM_UPDATE_DATE = LNS_UTILITY_PUB.PROGRAM_UPDATE_DATE
102 ,PROGRAM_APPLICATION_ID = LNS_UTILITY_PUB.PROGRAM_APPLICATION_ID
103 ,PROGRAM_ID = LNS_UTILITY_PUB.PROGRAM_ID
104 ,REQUEST_ID = LNS_UTILITY_PUB.REQUEST_ID
105 ,OBJECT_VERSION_NUMBER = DECODE(P_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, P_OBJECT_VERSION_NUMBER)
106 ,REASON = P_REASON
107
108 where SOURCE_ID = P_SOURCE_ID;
109
110 END Update_Row;
111
112 END LNS_LOAN_DOCUMENTS_PKG;
113