[Home] [Help]
PACKAGE BODY: APPS.CSD_GENERIC_ERRMSGS_PKG
Source
1 PACKAGE BODY CSD_GENERIC_ERRMSGS_PKG as
2 /* $Header: csdtgemb.pls 115.1 2003/09/09 19:01:28 vparvath noship $ */
3 -- Start of Comments
4 -- Package name : CSD_GENERIC_ERRMSGS_PKG
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSD_GENERIC_ERRMSGS_PKG';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtgemb.pls';
13
14 PROCEDURE Insert_Row(
15 px_GENERIC_ERRMSGS_ID IN OUT NOCOPY NUMBER
16 ,p_MODULE_CODE VARCHAR2
17 ,p_SOURCE_ENTITY_ID1 NUMBER
18 ,p_SOURCE_ENTITY_ID2 NUMBER
19 ,p_SOURCE_ENTITY_TYPE_CODE VARCHAR2
20 ,p_MSG_TYPE_CODE VARCHAR2
21 ,p_MSG VARCHAR2
22 ,p_MSG_STATUS VARCHAR2
23 ,p_CREATED_BY NUMBER
24 ,p_CREATION_DATE DATE
25 ,p_LAST_UPDATED_BY NUMBER
26 ,p_LAST_UPDATE_DATE DATE
27 ,p_LAST_UPDATE_LOGIN NUMBER
28 ,p_OBJECT_VERSION_NUMBER NUMBER)
29
30 IS
31 CURSOR C2 IS SELECT CSD_GENERIC_ERRMSGS_S1.nextval FROM sys.dual;
32 BEGIN
33 If (px_GENERIC_ERRMSGS_ID IS NULL) OR (px_GENERIC_ERRMSGS_ID = FND_API.G_MISS_NUM) then
34 OPEN C2;
35 FETCH C2 INTO px_GENERIC_ERRMSGS_ID;
36 CLOSE C2;
37 End If;
38 INSERT INTO CSD_GENERIC_ERRMSGS(
39 GENERIC_ERRMSGS_ID
40 ,MODULE_CODE
41 ,SOURCE_ENTITY_ID1
42 ,SOURCE_ENTITY_ID2
43 ,SOURCE_ENTITY_TYPE_CODE
44 ,MSG_TYPE_CODE
45 ,MSG
46 ,MSG_STATUS
47 ,CREATED_BY
48 ,CREATION_DATE
49 ,LAST_UPDATED_BY
50 ,LAST_UPDATE_DATE
51 ,LAST_UPDATE_LOGIN
52 ,OBJECT_VERSION_NUMBER
53 ) VALUES (
54 px_GENERIC_ERRMSGS_ID
55 ,decode( p_MODULE_CODE, FND_API.G_MISS_CHAR, NULL, p_MODULE_CODE)
56 ,decode( p_SOURCE_ENTITY_ID1, FND_API.G_MISS_NUM, NULL, p_SOURCE_ENTITY_ID1)
57 ,decode( p_SOURCE_ENTITY_ID2, FND_API.G_MISS_NUM, NULL, p_SOURCE_ENTITY_ID2)
58 ,decode( p_SOURCE_ENTITY_TYPE_CODE, FND_API.G_MISS_CHAR, NULL, p_SOURCE_ENTITY_TYPE_CODE)
59 ,decode( p_MSG_TYPE_CODE, FND_API.G_MISS_CHAR, NULL, p_MSG_TYPE_CODE)
60 ,decode( p_MSG, FND_API.G_MISS_CHAR, NULL, p_MSG)
61 ,decode( p_MSG_STATUS, FND_API.G_MISS_CHAR, NULL, p_MSG_STATUS)
62 ,decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY)
63 ,decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE)
64 ,decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY)
65 ,decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE)
66 ,decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN)
67 ,decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, p_OBJECT_VERSION_NUMBER));
68 End Insert_Row;
69
70 PROCEDURE Update_Row(
71 p_GENERIC_ERRMSGS_ID NUMBER
72 ,p_MODULE_CODE VARCHAR2
73 ,p_SOURCE_ENTITY_ID1 NUMBER
74 ,p_SOURCE_ENTITY_ID2 NUMBER
75 ,p_SOURCE_ENTITY_TYPE_CODE VARCHAR2
76 ,p_MSG_TYPE_CODE VARCHAR2
77 ,p_MSG VARCHAR2
78 ,p_MSG_STATUS VARCHAR2
79 ,p_CREATED_BY NUMBER
80 ,p_CREATION_DATE DATE
81 ,p_LAST_UPDATED_BY NUMBER
82 ,p_LAST_UPDATE_DATE DATE
83 ,p_LAST_UPDATE_LOGIN NUMBER
84 ,p_OBJECT_VERSION_NUMBER NUMBER)
85
86 IS
87 BEGIN
88 Update CSD_GENERIC_ERRMSGS
89 SET
90 MODULE_CODE = decode( p_MODULE_CODE, FND_API.G_MISS_CHAR,NULL,NULL, MODULE_CODE, p_MODULE_CODE)
91 ,SOURCE_ENTITY_ID1 = decode( p_SOURCE_ENTITY_ID1, FND_API.G_MISS_NUM,NULL,NULL, SOURCE_ENTITY_ID1, p_SOURCE_ENTITY_ID1)
92 ,SOURCE_ENTITY_ID2 = decode( p_SOURCE_ENTITY_ID2, FND_API.G_MISS_NUM,NULL,NULL, SOURCE_ENTITY_ID2, p_SOURCE_ENTITY_ID2)
93 ,SOURCE_ENTITY_TYPE_CODE = decode( p_SOURCE_ENTITY_TYPE_CODE, FND_API.G_MISS_CHAR,NULL,NULL, SOURCE_ENTITY_TYPE_CODE, p_SOURCE_ENTITY_TYPE_CODE)
94 ,MSG_TYPE_CODE = decode( p_MSG_TYPE_CODE, FND_API.G_MISS_CHAR, NULL,NULL, MSG_TYPE_CODE, p_MSG_TYPE_CODE)
95 ,MSG = decode( p_MSG, FND_API.G_MISS_CHAR,NULL,NULL, MSG, p_MSG)
96 ,MSG_STATUS = decode( p_MSG_STATUS, FND_API.G_MISS_CHAR, NULL,NULL, MSG_STATUS, p_MSG_STATUS)
97 ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM,NULL,NULL, CREATED_BY, p_CREATED_BY)
98 ,CREATION_DATE = decode( p_CREATION_DATE, FND_API.G_MISS_DATE,NULL,NULL, CREATION_DATE, p_CREATION_DATE)
99 ,LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM,NULL,NULL, LAST_UPDATED_BY, p_LAST_UPDATED_BY)
100 ,LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,NULL,NULL, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE)
101 ,LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM,NULL,NULL, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
102 ,OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM,NULL,NULL, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
103 where GENERIC_ERRMSGS_ID = p_GENERIC_ERRMSGS_ID;
104
105 If (SQL%NOTFOUND) then
106 RAISE NO_DATA_FOUND;
107 End If;
108 END Update_Row;
109
110 PROCEDURE Delete_Row(
111 p_GENERIC_ERRMSGS_ID NUMBER)
112 IS
113 BEGIN
114 DELETE FROM CSD_GENERIC_ERRMSGS
115 WHERE GENERIC_ERRMSGS_ID = p_GENERIC_ERRMSGS_ID;
116 If (SQL%NOTFOUND) then
117 RAISE NO_DATA_FOUND;
118 End If;
119 END Delete_Row;
120
121 PROCEDURE Lock_Row(
122 p_GENERIC_ERRMSGS_ID NUMBER
123 ,p_MODULE_CODE VARCHAR2
124 ,p_SOURCE_ENTITY_ID1 NUMBER
125 ,p_SOURCE_ENTITY_ID2 NUMBER
126 ,p_SOURCE_ENTITY_TYPE_CODE VARCHAR2
127 ,p_MSG_TYPE_CODE VARCHAR2
128 ,p_MSG VARCHAR2
129 ,p_MSG_STATUS VARCHAR2
130 ,p_CREATED_BY NUMBER
131 ,p_CREATION_DATE DATE
132 ,p_LAST_UPDATED_BY NUMBER
133 ,p_LAST_UPDATE_DATE DATE
134 ,p_LAST_UPDATE_LOGIN NUMBER
135 ,p_OBJECT_VERSION_NUMBER NUMBER)
136
137 IS
138 CURSOR C IS
139 SELECT *
140 FROM CSD_GENERIC_ERRMSGS
141 WHERE GENERIC_ERRMSGS_ID = p_GENERIC_ERRMSGS_ID
142 FOR UPDATE of GENERIC_ERRMSGS_ID NOWAIT;
143 Recinfo C%ROWTYPE;
144 BEGIN
145 OPEN C;
146 FETCH C INTO Recinfo;
147 If (C%NOTFOUND) then
148 CLOSE C;
149 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
150 APP_EXCEPTION.RAISE_EXCEPTION;
151 End If;
152 CLOSE C;
153 if (
154 ( Recinfo.GENERIC_ERRMSGS_ID = p_GENERIC_ERRMSGS_ID)
155 AND ( ( Recinfo.MODULE_CODE = p_MODULE_CODE)
156 OR ( ( Recinfo.MODULE_CODE IS NULL )
157 AND ( p_MODULE_CODE IS NULL )))
158 AND ( ( Recinfo.SOURCE_ENTITY_ID1 = p_SOURCE_ENTITY_ID1)
159 OR ( ( Recinfo.SOURCE_ENTITY_ID1 IS NULL )
160 AND ( p_SOURCE_ENTITY_ID1 IS NULL )))
161 AND ( ( Recinfo.SOURCE_ENTITY_ID2 = p_SOURCE_ENTITY_ID2)
162 OR ( ( Recinfo.SOURCE_ENTITY_ID2 IS NULL )
163 AND ( p_SOURCE_ENTITY_ID2 IS NULL )))
164 AND ( ( Recinfo.SOURCE_ENTITY_TYPE_CODE = p_SOURCE_ENTITY_TYPE_CODE)
165 OR ( ( Recinfo.SOURCE_ENTITY_TYPE_CODE IS NULL )
166 AND ( p_SOURCE_ENTITY_TYPE_CODE IS NULL )))
167 AND ( ( Recinfo.MSG_TYPE_CODE = p_MSG_TYPE_CODE)
168 OR ( ( Recinfo.MSG_TYPE_CODE IS NULL )
169 AND ( p_MSG_TYPE_CODE IS NULL )))
170 AND ( ( Recinfo.MSG = p_MSG)
171 OR ( ( Recinfo.MSG IS NULL )
172 AND ( p_MSG IS NULL )))
173 AND ( ( Recinfo.MSG_STATUS = p_MSG_STATUS)
174 OR ( ( Recinfo.MSG_STATUS IS NULL )
175 AND ( p_MSG_STATUS IS NULL )))
176 AND ( ( Recinfo.CREATED_BY = p_CREATED_BY)
177 OR ( ( Recinfo.CREATED_BY IS NULL )
178 AND ( p_CREATED_BY IS NULL )))
179 AND ( ( Recinfo.CREATION_DATE = p_CREATION_DATE)
180 OR ( ( Recinfo.CREATION_DATE IS NULL )
181 AND ( p_CREATION_DATE IS NULL )))
182 AND ( ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
183 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
184 AND ( p_LAST_UPDATED_BY IS NULL )))
185 AND ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
186 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
187 AND ( p_LAST_UPDATE_DATE IS NULL )))
188 AND ( ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
189 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
190 AND ( p_LAST_UPDATE_LOGIN IS NULL )))
191 AND ( ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
192 OR ( ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
193 AND ( p_OBJECT_VERSION_NUMBER IS NULL )))
194 ) then
195 return;
196 else
197 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
198 APP_EXCEPTION.RAISE_EXCEPTION;
199 End If;
200 END Lock_Row;
201
202 End CSD_GENERIC_ERRMSGS_PKG;