[Home] [Help]
PACKAGE BODY: APPS.HZ_CLASS_CATEGORY_USES_PKG
Source
1 PACKAGE BODY HZ_CLASS_CATEGORY_USES_PKG AS
2 /*$Header: ARHCAUTB.pls 115.4 2002/11/21 21:07:48 sponnamb ship $ */
3
4 PROCEDURE Insert_Row (
5 X_CLASS_CATEGORY IN VARCHAR2,
6 X_OWNER_TABLE IN VARCHAR2,
7 X_COLUMN_NAME IN VARCHAR2,
8 X_ADDITIONAL_WHERE_CLAUSE IN VARCHAR2,
9 X_OBJECT_VERSION_NUMBER IN NUMBER,
10 X_CREATED_BY_MODULE IN VARCHAR2,
11 X_APPLICATION_ID IN NUMBER
12 ) IS
13
14 BEGIN
15
16 INSERT INTO HZ_CLASS_CATEGORY_USES (
17 CLASS_CATEGORY,
18 OWNER_TABLE,
19 COLUMN_NAME,
20 ADDITIONAL_WHERE_CLAUSE,
21 CREATED_BY,
22 CREATION_DATE,
23 LAST_UPDATE_LOGIN,
24 LAST_UPDATE_DATE,
25 LAST_UPDATED_BY,
26 OBJECT_VERSION_NUMBER,
27 CREATED_BY_MODULE,
28 APPLICATION_ID
29 )
30 VALUES (
31 DECODE( X_CLASS_CATEGORY, FND_API.G_MISS_CHAR, NULL, X_CLASS_CATEGORY ),
32 DECODE( X_OWNER_TABLE, FND_API.G_MISS_CHAR, NULL, X_OWNER_TABLE ),
33 DECODE( X_COLUMN_NAME, FND_API.G_MISS_CHAR, NULL, X_COLUMN_NAME ),
34 DECODE( X_ADDITIONAL_WHERE_CLAUSE, FND_API.G_MISS_CHAR, NULL, X_ADDITIONAL_WHERE_CLAUSE ),
35 HZ_UTILITY_V2PUB.CREATED_BY,
36 HZ_UTILITY_V2PUB.CREATION_DATE,
37 HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN,
38 HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
39 HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
40 DECODE( X_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, X_OBJECT_VERSION_NUMBER ),
41 DECODE( X_CREATED_BY_MODULE, FND_API.G_MISS_CHAR, NULL, X_CREATED_BY_MODULE ),
42 DECODE( X_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, X_APPLICATION_ID )
43 );
44
45 END Insert_Row;
46
47 PROCEDURE Update_Row (
48 X_CLASS_CATEGORY IN VARCHAR2,
49 X_OWNER_TABLE IN VARCHAR2,
50 X_COLUMN_NAME IN VARCHAR2,
51 X_ADDITIONAL_WHERE_CLAUSE IN VARCHAR2,
52 X_OBJECT_VERSION_NUMBER IN NUMBER,
53 X_CREATED_BY_MODULE IN VARCHAR2,
54 X_APPLICATION_ID IN NUMBER
55 ) IS
56
57 BEGIN
58
59 UPDATE HZ_CLASS_CATEGORY_USES SET
60 COLUMN_NAME = DECODE( X_COLUMN_NAME, NULL, COLUMN_NAME, FND_API.G_MISS_CHAR, NULL, X_COLUMN_NAME ),
61 ADDITIONAL_WHERE_CLAUSE = DECODE( X_ADDITIONAL_WHERE_CLAUSE, NULL, ADDITIONAL_WHERE_CLAUSE, FND_API.G_MISS_CHAR, NULL, X_ADDITIONAL_WHERE_CLAUSE ),
62 LAST_UPDATE_LOGIN = HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN,
63 LAST_UPDATE_DATE = HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
64 LAST_UPDATED_BY = HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
65 OBJECT_VERSION_NUMBER = DECODE( X_OBJECT_VERSION_NUMBER, NULL, OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, X_OBJECT_VERSION_NUMBER ),
66 CREATED_BY_MODULE = DECODE( X_CREATED_BY_MODULE, NULL, CREATED_BY_MODULE, FND_API.G_MISS_CHAR, NULL, X_CREATED_BY_MODULE ),
67 APPLICATION_ID = DECODE( X_APPLICATION_ID, NULL, APPLICATION_ID, FND_API.G_MISS_NUM, NULL, X_APPLICATION_ID )
68 WHERE CLASS_CATEGORY = X_CLASS_CATEGORY
69 AND OWNER_TABLE = X_OWNER_TABLE;
70
71 IF ( SQL%NOTFOUND ) THEN
72 RAISE NO_DATA_FOUND;
73 END IF;
74
75 END Update_Row;
76
77 PROCEDURE Lock_Row (
78 X_Rowid IN OUT NOCOPY VARCHAR2,
79 X_CLASS_CATEGORY IN VARCHAR2,
80 X_OWNER_TABLE IN VARCHAR2,
81 X_COLUMN_NAME IN VARCHAR2,
82 X_ADDITIONAL_WHERE_CLAUSE IN VARCHAR2,
83 X_CREATED_BY IN NUMBER,
84 X_CREATION_DATE IN DATE,
85 X_LAST_UPDATE_LOGIN IN NUMBER,
86 X_LAST_UPDATE_DATE IN DATE,
87 X_LAST_UPDATED_BY IN NUMBER,
88 X_OBJECT_VERSION_NUMBER IN NUMBER,
89 X_CREATED_BY_MODULE IN VARCHAR2,
90 X_APPLICATION_ID IN NUMBER
91 ) IS
92
93 CURSOR C IS
94 SELECT * FROM HZ_CLASS_CATEGORY_USES
95 WHERE ROWID = x_Rowid
96 FOR UPDATE NOWAIT;
97 Recinfo C%ROWTYPE;
98
99 BEGIN
100
101 OPEN C;
102 FETCH C INTO Recinfo;
103 IF ( C%NOTFOUND ) THEN
104 CLOSE C;
105 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
106 APP_EXCEPTION.RAISE_EXCEPTION;
107 END IF;
108 CLOSE C;
109
110 IF (
111 ( ( Recinfo.CLASS_CATEGORY = X_CLASS_CATEGORY )
112 OR ( ( Recinfo.CLASS_CATEGORY IS NULL )
113 AND ( X_CLASS_CATEGORY IS NULL ) ) )
114 AND ( ( Recinfo.OWNER_TABLE = X_OWNER_TABLE )
115 OR ( ( Recinfo.OWNER_TABLE IS NULL )
116 AND ( X_OWNER_TABLE IS NULL ) ) )
117 AND ( ( Recinfo.COLUMN_NAME = X_COLUMN_NAME )
118 OR ( ( Recinfo.COLUMN_NAME IS NULL )
119 AND ( X_COLUMN_NAME IS NULL ) ) )
120 AND ( ( Recinfo.ADDITIONAL_WHERE_CLAUSE = X_ADDITIONAL_WHERE_CLAUSE )
121 OR ( ( Recinfo.ADDITIONAL_WHERE_CLAUSE IS NULL )
122 AND ( X_ADDITIONAL_WHERE_CLAUSE IS NULL ) ) )
123 AND ( ( Recinfo.CREATED_BY = X_CREATED_BY )
124 OR ( ( Recinfo.CREATED_BY IS NULL )
125 AND ( X_CREATED_BY IS NULL ) ) )
126 AND ( ( Recinfo.CREATION_DATE = X_CREATION_DATE )
127 OR ( ( Recinfo.CREATION_DATE IS NULL )
128 AND ( X_CREATION_DATE IS NULL ) ) )
129 AND ( ( Recinfo.LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN )
130 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
131 AND ( X_LAST_UPDATE_LOGIN IS NULL ) ) )
132 AND ( ( Recinfo.LAST_UPDATE_DATE = X_LAST_UPDATE_DATE )
133 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
134 AND ( X_LAST_UPDATE_DATE IS NULL ) ) )
135 AND ( ( Recinfo.LAST_UPDATED_BY = X_LAST_UPDATED_BY )
136 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
137 AND ( X_LAST_UPDATED_BY IS NULL ) ) )
138 AND ( ( Recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER )
139 OR ( ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
140 AND ( X_OBJECT_VERSION_NUMBER IS NULL ) ) )
141 AND ( ( Recinfo.CREATED_BY_MODULE = X_CREATED_BY_MODULE )
142 OR ( ( Recinfo.CREATED_BY_MODULE IS NULL )
143 AND ( X_CREATED_BY_MODULE IS NULL ) ) )
144 AND ( ( Recinfo.APPLICATION_ID = X_APPLICATION_ID )
145 OR ( ( Recinfo.APPLICATION_ID IS NULL )
146 AND ( X_APPLICATION_ID IS NULL ) ) )
147 ) THEN
148 RETURN;
149 ELSE
150 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
151 APP_EXCEPTION.RAISE_EXCEPTION;
152 END IF;
153
154 END Lock_Row;
155
156 PROCEDURE Select_Row (
157 X_CLASS_CATEGORY IN OUT NOCOPY VARCHAR2,
158 X_OWNER_TABLE IN OUT NOCOPY VARCHAR2,
159 X_COLUMN_NAME OUT NOCOPY VARCHAR2,
160 X_ADDITIONAL_WHERE_CLAUSE OUT NOCOPY VARCHAR2,
161 X_CREATED_BY_MODULE OUT NOCOPY VARCHAR2,
162 X_APPLICATION_ID OUT NOCOPY NUMBER
163 ) IS
164
165 BEGIN
166
167 SELECT
168 NVL( CLASS_CATEGORY, FND_API.G_MISS_CHAR ),
169 NVL( OWNER_TABLE, FND_API.G_MISS_CHAR ),
170 NVL( COLUMN_NAME, FND_API.G_MISS_CHAR ),
171 NVL( ADDITIONAL_WHERE_CLAUSE, FND_API.G_MISS_CHAR ),
172 NVL( CREATED_BY_MODULE, FND_API.G_MISS_CHAR ),
173 NVL( APPLICATION_ID, FND_API.G_MISS_NUM )
174 INTO
175 X_CLASS_CATEGORY,
176 X_OWNER_TABLE,
177 X_COLUMN_NAME,
178 X_ADDITIONAL_WHERE_CLAUSE,
179 X_CREATED_BY_MODULE,
180 X_APPLICATION_ID
181 FROM HZ_CLASS_CATEGORY_USES
182 WHERE CLASS_CATEGORY = X_CLASS_CATEGORY
183 AND OWNER_TABLE = X_OWNER_TABLE;
184
185 EXCEPTION
186 WHEN NO_DATA_FOUND THEN
187 FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
188 FND_MESSAGE.SET_TOKEN( 'RECORD', 'class_category_use_rec');
189 FND_MESSAGE.SET_TOKEN( 'VALUE', X_CLASS_CATEGORY );
190 FND_MSG_PUB.ADD;
191 RAISE FND_API.G_EXC_ERROR;
192
193 END Select_Row;
194
195 PROCEDURE Delete_Row (
196 X_CLASS_CATEGORY IN VARCHAR2,
197 X_OWNER_TABLE IN VARCHAR2
198 ) IS
199
200 BEGIN
201
202 DELETE FROM HZ_CLASS_CATEGORY_USES
203 WHERE CLASS_CATEGORY = X_CLASS_CATEGORY
204 AND OWNER_TABLE = X_OWNER_TABLE;
205
206 IF ( SQL%NOTFOUND ) THEN
207 RAISE NO_DATA_FOUND;
208 END IF;
209
210 END Delete_Row;
211
212 END HZ_CLASS_CATEGORY_USES_PKG;