[Home] [Help]
PACKAGE BODY: APPS.HZ_INDUSTRIAL_CLASS_APP_PKG
Source
1 PACKAGE BODY HZ_INDUSTRIAL_CLASS_APP_PKG as
2 /* $Header: ARHOCATB.pls 120.3 2005/10/30 04:20:42 appldev ship $ */
3
4
5 PROCEDURE Insert_Row(
6 x_Rowid IN OUT NOCOPY VARCHAR2,
7 x_CODE_APPLIED_ID NUMBER,
8 x_BEGIN_DATE DATE,
9 x_PARTY_ID NUMBER,
10 x_END_DATE DATE,
11 x_INDUSTRIAL_CLASS_ID NUMBER,
12 x_CREATED_BY NUMBER,
13 x_CREATION_DATE DATE,
14 x_LAST_UPDATE_LOGIN NUMBER,
15 x_LAST_UPDATE_DATE DATE,
16 x_LAST_UPDATED_BY NUMBER,
17 x_REQUEST_ID NUMBER,
18 x_PROGRAM_APPLICATION_ID NUMBER,
19 x_PROGRAM_ID NUMBER,
20 x_PROGRAM_UPDATE_DATE DATE,
21 x_WH_UPDATE_DATE DATE,
22 x_CONTENT_SOURCE_TYPE VARCHAR2,
23 x_IMPORTANCE_RANKING VARCHAR2
24 ) IS
25 CURSOR C IS SELECT rowid FROM HZ_INDUSTRIAL_CLASS_APP
26 WHERE CODE_APPLIED_ID = x_CODE_APPLIED_ID;
27 BEGIN
28 INSERT INTO HZ_INDUSTRIAL_CLASS_APP(
29 CODE_APPLIED_ID,
30 BEGIN_DATE,
31 PARTY_ID,
32 END_DATE,
33 INDUSTRIAL_CLASS_ID,
34 CREATED_BY,
35 CREATION_DATE,
36 LAST_UPDATE_LOGIN,
37 LAST_UPDATE_DATE,
38 LAST_UPDATED_BY,
39 REQUEST_ID,
40 PROGRAM_APPLICATION_ID,
41 PROGRAM_ID,
42 PROGRAM_UPDATE_DATE,
43 WH_UPDATE_DATE,
44 CONTENT_SOURCE_TYPE
45 --IMPORTANCE_RANKING
46 ) VALUES (
47 x_CODE_APPLIED_ID,
48 decode( x_BEGIN_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_BEGIN_DATE),
49 decode( x_PARTY_ID, FND_API.G_MISS_NUM, NULL,x_PARTY_ID),
50 decode( x_END_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_END_DATE),
51 decode( x_INDUSTRIAL_CLASS_ID, FND_API.G_MISS_NUM, NULL,x_INDUSTRIAL_CLASS_ID),
52 decode( x_CREATED_BY, FND_API.G_MISS_NUM, NULL,x_CREATED_BY),
53 decode( x_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_CREATION_DATE),
54 decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATE_LOGIN),
55 decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_LAST_UPDATE_DATE),
56 decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATED_BY),
57 decode( x_REQUEST_ID, FND_API.G_MISS_NUM, NULL,x_REQUEST_ID),
58 decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL,x_PROGRAM_APPLICATION_ID),
59 decode( x_PROGRAM_ID, FND_API.G_MISS_NUM, NULL,x_PROGRAM_ID),
60 decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_PROGRAM_UPDATE_DATE),
61 decode( x_WH_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_WH_UPDATE_DATE),
62 decode( x_CONTENT_SOURCE_TYPE, FND_API.G_MISS_CHAR, NULL,x_CONTENT_SOURCE_TYPE));
63 --decode( x_IMPORTANCE_RANKING, FND_API.G_MISS_CHAR, NULL,x_IMPORTANCE_RANKING));
64 OPEN C;
65 FETCH C INTO x_Rowid;
66 If (C%NOTFOUND) then
67 CLOSE C;
68 RAISE NO_DATA_FOUND;
69 End If;
70 End Insert_Row;
71
72
73
74 PROCEDURE Delete_Row( x_CODE_APPLIED_ID NUMBER
75 ) IS
76 BEGIN
77 DELETE FROM HZ_INDUSTRIAL_CLASS_APP
78 WHERE CODE_APPLIED_ID = x_CODE_APPLIED_ID;
79 If (SQL%NOTFOUND) then
80 RAISE NO_DATA_FOUND;
81 End If;
82 END Delete_Row;
83
84
85
86 PROCEDURE Update_Row(
87 x_Rowid IN OUT NOCOPY VARCHAR2,
88 x_CODE_APPLIED_ID NUMBER,
89 x_BEGIN_DATE DATE,
90 x_PARTY_ID NUMBER,
91 x_END_DATE DATE,
92 x_INDUSTRIAL_CLASS_ID NUMBER,
93 x_CREATED_BY NUMBER,
94 x_CREATION_DATE DATE,
95 x_LAST_UPDATE_LOGIN NUMBER,
96 x_LAST_UPDATE_DATE DATE,
97 x_LAST_UPDATED_BY NUMBER,
98 x_REQUEST_ID NUMBER,
99 x_PROGRAM_APPLICATION_ID NUMBER,
100 x_PROGRAM_ID NUMBER,
101 x_PROGRAM_UPDATE_DATE DATE,
102 x_WH_UPDATE_DATE DATE,
103 x_CONTENT_SOURCE_TYPE VARCHAR2,
104 x_IMPORTANCE_RANKING VARCHAR2
105 ) IS
106 BEGIN
107 Update HZ_INDUSTRIAL_CLASS_APP
108 SET
109 CODE_APPLIED_ID = decode( x_CODE_APPLIED_ID, FND_API.G_MISS_NUM,CODE_APPLIED_ID,x_CODE_APPLIED_ID),
110 BEGIN_DATE = decode( x_BEGIN_DATE, FND_API.G_MISS_DATE,BEGIN_DATE,x_BEGIN_DATE),
111 PARTY_ID = decode( x_PARTY_ID, FND_API.G_MISS_NUM,PARTY_ID,x_PARTY_ID),
112 END_DATE = decode( x_END_DATE, FND_API.G_MISS_DATE,END_DATE,x_END_DATE),
113 INDUSTRIAL_CLASS_ID = decode( x_INDUSTRIAL_CLASS_ID, FND_API.G_MISS_NUM,INDUSTRIAL_CLASS_ID,x_INDUSTRIAL_CLASS_ID),
114 -- Bug 3032780
115 /*
116 CREATED_BY = decode( x_CREATED_BY, FND_API.G_MISS_NUM,CREATED_BY,x_CREATED_BY),
117 CREATION_DATE = decode( x_CREATION_DATE, FND_API.G_MISS_DATE,CREATION_DATE,x_CREATION_DATE),
118 */
119 LAST_UPDATE_LOGIN = decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM,LAST_UPDATE_LOGIN,x_LAST_UPDATE_LOGIN),
120 LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),
121 LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),
122 REQUEST_ID = decode( x_REQUEST_ID, FND_API.G_MISS_NUM,REQUEST_ID,x_REQUEST_ID),
123 PROGRAM_APPLICATION_ID = decode( x_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM,PROGRAM_APPLICATION_ID,x_PROGRAM_APPLICATION_ID),
124 PROGRAM_ID = decode( x_PROGRAM_ID, FND_API.G_MISS_NUM,PROGRAM_ID,x_PROGRAM_ID),
125 PROGRAM_UPDATE_DATE = decode( x_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE,PROGRAM_UPDATE_DATE,x_PROGRAM_UPDATE_DATE),
126 WH_UPDATE_DATE = decode( x_WH_UPDATE_DATE, FND_API.G_MISS_DATE,WH_UPDATE_DATE,x_WH_UPDATE_DATE),
127 CONTENT_SOURCE_TYPE = decode( x_CONTENT_SOURCE_TYPE, FND_API.G_MISS_CHAR,CONTENT_SOURCE_TYPE,x_CONTENT_SOURCE_TYPE)
128 --IMPORTANCE_RANKING = decode( x_IMPORTANCE_RANKING, FND_API.G_MISS_CHAR,IMPORTANCE_RANKING,x_IMPORTANCE_RANKING)
129 where rowid = X_RowId;
130
131 If (SQL%NOTFOUND) then
132 RAISE NO_DATA_FOUND;
133 End If;
134 END Update_Row;
135
136
137
138 PROCEDURE Lock_Row(
139 x_Rowid VARCHAR2,
140 x_CODE_APPLIED_ID NUMBER,
141 x_BEGIN_DATE DATE,
142 x_PARTY_ID NUMBER,
143 x_END_DATE DATE,
144 x_INDUSTRIAL_CLASS_ID NUMBER,
145 x_CREATED_BY NUMBER,
146 x_CREATION_DATE DATE,
147 x_LAST_UPDATE_LOGIN NUMBER,
148 x_LAST_UPDATE_DATE DATE,
149 x_LAST_UPDATED_BY NUMBER,
150 x_REQUEST_ID NUMBER,
151 x_PROGRAM_APPLICATION_ID NUMBER,
152 x_PROGRAM_ID NUMBER,
153 x_PROGRAM_UPDATE_DATE DATE,
154 x_WH_UPDATE_DATE DATE,
155 x_CONTENT_SOURCE_TYPE VARCHAR2,
156 x_IMPORTANCE_RANKING VARCHAR2
157 ) IS
158 CURSOR C IS
159 SELECT *
160 FROM HZ_INDUSTRIAL_CLASS_APP
161 WHERE rowid = x_Rowid
162 FOR UPDATE of CODE_APPLIED_ID NOWAIT;
163 Recinfo C%ROWTYPE;
164 BEGIN
165 OPEN C;
166 FETCH C INTO Recinfo;
167 If (C%NOTFOUND) then
168 CLOSE C;
169 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
170 APP_EXCEPTION.RAISE_EXCEPTION;
171 End If;
172 CLOSE C;
173 if (
174 ( ( Recinfo.CODE_APPLIED_ID = x_CODE_APPLIED_ID)
175 OR ( ( Recinfo.CODE_APPLIED_ID = NULL )
176 AND ( x_CODE_APPLIED_ID = NULL )))
177 AND ( ( Recinfo.BEGIN_DATE = x_BEGIN_DATE)
178 OR ( ( Recinfo.BEGIN_DATE = NULL )
179 AND ( x_BEGIN_DATE = NULL )))
180 AND ( ( Recinfo.PARTY_ID = x_PARTY_ID)
181 OR ( ( Recinfo.PARTY_ID = NULL )
182 AND ( x_PARTY_ID = NULL )))
183 AND ( ( Recinfo.END_DATE = x_END_DATE)
184 OR ( ( Recinfo.END_DATE = NULL )
185 AND ( x_END_DATE = NULL )))
186 AND ( ( Recinfo.INDUSTRIAL_CLASS_ID = x_INDUSTRIAL_CLASS_ID)
187 OR ( ( Recinfo.INDUSTRIAL_CLASS_ID = NULL )
188 AND ( x_INDUSTRIAL_CLASS_ID = NULL )))
189 AND ( ( Recinfo.CREATED_BY = x_CREATED_BY)
190 OR ( ( Recinfo.CREATED_BY = NULL )
191 AND ( x_CREATED_BY = NULL )))
192 AND ( ( Recinfo.CREATION_DATE = x_CREATION_DATE)
193 OR ( ( Recinfo.CREATION_DATE = NULL )
194 AND ( x_CREATION_DATE = NULL )))
195 AND ( ( Recinfo.LAST_UPDATE_LOGIN = x_LAST_UPDATE_LOGIN)
196 OR ( ( Recinfo.LAST_UPDATE_LOGIN = NULL )
197 AND ( x_LAST_UPDATE_LOGIN = NULL )))
198 AND ( ( Recinfo.LAST_UPDATE_DATE = x_LAST_UPDATE_DATE)
199 OR ( ( Recinfo.LAST_UPDATE_DATE = NULL )
200 AND ( x_LAST_UPDATE_DATE = NULL )))
201 AND ( ( Recinfo.LAST_UPDATED_BY = x_LAST_UPDATED_BY)
202 OR ( ( Recinfo.LAST_UPDATED_BY = NULL )
203 AND ( x_LAST_UPDATED_BY = NULL )))
204 AND ( ( Recinfo.REQUEST_ID = x_REQUEST_ID)
205 OR ( ( Recinfo.REQUEST_ID = NULL )
206 AND ( x_REQUEST_ID = NULL )))
207 AND ( ( Recinfo.PROGRAM_APPLICATION_ID = x_PROGRAM_APPLICATION_ID)
208 OR ( ( Recinfo.PROGRAM_APPLICATION_ID = NULL )
209 AND ( x_PROGRAM_APPLICATION_ID = NULL )))
210 AND ( ( Recinfo.PROGRAM_ID = x_PROGRAM_ID)
211 OR ( ( Recinfo.PROGRAM_ID = NULL )
212 AND ( x_PROGRAM_ID = NULL )))
213 AND ( ( Recinfo.PROGRAM_UPDATE_DATE = x_PROGRAM_UPDATE_DATE)
214 OR ( ( Recinfo.PROGRAM_UPDATE_DATE = NULL )
215 AND ( x_PROGRAM_UPDATE_DATE = NULL )))
216 AND ( ( Recinfo.WH_UPDATE_DATE = x_WH_UPDATE_DATE)
217 OR ( ( Recinfo.WH_UPDATE_DATE = NULL )
218 AND ( x_WH_UPDATE_DATE = NULL )))
219 AND ( ( Recinfo.CONTENT_SOURCE_TYPE = x_CONTENT_SOURCE_TYPE)
220 OR ( ( Recinfo.CONTENT_SOURCE_TYPE = NULL )
221 AND ( x_CONTENT_SOURCE_TYPE = NULL )))
222 /*
223 AND ( ( Recinfo.IMPORTANCE_RANKING = x_IMPORTANCE_RANKING)
224 OR ( ( Recinfo.IMPORTANCE_RANKING = NULL )
225 AND ( x_IMPORTANCE_RANKING = NULL )))
226 */
227 ) then
228 return;
229 else
230 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
231 APP_EXCEPTION.RAISE_EXCEPTION;
232 End If;
233 END Lock_Row;
234
235 END HZ_INDUSTRIAL_CLASS_APP_PKG;