[Home] [Help]
PACKAGE BODY: APPS.JTF_OBJECT_USAGES_PKG
Source
1 PACKAGE body JTF_OBJECT_USAGES_PKG as
2 /* $Header: jtftkusb.pls 115.13 2002/12/04 23:33:40 cjang ship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_OBJECT_USAGE_ID in NUMBER,
7 X_OBJECT_CODE in VARCHAR2,
8 X_SEEDED_FLAG in VARCHAR2,
9 X_ATTRIBUTE1 in VARCHAR2,
10 X_ATTRIBUTE2 in VARCHAR2,
11 X_ATTRIBUTE3 in VARCHAR2,
12 X_ATTRIBUTE4 in VARCHAR2,
13 X_ATTRIBUTE5 in VARCHAR2,
14 X_ATTRIBUTE6 in VARCHAR2,
15 X_ATTRIBUTE7 in VARCHAR2,
16 X_ATTRIBUTE8 in VARCHAR2,
17 X_ATTRIBUTE9 in VARCHAR2,
18 X_ATTRIBUTE10 in VARCHAR2,
19 X_ATTRIBUTE11 in VARCHAR2,
20 X_ATTRIBUTE12 in VARCHAR2,
21 X_ATTRIBUTE13 in VARCHAR2,
22 X_ATTRIBUTE14 in VARCHAR2,
23 X_ATTRIBUTE15 in VARCHAR2,
24 X_ATTRIBUTE_CATEGORY in VARCHAR2,
25 X_OBJECT_USER_CODE in VARCHAR2,
26 X_CREATION_DATE in DATE,
27 X_CREATED_BY in NUMBER,
28 X_LAST_UPDATE_DATE in DATE,
29 X_LAST_UPDATED_BY in NUMBER,
30 X_LAST_UPDATE_LOGIN in NUMBER
31 ) is
32 cursor C is select ROWID from JTF_OBJECT_USAGES
33 where OBJECT_USAGE_ID = X_OBJECT_USAGE_ID
34 ;
35 begin
36 insert into JTF_OBJECT_USAGES (
37 OBJECT_USAGE_ID,
38 CREATED_BY,
39 CREATION_DATE,
40 LAST_UPDATED_BY,
41 LAST_UPDATE_DATE,
42 LAST_UPDATE_LOGIN,
43 OBJECT_CODE,
44 OBJECT_USER_CODE,
45 SEEDED_FLAG,
46 ATTRIBUTE1,
47 ATTRIBUTE2,
48 ATTRIBUTE3,
49 ATTRIBUTE4,
50 ATTRIBUTE5,
51 ATTRIBUTE6,
52 ATTRIBUTE7,
53 ATTRIBUTE8,
54 ATTRIBUTE9,
55 ATTRIBUTE10,
56 ATTRIBUTE11,
57 ATTRIBUTE12,
58 ATTRIBUTE13,
59 ATTRIBUTE14,
60 ATTRIBUTE15,
61 ATTRIBUTE_CATEGORY,
62 OBJECT_VERSION_NUMBER
63 ) values (
64 X_OBJECT_USAGE_ID,
65 X_CREATED_BY,
66 X_CREATION_DATE,
67 X_LAST_UPDATED_BY,
68 X_LAST_UPDATE_DATE,
69 X_LAST_UPDATE_LOGIN,
70 X_OBJECT_CODE,
71 X_OBJECT_USER_CODE,
72 X_SEEDED_FLAG,
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_ATTRIBUTE_CATEGORY,
89 1 ) ;
90
91 open c;
92 fetch c into X_ROWID;
93 if (c%notfound) then
94 close c;
95
96 raise no_data_found;
97 end if;
98 close c;
99
100 end INSERT_ROW;
101
102 procedure LOCK_ROW (
103 X_OBJECT_USAGE_ID in NUMBER,
104 X_OBJECT_VERSION_NUMBER in NUMBER
105 ) is
106 cursor c is select
107 OBJECT_VERSION_NUMBER
108 from JTF_object_usages
109
110 where object_usage_id = X_object_usage_id
111 for update of object_code nowait;
112 recinfo c%rowtype;
113
114
115 begin
116 open c;
117 fetch c into recinfo;
118 if (c%notfound) then
119 close c;
120 --fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
121 --app_exception.raise_exception;
122 end if;
123
124 close c;
125
126 if (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
127 then
128 null;
129 --else
130 --fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
131 --app_exception.raise_exception;
132 end if;
133
134 return;
135 end LOCK_ROW;
136
137
138 procedure UPDATE_ROW (
139 X_OBJECT_USAGE_ID in NUMBER,
140 X_OBJECT_CODE in VARCHAR2,
141 X_SEEDED_FLAG in VARCHAR2,
142 X_ATTRIBUTE1 in VARCHAR2,
143 X_ATTRIBUTE2 in VARCHAR2,
144 X_ATTRIBUTE3 in VARCHAR2,
145 X_ATTRIBUTE4 in VARCHAR2,
146 X_ATTRIBUTE5 in VARCHAR2,
147 X_ATTRIBUTE6 in VARCHAR2,
148 X_ATTRIBUTE7 in VARCHAR2,
149 X_ATTRIBUTE8 in VARCHAR2,
150 X_ATTRIBUTE9 in VARCHAR2,
151 X_ATTRIBUTE10 in VARCHAR2,
152 X_ATTRIBUTE11 in VARCHAR2,
153 X_ATTRIBUTE12 in VARCHAR2,
154 X_ATTRIBUTE13 in VARCHAR2,
155 X_ATTRIBUTE14 in VARCHAR2,
156 X_ATTRIBUTE15 in VARCHAR2,
157 X_ATTRIBUTE_CATEGORY in VARCHAR2,
158 X_OBJECT_USER_CODE in VARCHAR2,
159 X_LAST_UPDATE_DATE in DATE,
160 X_LAST_UPDATED_BY in NUMBER,
161 X_LAST_UPDATE_LOGIN in NUMBER,
162 X_OBJECT_VERSION_NUMBER NUMBER
163 ) is
164 begin
165
166 update JTF_OBJECT_USAGES set
167 OBJECT_CODE = X_OBJECT_CODE,
168 SEEDED_FLAG = X_SEEDED_FLAG,
169 ATTRIBUTE1 = X_ATTRIBUTE1,
170 ATTRIBUTE2 = X_ATTRIBUTE2,
171 ATTRIBUTE3 = X_ATTRIBUTE3,
172 ATTRIBUTE4 = X_ATTRIBUTE4,
173 ATTRIBUTE5 = X_ATTRIBUTE5,
174 ATTRIBUTE6 = X_ATTRIBUTE6,
175 ATTRIBUTE7 = X_ATTRIBUTE7,
176 ATTRIBUTE8 = X_ATTRIBUTE8,
177 ATTRIBUTE9 = X_ATTRIBUTE9,
178 ATTRIBUTE10 = X_ATTRIBUTE10,
179 ATTRIBUTE11 = X_ATTRIBUTE11,
180 ATTRIBUTE12 = X_ATTRIBUTE12,
181 ATTRIBUTE13 = X_ATTRIBUTE13,
182 ATTRIBUTE14 = X_ATTRIBUTE14,
183 ATTRIBUTE15 = X_ATTRIBUTE15,
184 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
185 OBJECT_USER_CODE = X_OBJECT_USER_CODE,
186 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
187 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
188 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
189 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
190 where OBJECT_USAGE_ID = X_OBJECT_USAGE_ID ;
191
192 if (sql%notfound) then
193
194 raise no_data_found;
195 end if;
196 end UPDATE_ROW;
197
198 procedure DELETE_ROW (
199 X_OBJECT_USAGE_ID in NUMBER
200 ) is
201 begin
202 delete from JTF_OBJECT_USAGES
203 where OBJECT_USAGE_ID = X_OBJECT_USAGE_ID;
204
205 if (sql%notfound) then
206 raise no_data_found;
207
208 end if;
209
210 end DELETE_ROW;
211
212
213 end JTF_OBJECT_USAGES_PKG;