1 package body CS_TP_TEMPLATE_LINKS_PKG as
2 /* $Header: cstptlkb.pls 115.5 2002/12/04 19:11:16 wzli noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_LINK_ID in NUMBER,
6 X_TEMPLATE_ID in NUMBER,
7 X_OTHER_ID in NUMBER,
8 X_LOOKUP_CODE in VARCHAR2,
9 X_LOOKUP_TYPE in VARCHAR2,
10 X_OBJECT_CODE in VARCHAR2,
11 X_ATTRIBUTE_CATEGORY in VARCHAR2 DEFAULT NULL,
12 X_ATTRIBUTE1 in VARCHAR2 DEFAULT NULL,
13 X_ATTRIBUTE2 in VARCHAR2 DEFAULT NULL,
14 X_ATTRIBUTE3 in VARCHAR2 DEFAULT NULL,
15 X_ATTRIBUTE4 in VARCHAR2 DEFAULT NULL,
16 X_ATTRIBUTE5 in VARCHAR2 DEFAULT NULL,
17 X_ATTRIBUTE6 in VARCHAR2 DEFAULT NULL,
18 X_ATTRIBUTE7 in VARCHAR2 DEFAULT NULL,
19 X_ATTRIBUTE8 in VARCHAR2 DEFAULT NULL,
20 X_ATTRIBUTE9 in VARCHAR2 DEFAULT NULL,
21 X_ATTRIBUTE10 in VARCHAR2 DEFAULT NULL,
22 X_ATTRIBUTE11 in VARCHAR2 DEFAULT NULL,
23 X_ATTRIBUTE12 in VARCHAR2 DEFAULT NULL,
24 X_ATTRIBUTE13 in VARCHAR2 DEFAULT NULL,
25 X_ATTRIBUTE14 in VARCHAR2 DEFAULT NULL,
26 X_ATTRIBUTE15 in VARCHAR2 DEFAULT NULL,
27 X_CREATION_DATE in DATE,
28 X_CREATED_BY in NUMBER,
29 X_LAST_UPDATE_DATE in DATE,
30 X_LAST_UPDATED_BY in NUMBER,
31 X_LAST_UPDATE_LOGIN in NUMBER
32 ) is
33 cursor C is select ROWID from CS_TP_TEMPLATE_LINKS
34 where LINK_ID = X_LINK_ID
35 ;
36 begin
37 insert into CS_TP_TEMPLATE_LINKS (
38 LINK_ID,
39 TEMPLATE_ID,
40 OTHER_ID,
41 LOOKUP_CODE,
42 LOOKUP_TYPE,
43 OBJECT_CODE,
44 ATTRIBUTE_CATEGORY,
45 ATTRIBUTE1,
46 ATTRIBUTE2,
47 ATTRIBUTE3,
48 ATTRIBUTE4,
49 ATTRIBUTE5,
50 ATTRIBUTE6,
51 ATTRIBUTE7,
52 ATTRIBUTE8,
53 ATTRIBUTE9,
54 ATTRIBUTE10,
55 ATTRIBUTE11,
56 ATTRIBUTE12,
57 ATTRIBUTE13,
58 ATTRIBUTE14,
59 ATTRIBUTE15,
60 CREATION_DATE,
61 CREATED_BY,
62 LAST_UPDATE_DATE,
63 LAST_UPDATED_BY,
64 LAST_UPDATE_LOGIN
65 ) values (
66 X_LINK_ID,
67 X_TEMPLATE_ID,
68 X_OTHER_ID,
69 X_LOOKUP_CODE,
70 X_LOOKUP_TYPE,
71 X_OBJECT_CODE,
72 X_ATTRIBUTE_CATEGORY,
73 X_ATTRIBUTE1,
74 X_ATTRIBUTE2,
75 X_ATTRIBUTE3,
76 X_ATTRIBUTE4,
77 X_ATTRIBUTE5,
78 X_ATTRIBUTE6,
79 X_ATTRIBUTE7,
80 X_ATTRIBUTE8,
81 X_ATTRIBUTE9,
82 X_ATTRIBUTE10,
83 X_ATTRIBUTE11,
84 X_ATTRIBUTE12,
85 X_ATTRIBUTE13,
86 X_ATTRIBUTE14,
87 X_ATTRIBUTE15,
88 X_CREATION_DATE,
89 X_CREATED_BY,
90 X_LAST_UPDATE_DATE,
91 X_LAST_UPDATED_BY,
92 X_LAST_UPDATE_LOGIN
93 );
94
95 open c;
96 fetch c into X_ROWID;
97 if (c%notfound) then
98 close c;
99 raise no_data_found;
100 end if;
101 close c;
102
103 end INSERT_ROW;
104
105 procedure LOCK_ROW (
106 X_LINK_ID in NUMBER,
107 X_TEMPLATE_ID in NUMBER,
108 X_OTHER_ID in NUMBER,
109 X_OBJECT_CODE in VARCHAR2,
110 X_ATTRIBUTE_CATEGORY in VARCHAR2,
111 X_ATTRIBUTE1 in VARCHAR2,
112 X_ATTRIBUTE2 in VARCHAR2,
113 X_ATTRIBUTE3 in VARCHAR2,
114 X_ATTRIBUTE4 in VARCHAR2,
115 X_ATTRIBUTE5 in VARCHAR2,
116 X_ATTRIBUTE6 in VARCHAR2,
117 X_ATTRIBUTE7 in VARCHAR2,
118 X_ATTRIBUTE8 in VARCHAR2,
119 X_ATTRIBUTE9 in VARCHAR2,
120 X_ATTRIBUTE10 in VARCHAR2,
121 X_ATTRIBUTE11 in VARCHAR2,
122 X_ATTRIBUTE12 in VARCHAR2,
123 X_ATTRIBUTE13 in VARCHAR2,
124 X_ATTRIBUTE14 in VARCHAR2,
125 X_ATTRIBUTE15 in VARCHAR2
126 ) is
127 cursor c is select
128 TEMPLATE_ID,
129 OTHER_ID,
130 OBJECT_CODE,
131 ATTRIBUTE_CATEGORY,
132 ATTRIBUTE1,
133 ATTRIBUTE2,
134 ATTRIBUTE3,
135 ATTRIBUTE4,
136 ATTRIBUTE5,
137 ATTRIBUTE6,
138 ATTRIBUTE7,
139 ATTRIBUTE8,
140 ATTRIBUTE9,
141 ATTRIBUTE10,
142 ATTRIBUTE11,
143 ATTRIBUTE12,
144 ATTRIBUTE13,
145 ATTRIBUTE14,
146 ATTRIBUTE15
147 from CS_TP_TEMPLATE_LINKS
148 where LINK_ID = X_LINK_ID
149 for update of LINK_ID nowait;
150 recinfo c%rowtype;
151 begin
152 open c;
153 fetch c into recinfo;
154 if (c%notfound) then
155 close c;
156 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
157 app_exception.raise_exception;
158 end if;
159 close c;
160 if ( (recinfo.TEMPLATE_ID = X_TEMPLATE_ID)
161 AND (recinfo.OBJECT_CODE = X_OBJECT_CODE)
162 AND ((recinfo.OTHER_ID = X_OTHER_ID)
163 OR ((recinfo.OTHER_ID is null) AND (X_OTHER_ID is null)))
164 AND ((recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
165 OR ((recinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null)))
166 AND ((recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
167 OR ((recinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null)))
168 AND ((recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
169 OR ((recinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null)))
170 AND ((recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
171 OR ((recinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null)))
172 AND ((recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
173 OR ((recinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null)))
174 AND ((recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
175 OR ((recinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null)))
176 AND ((recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
177 OR ((recinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null)))
178 AND ((recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
179 OR ((recinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null)))
180 AND ((recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
181 OR ((recinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null)))
182 AND ((recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
183 OR ((recinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null)))
184 AND ((recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
185 OR ((recinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null)))
186 AND ((recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
187 OR ((recinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null)))
188 AND ((recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
189 OR ((recinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null)))
190 AND ((recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
191 OR ((recinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null)))
192 AND ((recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
193 OR ((recinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null)))
194 AND ((recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
195 OR ((recinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null)))
196 ) then
197 null;
198 else
199 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
200 app_exception.raise_exception;
201 end if;
202 return;
203 end LOCK_ROW;
204
205 procedure UPDATE_ROW (
206 X_LINK_ID in NUMBER,
207 X_TEMPLATE_ID in NUMBER,
208 X_OTHER_ID in NUMBER,
209 X_LOOKUP_CODE in VARCHAR2,
210 X_LOOKUP_TYPE in VARCHAR2,
211 X_OBJECT_CODE in VARCHAR2,
212 X_ATTRIBUTE_CATEGORY in VARCHAR2 DEFAULT NULL,
213 X_ATTRIBUTE1 in VARCHAR2 DEFAULT NULL,
214 X_ATTRIBUTE2 in VARCHAR2 DEFAULT NULL,
215 X_ATTRIBUTE3 in VARCHAR2 DEFAULT NULL,
216 X_ATTRIBUTE4 in VARCHAR2 DEFAULT NULL,
217 X_ATTRIBUTE5 in VARCHAR2 DEFAULT NULL,
218 X_ATTRIBUTE6 in VARCHAR2 DEFAULT NULL,
219 X_ATTRIBUTE7 in VARCHAR2 DEFAULT NULL,
220 X_ATTRIBUTE8 in VARCHAR2 DEFAULT NULL,
221 X_ATTRIBUTE9 in VARCHAR2 DEFAULT NULL,
222 X_ATTRIBUTE10 in VARCHAR2 DEFAULT NULL,
223 X_ATTRIBUTE11 in VARCHAR2 DEFAULT NULL,
224 X_ATTRIBUTE12 in VARCHAR2 DEFAULT NULL,
225 X_ATTRIBUTE13 in VARCHAR2 DEFAULT NULL,
226 X_ATTRIBUTE14 in VARCHAR2 DEFAULT NULL,
227 X_ATTRIBUTE15 in VARCHAR2 DEFAULT NULL,
228 X_LAST_UPDATE_DATE in DATE,
229 X_LAST_UPDATED_BY in NUMBER,
230 X_LAST_UPDATE_LOGIN in NUMBER
231 ) is
232 begin
233 update CS_TP_TEMPLATE_LINKS set
234 TEMPLATE_ID = X_TEMPLATE_ID,
235 OTHER_ID = X_OTHER_ID,
236 LOOKUP_CODE = X_LOOKUP_CODE,
237 LOOKUP_TYPE = X_LOOKUP_TYPE,
238 OBJECT_CODE = X_OBJECT_CODE,
239 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
240 ATTRIBUTE1 = X_ATTRIBUTE1,
241 ATTRIBUTE2 = X_ATTRIBUTE2,
242 ATTRIBUTE3 = X_ATTRIBUTE3,
243 ATTRIBUTE4 = X_ATTRIBUTE4,
244 ATTRIBUTE5 = X_ATTRIBUTE5,
245 ATTRIBUTE6 = X_ATTRIBUTE6,
246 ATTRIBUTE7 = X_ATTRIBUTE7,
247 ATTRIBUTE8 = X_ATTRIBUTE8,
248 ATTRIBUTE9 = X_ATTRIBUTE9,
249 ATTRIBUTE10 = X_ATTRIBUTE10,
250 ATTRIBUTE11 = X_ATTRIBUTE11,
251 ATTRIBUTE12 = X_ATTRIBUTE12,
252 ATTRIBUTE13 = X_ATTRIBUTE13,
253 ATTRIBUTE14 = X_ATTRIBUTE14,
254 ATTRIBUTE15 = X_ATTRIBUTE15,
255 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
256 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
257 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
258 where LINK_ID = X_LINK_ID;
259
260 if (sql%notfound) then
261 raise no_data_found;
262 end if;
263 end UPDATE_ROW;
264
265 procedure DELETE_ROW (
266 X_LINK_ID in NUMBER
267 ) is
268 begin
269 delete from CS_TP_TEMPLATE_LINKS
270 where LINK_ID = X_LINK_ID;
271
272 if (sql%notfound) then
273 raise no_data_found;
274 end if;
275 end DELETE_ROW;
276
277 end CS_TP_TEMPLATE_LINKS_PKG;
[Home] [Help]