[Home] [Help]
PACKAGE BODY: APPS.JTF_RS_GROUPS_DENORM_PKG
Source
1 package body JTF_RS_GROUPS_DENORM_PKG as
2 /* $Header: jtfrstnb.pls 120.0 2005/05/11 08:22:26 appldev ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_DENORM_GRP_ID in NUMBER,
6 X_GROUP_ID in NUMBER,
7 X_PARENT_GROUP_ID in NUMBER,
8 X_IMMEDIATE_PARENT_FLAG in VARCHAR2,
9 X_ACTUAL_PARENT_ID in NUMBER,
10 X_START_DATE_ACTIVE in DATE,
11 X_END_DATE_ACTIVE in DATE,
12 X_ATTRIBUTE2 in VARCHAR2,
13 X_ATTRIBUTE3 in VARCHAR2,
14 X_ATTRIBUTE4 in VARCHAR2,
15 X_ATTRIBUTE5 in VARCHAR2,
16 X_ATTRIBUTE6 in VARCHAR2,
17 X_ATTRIBUTE7 in VARCHAR2,
18 X_ATTRIBUTE8 in VARCHAR2,
19 X_ATTRIBUTE9 in VARCHAR2,
20 X_ATTRIBUTE10 in VARCHAR2,
21 X_ATTRIBUTE11 in VARCHAR2,
22 X_ATTRIBUTE12 in VARCHAR2,
23 X_ATTRIBUTE13 in VARCHAR2,
24 X_ATTRIBUTE14 in VARCHAR2,
25 X_ATTRIBUTE15 in VARCHAR2,
26 X_ATTRIBUTE_CATEGORY in VARCHAR2,
27 X_ATTRIBUTE1 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,
33 X_DENORM_LEVEL in NUMBER
34 ) is
35 cursor C is select ROWID from JTF_RS_GROUPS_DENORM
36 where DENORM_GRP_ID = X_DENORM_GRP_ID
37 ;
38 begin
39 insert into JTF_RS_GROUPS_DENORM (
40 GROUP_ID,
41 PARENT_GROUP_ID,
42 CREATED_BY,
43 CREATION_DATE,
44 LAST_UPDATED_BY,
45 LAST_UPDATE_DATE,
46 LAST_UPDATE_LOGIN,
47 IMMEDIATE_PARENT_FLAG,
48 ACTUAL_PARENT_ID,
49 START_DATE_ACTIVE,
50 END_DATE_ACTIVE,
51 OBJECT_VERSION_NUMBER,
52 ATTRIBUTE1,
53 ATTRIBUTE2,
54 ATTRIBUTE3,
55 ATTRIBUTE4,
56 ATTRIBUTE5,
57 ATTRIBUTE6,
58 ATTRIBUTE7,
59 ATTRIBUTE8,
60 ATTRIBUTE9,
61 ATTRIBUTE10,
62 ATTRIBUTE11,
63 ATTRIBUTE12,
64 ATTRIBUTE13,
65 ATTRIBUTE14,
66 ATTRIBUTE15,
67 ATTRIBUTE_CATEGORY,
68 DENORM_GRP_ID,
69 DENORM_LEVEL
70 ) values (
71 X_GROUP_ID,
72 X_PARENT_GROUP_ID,
73 X_CREATED_BY,
74 X_CREATION_DATE,
75 X_LAST_UPDATED_BY,
76 X_LAST_UPDATE_DATE,
77 X_LAST_UPDATE_LOGIN,
78 X_IMMEDIATE_PARENT_FLAG,
79 X_ACTUAL_PARENT_ID,
80 X_START_DATE_ACTIVE,
81 X_END_DATE_ACTIVE,
82 1,
83 X_ATTRIBUTE1,
84 X_ATTRIBUTE2,
85 X_ATTRIBUTE3,
86 X_ATTRIBUTE4,
87 X_ATTRIBUTE5,
88 X_ATTRIBUTE6,
89 X_ATTRIBUTE7,
90 X_ATTRIBUTE8,
91 X_ATTRIBUTE9,
92 X_ATTRIBUTE10,
93 X_ATTRIBUTE11,
94 X_ATTRIBUTE12,
95 X_ATTRIBUTE13,
96 X_ATTRIBUTE14,
97 X_ATTRIBUTE15,
98 X_ATTRIBUTE_CATEGORY,
99 X_DENORM_GRP_ID,
100 X_DENORM_LEVEL);
101
102 open c;
103 fetch c into X_ROWID;
104 if (c%notfound) then
105 close c;
106 raise no_data_found;
107 end if;
108 close c;
109
110 end INSERT_ROW;
111
112 procedure LOCK_ROW (
113 X_DENORM_GRP_ID in NUMBER,
114 X_OBJECT_VERSION_NUMBER in NUMBER
115 ) is
116 cursor c1 is select
117 OBJECT_VERSION_NUMBER
118 from JTF_RS_GROUPS_DENORM
119 where DENORM_GRP_ID = X_DENORM_GRP_ID
120 for update of DENORM_GRP_ID nowait;
121 tlinfo c1%rowtype ;
122 begin
123 open c1;
124 fetch c1 into tlinfo;
125 if (c1%notfound) then
126 close c1;
127 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
128 app_exception.raise_exception;
129 end if;
130 close c1;
131
132 if (tlinfo.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 procedure UPDATE_ROW (
143 X_DENORM_GRP_ID in NUMBER,
144 X_GROUP_ID in NUMBER,
145 X_PARENT_GROUP_ID in NUMBER,
146 X_IMMEDIATE_PARENT_FLAG in VARCHAR2,
147 X_ACTUAL_PARENT_ID in NUMBER,
148 X_START_DATE_ACTIVE in DATE,
149 X_END_DATE_ACTIVE in DATE,
150 X_OBJECT_VERSION_NUMBER in NUMBER,
151 X_ATTRIBUTE2 in VARCHAR2,
152 X_ATTRIBUTE3 in VARCHAR2,
153 X_ATTRIBUTE4 in VARCHAR2,
154 X_ATTRIBUTE5 in VARCHAR2,
155 X_ATTRIBUTE6 in VARCHAR2,
156 X_ATTRIBUTE7 in VARCHAR2,
157 X_ATTRIBUTE8 in VARCHAR2,
158 X_ATTRIBUTE9 in VARCHAR2,
159 X_ATTRIBUTE10 in VARCHAR2,
160 X_ATTRIBUTE11 in VARCHAR2,
161 X_ATTRIBUTE12 in VARCHAR2,
162 X_ATTRIBUTE13 in VARCHAR2,
163 X_ATTRIBUTE14 in VARCHAR2,
164 X_ATTRIBUTE15 in VARCHAR2,
165 X_ATTRIBUTE_CATEGORY in VARCHAR2,
166 X_ATTRIBUTE1 in VARCHAR2,
167 X_LAST_UPDATE_DATE in DATE,
168 X_LAST_UPDATED_BY in NUMBER,
169 X_LAST_UPDATE_LOGIN in NUMBER,
170 X_DENORM_LEVEL in NUMBER
171 ) is
172 begin
173 update JTF_RS_GROUPS_DENORM set
174 GROUP_ID = X_GROUP_ID,
175 PARENT_GROUP_ID = X_PARENT_GROUP_ID,
176 IMMEDIATE_PARENT_FLAG = X_IMMEDIATE_PARENT_FLAG,
177 ACTUAL_PARENT_ID = X_ACTUAL_PARENT_ID,
178 START_DATE_ACTIVE = X_START_DATE_ACTIVE,
179 END_DATE_ACTIVE = X_END_DATE_ACTIVE,
180 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
181 ATTRIBUTE2 = X_ATTRIBUTE2,
182 ATTRIBUTE3 = X_ATTRIBUTE3,
183 ATTRIBUTE4 = X_ATTRIBUTE4,
184 ATTRIBUTE5 = X_ATTRIBUTE5,
185 ATTRIBUTE6 = X_ATTRIBUTE6,
186 ATTRIBUTE7 = X_ATTRIBUTE7,
187 ATTRIBUTE8 = X_ATTRIBUTE8,
188 ATTRIBUTE9 = X_ATTRIBUTE9,
189 ATTRIBUTE10 = X_ATTRIBUTE10,
190 ATTRIBUTE11 = X_ATTRIBUTE11,
191 ATTRIBUTE12 = X_ATTRIBUTE12,
192 ATTRIBUTE13 = X_ATTRIBUTE13,
193 ATTRIBUTE14 = X_ATTRIBUTE14,
194 ATTRIBUTE15 = X_ATTRIBUTE15,
195 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
196 ATTRIBUTE1 = X_ATTRIBUTE1,
197 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
198 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
199 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
200 DENORM_LEVEL = X_DENORM_LEVEL
201 where DENORM_GRP_ID = X_DENORM_GRP_ID;
202
203 if (sql%notfound) then
204 raise no_data_found;
205 end if;
206 end UPDATE_ROW;
207
208 procedure DELETE_ROW (
209 X_DENORM_GRP_ID in NUMBER
210 ) is
211 begin
212 delete from JTF_RS_GROUPS_DENORM
213 where DENORM_GRP_ID = X_DENORM_GRP_ID;
214
215 if (sql%notfound) then
216 raise no_data_found;
217 end if;
218
219 end DELETE_ROW;
220
221 end JTF_RS_GROUPS_DENORM_PKG;