[Home] [Help]
PACKAGE BODY: APPS.JTF_OBJECTS_MAPPING_PKG
Source
1 PACKAGE body JTF_OBJECTS_MAPPING_PKG as
2 /* $Header: jtfobmab.pls 120.2.12000000.1 2008/01/07 13:42:29 ipananil ship $ */
3 procedure INSERT_ROW(
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_MAPPING_ID in NUMBER,
6 X_APPLICATION_ID in NUMBER,
7 X_SOURCE_OBJECT_CODE in VARCHAR2,
8 X_OBJECT_CODE in VARCHAR2,
9 X_OBJECT_ID in VARCHAR2,
10 X_END_DATE in DATE ,
11 X_SEEDED_FLAG in VARCHAR2,
12 X_ATTRIBUTE1 in VARCHAR2,
13 X_ATTRIBUTE2 in VARCHAR2,
14 X_ATTRIBUTE3 in VARCHAR2,
15 X_ATTRIBUTE4 in VARCHAR2,
16 X_ATTRIBUTE5 in VARCHAR2,
17 X_ATTRIBUTE6 in VARCHAR2,
18 X_ATTRIBUTE7 in VARCHAR2,
19 X_ATTRIBUTE8 in VARCHAR2,
20 X_ATTRIBUTE9 in VARCHAR2,
21 X_ATTRIBUTE10 in VARCHAR2,
22 X_ATTRIBUTE11 in VARCHAR2,
23 X_ATTRIBUTE12 in VARCHAR2,
24 X_ATTRIBUTE13 in VARCHAR2,
25 X_ATTRIBUTE14 in VARCHAR2,
26 X_ATTRIBUTE15 in VARCHAR2,
27 X_ATTRIBUTE_CATEGORY in VARCHAR2,
28 X_CREATION_DATE in DATE,
29 X_CREATED_BY in NUMBER,
30 X_LAST_UPDATE_DATE in DATE,
31 X_LAST_UPDATED_BY in NUMBER,
32 X_LAST_UPDATE_LOGIN in NUMBER ) is
33 cursor C is select ROWID from JTF_OBJECT_MAPPINGS
34 where MAPPING_ID = X_MAPPING_ID
35 ;
36 begin
37 insert into JTF_OBJECT_MAPPINGS(
38 MAPPING_ID,
39 APPLICATION_ID ,
40 SOURCE_OBJECT_CODE ,
41 OBJECT_CODE ,
42 OBJECT_ID ,
43 END_DATE ,
44 SEEDED_FLAG ,
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 ATTRIBUTE_CATEGORY,
61 CREATION_DATE ,
62 CREATED_BY ,
63 LAST_UPDATE_DATE ,
64 LAST_UPDATED_BY ,
65 LAST_UPDATE_LOGIN ,
66 OBJECT_VERSION_NUMBER
67 ) values (
68 X_MAPPING_ID,
69 X_APPLICATION_ID ,
70 X_SOURCE_OBJECT_CODE ,
71 X_OBJECT_CODE ,
72 X_OBJECT_ID ,
73 X_END_DATE ,
74 X_SEEDED_FLAG ,
75 X_ATTRIBUTE1 ,
76 X_ATTRIBUTE2 ,
77 X_ATTRIBUTE3 ,
78 X_ATTRIBUTE4 ,
79 X_ATTRIBUTE5 ,
80 X_ATTRIBUTE6 ,
81 X_ATTRIBUTE7 ,
82 X_ATTRIBUTE8 ,
83 X_ATTRIBUTE9 ,
84 X_ATTRIBUTE10 ,
85 X_ATTRIBUTE11 ,
86 X_ATTRIBUTE12 ,
87 X_ATTRIBUTE13 ,
88 X_ATTRIBUTE14 ,
89 X_ATTRIBUTE15 ,
90 X_ATTRIBUTE_CATEGORY,
91 X_CREATION_DATE ,
92 X_CREATED_BY ,
93 X_LAST_UPDATE_DATE ,
94 X_LAST_UPDATED_BY ,
95 1 ,
96 1
97 );
98
99 open c;
100 fetch c into X_ROWID;
101 if (c%notfound) then
102 close c;
103 raise no_data_found;
104 end if;
105 close c;
106
107 end INSERT_ROW;
108
109 procedure LOCK_ROW (
110 X_MAPPING_ID in NUMBER,
111 X_OBJECT_VERSION_NUMBER in NUMBER
112 ) is
113 cursor c is select
114 OBJECT_VERSION_NUMBER
115 from JTF_OBJECT_MAPPINGS_V
116 where MAPPING_ID = X_MAPPING_ID
117 and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
118 for update of MAPPING_ID nowait;
119 recinfo c%rowtype;
120
121
122 begin
123 open c;
124 fetch c into recinfo;
125 if (c%notfound) then
126 close c;
127 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
128 app_exception.raise_exception;
129 end if;
130 close c;
131
132 if (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
133 then
134 null;
135 else
136 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
137 app_exception.raise_exception;
138 end if;
139
140 end LOCK_ROW;
141
142
143 procedure UPDATE_ROW (
144 X_ROWID in out NOCOPY VARCHAR2,
145 X_MAPPING_ID in NUMBER,
146 X_APPLICATION_ID in NUMBER,
147 X_SOURCE_OBJECT_CODE in VARCHAR2,
148 X_OBJECT_CODE in VARCHAR2,
149 X_OBJECT_ID in VARCHAR2,
150 X_END_DATE in DATE ,
151 X_SEEDED_FLAG in VARCHAR2,
152 X_ATTRIBUTE1 in VARCHAR2,
153 X_ATTRIBUTE2 in VARCHAR2,
154 X_ATTRIBUTE3 in VARCHAR2,
155 X_ATTRIBUTE4 in VARCHAR2,
156 X_ATTRIBUTE5 in VARCHAR2,
157 X_ATTRIBUTE6 in VARCHAR2,
158 X_ATTRIBUTE7 in VARCHAR2,
159 X_ATTRIBUTE8 in VARCHAR2,
160 X_ATTRIBUTE9 in VARCHAR2,
161 X_ATTRIBUTE10 in VARCHAR2,
162 X_ATTRIBUTE11 in VARCHAR2,
163 X_ATTRIBUTE12 in VARCHAR2,
164 X_ATTRIBUTE13 in VARCHAR2,
165 X_ATTRIBUTE14 in VARCHAR2,
166 X_ATTRIBUTE15 in VARCHAR2,
167 X_ATTRIBUTE_CATEGORY in VARCHAR2,
168 X_CREATION_DATE in DATE,
169 X_CREATED_BY in NUMBER,
170 X_LAST_UPDATE_DATE in DATE,
171 X_LAST_UPDATED_BY in NUMBER,
172 X_LAST_UPDATE_LOGIN in NUMBER,
173 X_OBJECT_VERSION_NUMBER in NUMBER)
174 is
175 begin
176 update JTF_OBJECT_MAPPINGS set
177 APPLICATION_ID = X_APPLICATION_ID ,
178 SOURCE_OBJECT_CODE = X_SOURCE_OBJECT_CODE,
179 OBJECT_CODE = X_OBJECT_CODE,
180 OBJECT_ID=X_OBJECT_ID ,
181 END_DATE = X_END_DATE ,
182 SEEDED_FLAG = X_SEEDED_FLAG,
183 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER +1,
184 ATTRIBUTE1 = X_ATTRIBUTE1,
185 ATTRIBUTE2 = X_ATTRIBUTE2,
186 ATTRIBUTE3 = X_ATTRIBUTE3,
187 ATTRIBUTE4 = X_ATTRIBUTE4,
188 ATTRIBUTE5 = X_ATTRIBUTE5,
189 ATTRIBUTE6 = X_ATTRIBUTE6,
190 ATTRIBUTE7 = X_ATTRIBUTE7,
191 ATTRIBUTE8 = X_ATTRIBUTE8,
192 ATTRIBUTE9 = X_ATTRIBUTE9,
193 ATTRIBUTE10 = X_ATTRIBUTE10,
194 ATTRIBUTE11 = X_ATTRIBUTE11,
195 ATTRIBUTE12 = X_ATTRIBUTE12,
196 ATTRIBUTE13 = X_ATTRIBUTE13,
197 ATTRIBUTE14 = X_ATTRIBUTE14,
198 ATTRIBUTE15 = X_ATTRIBUTE15,
199 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
200 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
201 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
202 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
203 where MAPPING_ID = X_MAPPING_ID ;
204
205 if (sql%notfound) then
206 raise no_data_found;
207 end if;
208
209 if (sql%notfound) then
210 raise no_data_found;
211 end if;
212 end UPDATE_ROW;
213
214 procedure DELETE_ROW (
215 X_MAPPING_ID in NUMBER
216 ) is
217 begin
218 delete from JTF_OBJECT_MAPPINGS
219 where MAPPING_ID = X_MAPPING_ID;
220
221 if (sql%notfound) then
222 raise no_data_found;
223 end if;
224 end DELETE_ROW;
225 end JTF_OBJECTS_MAPPING_PKG;