[Home] [Help]
PACKAGE BODY: APPS.JTF_QUAL_TYPES_PKG
Source
1 PACKAGE BODY JTF_QUAL_TYPES_PKG as
2 /* $Header: jtfvqtyb.pls 120.0 2005/06/02 18:22:17 appldev ship $ */
3
4
5 PROCEDURE Insert_Row(
6 x_Rowid IN OUT NOCOPY VARCHAR2,
7 x_QUAL_TYPE_ID IN OUT NOCOPY NUMBER,
8 x_LAST_UPDATE_DATE IN DATE,
9 x_LAST_UPDATED_BY IN NUMBER,
10 x_CREATION_DATE IN DATE,
11 x_CREATED_BY IN NUMBER,
12 x_LAST_UPDATE_LOGIN IN NUMBER,
13 x_NAME IN VARCHAR2,
14 x_DESCRIPTION IN VARCHAR2,
15 x_SELECT_CLAUSE IN VARCHAR2,
16 x_WHERE_CLAUSE IN VARCHAR2,
17 x_VIEW_NAME IN VARCHAR2,
18 x_VIEW_DDL_FILENAME IN VARCHAR2,
19 x_RELATED_ID1 IN NUMBER,
20 x_RELATED_ID2 IN NUMBER,
21 x_RELATED_ID3 IN NUMBER,
22 x_RELATED_ID4 IN NUMBER,
23 x_RELATED_ID5 IN NUMBER,
24 x_ORG_ID IN NUMBER
25 ) IS
26 CURSOR C IS SELECT rowid FROM JTF_QUAL_TYPES_ALL
27 WHERE QUAL_TYPE_ID = x_QUAL_TYPE_ID;
28 CURSOR C2 IS SELECT JTF_QUAL_TYPES_s.nextval FROM sys.dual;
29 BEGIN
30 If (x_QUAL_TYPE_ID IS NULL) then
31 OPEN C2;
32 FETCH C2 INTO x_QUAL_TYPE_ID;
33 CLOSE C2;
34 End If;
35 INSERT INTO JTF_QUAL_TYPES_ALL(
36 QUAL_TYPE_ID,
37 LAST_UPDATE_DATE,
38 LAST_UPDATED_BY,
39 CREATION_DATE,
40 CREATED_BY,
41 LAST_UPDATE_LOGIN,
42 NAME,
43 DESCRIPTION,
44 SELECT_CLAUSE,
45 WHERE_CLAUSE,
46 VIEW_NAME,
47 VIEW_DDL_FILENAME,
48 RELATED_ID1,
49 RELATED_ID2,
50 RELATED_ID3,
51 RELATED_ID4,
52 RELATED_ID5,
53 ORG_ID
54 ) VALUES (
55 x_QUAL_TYPE_ID,
56 decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_LAST_UPDATE_DATE),
57 decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATED_BY),
58 decode( x_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL),x_CREATION_DATE),
59 decode( x_CREATED_BY, FND_API.G_MISS_NUM, NULL,x_CREATED_BY),
60 decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL,x_LAST_UPDATE_LOGIN),
61 decode( x_NAME, FND_API.G_MISS_CHAR, NULL,x_NAME),
62 decode( x_DESCRIPTION, FND_API.G_MISS_CHAR, NULL,x_DESCRIPTION),
63 decode( x_SELECT_CLAUSE, FND_API.G_MISS_CHAR, NULL,x_SELECT_CLAUSE),
64 decode( x_WHERE_CLAUSE, FND_API.G_MISS_CHAR, NULL,x_WHERE_CLAUSE),
65 decode( x_VIEW_NAME, FND_API.G_MISS_CHAR, NULL,x_VIEW_NAME),
66 decode( x_VIEW_DDL_FILENAME, FND_API.G_MISS_CHAR, NULL,x_VIEW_DDL_FILENAME),
67 decode( x_RELATED_ID1, FND_API.G_MISS_NUM, NULL,x_RELATED_ID1),
68 decode( x_RELATED_ID2, FND_API.G_MISS_NUM, NULL,x_RELATED_ID2),
69 decode( x_RELATED_ID3, FND_API.G_MISS_NUM, NULL,x_RELATED_ID3),
70 decode( x_RELATED_ID4, FND_API.G_MISS_NUM, NULL,x_RELATED_ID4),
71 decode( x_RELATED_ID5, FND_API.G_MISS_NUM, NULL,x_RELATED_ID5),
72 decode( x_ORG_ID, FND_API.G_MISS_NUM, NULL,x_ORG_ID));
73 OPEN C;
74 FETCH C INTO x_Rowid;
75 If (C%NOTFOUND) then
76 CLOSE C;
77 RAISE NO_DATA_FOUND;
78 End If;
79 End Insert_Row;
80
81
82
83 PROCEDURE Delete_Row( x_QUAL_TYPE_ID IN NUMBER
84 ) IS
85 BEGIN
86 DELETE FROM JTF_QUAL_TYPES_ALL
87 WHERE QUAL_TYPE_ID = x_QUAL_TYPE_ID;
88 If (SQL%NOTFOUND) then
89 RAISE NO_DATA_FOUND;
90 End If;
91 END Delete_Row;
92
93
94
95 PROCEDURE Update_Row(
96 x_Rowid IN VARCHAR2,
97 x_QUAL_TYPE_ID IN NUMBER,
98 x_LAST_UPDATE_DATE IN DATE,
99 x_LAST_UPDATED_BY IN NUMBER,
100 x_CREATION_DATE IN DATE,
101 x_CREATED_BY IN NUMBER,
102 x_LAST_UPDATE_LOGIN IN NUMBER,
103 x_NAME IN VARCHAR2,
104 x_DESCRIPTION IN VARCHAR2,
105 x_SELECT_CLAUSE IN VARCHAR2,
106 x_WHERE_CLAUSE IN VARCHAR2,
107 x_VIEW_NAME IN VARCHAR2,
108 x_VIEW_DDL_FILENAME IN VARCHAR2,
109 x_RELATED_ID1 IN NUMBER,
110 x_RELATED_ID2 IN NUMBER,
111 x_RELATED_ID3 IN NUMBER,
112 x_RELATED_ID4 IN NUMBER,
113 x_RELATED_ID5 IN NUMBER,
114 x_ORG_ID IN NUMBER
115 ) IS
116 BEGIN
117 Update JTF_QUAL_TYPES_ALL
118 SET
119 QUAL_TYPE_ID = decode( x_QUAL_TYPE_ID, FND_API.G_MISS_NUM,QUAL_TYPE_ID,x_QUAL_TYPE_ID),
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 CREATION_DATE = decode( x_CREATION_DATE, FND_API.G_MISS_DATE,CREATION_DATE,x_CREATION_DATE),
123 CREATED_BY = decode( x_CREATED_BY, FND_API.G_MISS_NUM,CREATED_BY,x_CREATED_BY),
124 LAST_UPDATE_LOGIN = decode( x_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM,LAST_UPDATE_LOGIN,x_LAST_UPDATE_LOGIN),
125 NAME = decode( x_NAME, FND_API.G_MISS_CHAR,NAME,x_NAME),
126 DESCRIPTION = decode( x_DESCRIPTION, FND_API.G_MISS_CHAR,DESCRIPTION,x_DESCRIPTION),
127 SELECT_CLAUSE = decode( x_SELECT_CLAUSE, FND_API.G_MISS_CHAR,SELECT_CLAUSE,x_SELECT_CLAUSE),
128 WHERE_CLAUSE = decode( x_WHERE_CLAUSE, FND_API.G_MISS_CHAR,WHERE_CLAUSE,x_WHERE_CLAUSE),
129 VIEW_NAME = decode( x_VIEW_NAME, FND_API.G_MISS_CHAR,VIEW_NAME,x_VIEW_NAME),
130 VIEW_DDL_FILENAME = decode( x_VIEW_DDL_FILENAME, FND_API.G_MISS_CHAR,VIEW_DDL_FILENAME,x_VIEW_DDL_FILENAME),
131 RELATED_ID1 = decode( x_RELATED_ID1, FND_API.G_MISS_NUM,RELATED_ID1,x_RELATED_ID1),
132 RELATED_ID2 = decode( x_RELATED_ID2, FND_API.G_MISS_NUM,RELATED_ID2,x_RELATED_ID2),
133 RELATED_ID3 = decode( x_RELATED_ID3, FND_API.G_MISS_NUM,RELATED_ID3,x_RELATED_ID3),
134 RELATED_ID4 = decode( x_RELATED_ID4, FND_API.G_MISS_NUM,RELATED_ID4,x_RELATED_ID4),
135 RELATED_ID5 = decode( x_RELATED_ID5, FND_API.G_MISS_NUM,RELATED_ID5,x_RELATED_ID5),
136 ORG_ID = decode( x_ORG_ID, FND_API.G_MISS_NUM,ORG_ID,x_ORG_ID)
137 where QUAL_TYPE_ID = X_QUAL_TYPE_ID and
138 ( ORG_ID = x_ORG_ID OR ( ORG_ID IS NULL AND X_ORG_ID IS NULL)) ;
139
140 If (SQL%NOTFOUND) then
141 RAISE NO_DATA_FOUND;
142 End If;
143 END Update_Row;
144
145
146
147 PROCEDURE Lock_Row(
148 x_Rowid IN VARCHAR2,
149 x_QUAL_TYPE_ID IN NUMBER,
150 x_LAST_UPDATE_DATE IN DATE,
151 x_LAST_UPDATED_BY IN NUMBER,
152 x_CREATION_DATE IN DATE,
153 x_CREATED_BY IN NUMBER,
154 x_LAST_UPDATE_LOGIN IN NUMBER,
155 x_NAME IN VARCHAR2,
156 x_DESCRIPTION IN VARCHAR2,
157 x_SELECT_CLAUSE IN VARCHAR2,
158 x_WHERE_CLAUSE IN VARCHAR2,
159 x_VIEW_NAME IN VARCHAR2,
160 x_VIEW_DDL_FILENAME IN VARCHAR2,
161 x_RELATED_ID1 IN NUMBER,
162 x_RELATED_ID2 IN NUMBER,
163 x_RELATED_ID3 IN NUMBER,
164 x_RELATED_ID4 IN NUMBER,
165 x_RELATED_ID5 IN NUMBER,
166 x_ORG_ID IN NUMBER
167 ) IS
168 CURSOR C IS
169 SELECT *
170 FROM JTF_QUAL_TYPES_ALL
171 WHERE rowid = x_Rowid
172 FOR UPDATE of QUAL_TYPE_ID NOWAIT;
173 Recinfo C%ROWTYPE;
174 BEGIN
175 OPEN C;
176 FETCH C INTO Recinfo;
177 If (C%NOTFOUND) then
178 CLOSE C;
179 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
180 APP_EXCEPTION.RAISE_EXCEPTION;
181 End If;
182 CLOSE C;
183 if (
184 ( ( Recinfo.QUAL_TYPE_ID = x_QUAL_TYPE_ID)
185 OR ( ( Recinfo.QUAL_TYPE_ID is NULL )
186 AND ( x_QUAL_TYPE_ID is NULL )))
187 AND ( ( Recinfo.LAST_UPDATE_DATE = x_LAST_UPDATE_DATE)
188 OR ( ( Recinfo.LAST_UPDATE_DATE is NULL )
189 AND ( x_LAST_UPDATE_DATE is NULL )))
190 AND ( ( Recinfo.LAST_UPDATED_BY = x_LAST_UPDATED_BY)
191 OR ( ( Recinfo.LAST_UPDATED_BY is NULL )
192 AND ( x_LAST_UPDATED_BY is NULL )))
193 AND ( ( Recinfo.CREATION_DATE = x_CREATION_DATE)
194 OR ( ( Recinfo.CREATION_DATE is NULL )
195 AND ( x_CREATION_DATE is NULL )))
196 AND ( ( Recinfo.CREATED_BY = x_CREATED_BY)
197 OR ( ( Recinfo.CREATED_BY is NULL )
198 AND ( x_CREATED_BY is NULL )))
199 AND ( ( Recinfo.LAST_UPDATE_LOGIN = x_LAST_UPDATE_LOGIN)
200 OR ( ( Recinfo.LAST_UPDATE_LOGIN is NULL )
201 AND ( x_LAST_UPDATE_LOGIN is NULL )))
202 AND ( ( Recinfo.NAME = x_NAME)
203 OR ( ( Recinfo.NAME is NULL )
204 AND ( x_NAME is NULL )))
205 AND ( ( Recinfo.DESCRIPTION = x_DESCRIPTION)
206 OR ( ( Recinfo.DESCRIPTION is NULL )
207 AND ( x_DESCRIPTION is NULL )))
208 AND ( ( Recinfo.SELECT_CLAUSE = x_SELECT_CLAUSE)
209 OR ( ( Recinfo.SELECT_CLAUSE is NULL )
210 AND ( x_SELECT_CLAUSE is NULL )))
211 AND ( ( Recinfo.WHERE_CLAUSE = x_WHERE_CLAUSE)
212 OR ( ( Recinfo.WHERE_CLAUSE is NULL )
213 AND ( x_WHERE_CLAUSE is NULL )))
214 AND ( ( Recinfo.VIEW_NAME = x_VIEW_NAME)
215 OR ( ( Recinfo.VIEW_NAME is NULL )
216 AND ( x_VIEW_NAME is NULL )))
217 AND ( ( Recinfo.VIEW_DDL_FILENAME = x_VIEW_DDL_FILENAME)
218 OR ( ( Recinfo.VIEW_DDL_FILENAME is NULL )
219 AND ( x_VIEW_DDL_FILENAME is NULL )))
220 AND ( ( Recinfo.RELATED_ID1 = x_RELATED_ID1)
221 OR ( ( Recinfo.RELATED_ID1 is NULL )
222 AND ( x_RELATED_ID1 is NULL )))
223 AND ( ( Recinfo.RELATED_ID2 = x_RELATED_ID2)
224 OR ( ( Recinfo.RELATED_ID2 is NULL )
225 AND ( x_RELATED_ID2 is NULL )))
226 AND ( ( Recinfo.RELATED_ID3 = x_RELATED_ID3)
227 OR ( ( Recinfo.RELATED_ID3 is NULL )
228 AND ( x_RELATED_ID3 is NULL )))
229 AND ( ( Recinfo.RELATED_ID4 = x_RELATED_ID4)
230 OR ( ( Recinfo.RELATED_ID4 is NULL )
231 AND ( x_RELATED_ID4 is NULL )))
232 AND ( ( Recinfo.RELATED_ID5 = x_RELATED_ID5)
233 OR ( ( Recinfo.RELATED_ID5 is NULL )
234 AND ( x_RELATED_ID5 is NULL )))
235 AND ( ( Recinfo.ORG_ID = x_ORG_ID)
236 OR ( ( Recinfo.ORG_ID is NULL )
237 AND ( x_ORG_ID is NULL )))
238 ) then
239 return;
240 else
241 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
242 APP_EXCEPTION.RAISE_EXCEPTION;
243 End If;
244 END Lock_Row;
245
246 END JTF_QUAL_TYPES_PKG;