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