[Home] [Help]
PACKAGE BODY: APPS.JTF_RS_REP_MANAGERS_PKG
Source
1 package body JTF_RS_REP_MANAGERS_PKG as
2 /* $Header: jtfrsthb.pls 120.0 2005/05/11 08:22:15 appldev ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_DENORM_MGR_ID in NUMBER,
6 X_RESOURCE_ID in NUMBER,
7 X_PERSON_ID in NUMBER,
8 X_CATEGORY in VARCHAR2,
9 X_MANAGER_PERSON_ID in NUMBER,
10 X_PARENT_RESOURCE_ID in NUMBER,
11 X_GROUP_ID in NUMBER,
12 X_HIERARCHY_TYPE in VARCHAR2,
13 X_REPORTS_TO_FLAG in VARCHAR2,
14 X_START_DATE_ACTIVE in DATE,
15 X_END_DATE_ACTIVE in DATE,
16 X_PAR_ROLE_RELATE_ID in NUMBER,
17 X_CHILD_ROLE_RELATE_ID in NUMBER,
18 X_ATTRIBUTE2 in VARCHAR2,
19 X_ATTRIBUTE3 in VARCHAR2,
20 X_ATTRIBUTE4 in VARCHAR2,
21 X_ATTRIBUTE5 in VARCHAR2,
22 X_ATTRIBUTE6 in VARCHAR2,
23 X_ATTRIBUTE7 in VARCHAR2,
24 X_ATTRIBUTE8 in VARCHAR2,
25 X_ATTRIBUTE9 in VARCHAR2,
26 X_ATTRIBUTE10 in VARCHAR2,
27 X_ATTRIBUTE11 in VARCHAR2,
28 X_ATTRIBUTE12 in VARCHAR2,
29 X_ATTRIBUTE13 in VARCHAR2,
30 X_ATTRIBUTE14 in VARCHAR2,
31 X_ATTRIBUTE15 in VARCHAR2,
32 X_ATTRIBUTE_CATEGORY in VARCHAR2,
33 X_ATTRIBUTE1 in VARCHAR2,
34 X_CREATION_DATE in DATE,
35 X_CREATED_BY in NUMBER,
36 X_LAST_UPDATE_DATE in DATE,
37 X_LAST_UPDATED_BY in NUMBER,
38 X_LAST_UPDATE_LOGIN in NUMBER,
39 X_DENORM_LEVEL in NUMBER
40 ) is
41 cursor C is select ROWID from JTF_RS_REP_MANAGERS
42 where DENORM_MGR_ID = X_DENORM_MGR_ID
43 ;
44 begin
45 insert into JTF_RS_REP_MANAGERS (
46 DENORM_MGR_ID,
47 RESOURCE_ID,
48 PERSON_ID,
49 CATEGORY,
50 MANAGER_PERSON_ID,
51 PARENT_RESOURCE_ID,
52 GROUP_ID,
53 HIERARCHY_TYPE,
54 CREATED_BY,
55 CREATION_DATE,
56 LAST_UPDATED_BY,
57 LAST_UPDATE_DATE,
58 LAST_UPDATE_LOGIN,
59 REPORTS_TO_FLAG,
60 START_DATE_ACTIVE,
61 END_DATE_ACTIVE,
62 PAR_ROLE_RELATE_ID,
63 CHILD_ROLE_RELATE_ID,
64 OBJECT_VERSION_NUMBER,
65 ATTRIBUTE1,
66 ATTRIBUTE2,
67 ATTRIBUTE3,
68 ATTRIBUTE4,
69 ATTRIBUTE5,
70 ATTRIBUTE6,
71 ATTRIBUTE7,
72 ATTRIBUTE8,
73 ATTRIBUTE9,
74 ATTRIBUTE10,
75 ATTRIBUTE11,
76 ATTRIBUTE12,
77 ATTRIBUTE13,
78 ATTRIBUTE14,
79 ATTRIBUTE15,
80 ATTRIBUTE_CATEGORY,
81 DENORM_LEVEL
82 ) values (
83 X_DENORM_MGR_ID,
84 X_RESOURCE_ID,
85 X_PERSON_ID,
86 X_CATEGORY,
87 X_MANAGER_PERSON_ID,
88 X_PARENT_RESOURCE_ID,
89 X_GROUP_ID,
90 X_HIERARCHY_TYPE,
91 X_CREATED_BY,
92 X_CREATION_DATE,
93 X_LAST_UPDATED_BY,
94 X_LAST_UPDATE_DATE,
95 X_LAST_UPDATE_LOGIN,
96 X_REPORTS_TO_FLAG,
97 X_START_DATE_ACTIVE,
98 X_END_DATE_ACTIVE,
99 X_PAR_ROLE_RELATE_ID,
100 X_CHILD_ROLE_RELATE_ID,
101 1,
102 X_ATTRIBUTE1,
103 X_ATTRIBUTE2,
104 X_ATTRIBUTE3,
105 X_ATTRIBUTE4,
106 X_ATTRIBUTE5,
107 X_ATTRIBUTE6,
108 X_ATTRIBUTE7,
109 X_ATTRIBUTE8,
110 X_ATTRIBUTE9,
111 X_ATTRIBUTE10,
112 X_ATTRIBUTE11,
113 X_ATTRIBUTE12,
114 X_ATTRIBUTE13,
115 X_ATTRIBUTE14,
116 X_ATTRIBUTE15,
117 X_ATTRIBUTE_CATEGORY,
118 X_DENORM_LEVEL);
119
120 open c;
121 fetch c into X_ROWID;
122 if (c%notfound) then
123 close c;
124 raise no_data_found;
125 end if;
126 close c;
127
128 end INSERT_ROW;
129
130 procedure LOCK_ROW (
131 X_DENORM_MGR_ID in NUMBER,
132 X_OBJECT_VERSION_NUMBER in NUMBER
133 ) is
134 cursor c1 is select
135 OBJECT_VERSION_NUMBER
136 from JTF_RS_REP_MANAGERS
137 where DENORM_MGR_ID = X_DENORM_MGR_ID
138 for update of DENORM_MGR_ID nowait;
139 tlinfo c1%rowtype ;
140 begin
141 open c1;
142 fetch c1 into tlinfo;
143 if (c1%notfound) then
144 close c1;
145 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
146 app_exception.raise_exception;
147 end if;
148 close c1;
149
150 if (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
151 then
152 null;
153 else
154 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
155 app_exception.raise_exception;
156 end if;
157
158 end LOCK_ROW;
159
160 procedure UPDATE_ROW (
161 X_DENORM_MGR_ID in NUMBER,
162 X_RESOURCE_ID in NUMBER,
163 X_PERSON_ID in NUMBER,
164 X_CATEGORY in VARCHAR2,
165 X_MANAGER_PERSON_ID in NUMBER,
166 X_PARENT_RESOURCE_ID in NUMBER,
167 X_GROUP_ID in NUMBER,
168 X_HIERARCHY_TYPE in VARCHAR2,
169 X_REPORTS_TO_FLAG in VARCHAR2,
170 X_START_DATE_ACTIVE in DATE,
171 X_END_DATE_ACTIVE in DATE,
172 X_PAR_ROLE_RELATE_ID in NUMBER,
173 X_CHILD_ROLE_RELATE_ID in NUMBER,
174 X_OBJECT_VERSION_NUMBER in NUMBER,
175 X_ATTRIBUTE2 in VARCHAR2,
176 X_ATTRIBUTE3 in VARCHAR2,
177 X_ATTRIBUTE4 in VARCHAR2,
178 X_ATTRIBUTE5 in VARCHAR2,
179 X_ATTRIBUTE6 in VARCHAR2,
180 X_ATTRIBUTE7 in VARCHAR2,
181 X_ATTRIBUTE8 in VARCHAR2,
182 X_ATTRIBUTE9 in VARCHAR2,
183 X_ATTRIBUTE10 in VARCHAR2,
184 X_ATTRIBUTE11 in VARCHAR2,
185 X_ATTRIBUTE12 in VARCHAR2,
186 X_ATTRIBUTE13 in VARCHAR2,
187 X_ATTRIBUTE14 in VARCHAR2,
188 X_ATTRIBUTE15 in VARCHAR2,
189 X_ATTRIBUTE_CATEGORY in VARCHAR2,
190 X_ATTRIBUTE1 in VARCHAR2,
191 X_LAST_UPDATE_DATE in DATE,
192 X_LAST_UPDATED_BY in NUMBER,
193 X_LAST_UPDATE_LOGIN in NUMBER,
194 X_DENORM_LEVEL in NUMBER
195 ) is
196 begin
197 update JTF_RS_REP_MANAGERS set
198 RESOURCE_ID = X_RESOURCE_ID,
199 PERSON_ID = X_PERSON_ID,
200 CATEGORY = X_CATEGORY,
201 MANAGER_PERSON_ID = X_MANAGER_PERSON_ID,
202 PARENT_RESOURCE_ID = X_PARENT_RESOURCE_ID,
203 GROUP_ID = X_GROUP_ID,
204 HIERARCHY_TYPE = X_HIERARCHY_TYPE,
205 REPORTS_TO_FLAG = X_REPORTS_TO_FLAG,
206 START_DATE_ACTIVE = X_START_DATE_ACTIVE,
207 END_DATE_ACTIVE = X_END_DATE_ACTIVE,
208 PAR_ROLE_RELATE_ID = X_PAR_ROLE_RELATE_ID,
209 CHILD_ROLE_RELATE_ID = X_CHILD_ROLE_RELATE_ID,
210 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
211 ATTRIBUTE2 = X_ATTRIBUTE2,
212 ATTRIBUTE3 = X_ATTRIBUTE3,
213 ATTRIBUTE4 = X_ATTRIBUTE4,
214 ATTRIBUTE5 = X_ATTRIBUTE5,
215 ATTRIBUTE6 = X_ATTRIBUTE6,
216 ATTRIBUTE7 = X_ATTRIBUTE7,
217 ATTRIBUTE8 = X_ATTRIBUTE8,
218 ATTRIBUTE9 = X_ATTRIBUTE9,
219 ATTRIBUTE10 = X_ATTRIBUTE10,
220 ATTRIBUTE11 = X_ATTRIBUTE11,
221 ATTRIBUTE12 = X_ATTRIBUTE12,
222 ATTRIBUTE13 = X_ATTRIBUTE13,
223 ATTRIBUTE14 = X_ATTRIBUTE14,
224 ATTRIBUTE15 = X_ATTRIBUTE15,
225 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
226 ATTRIBUTE1 = X_ATTRIBUTE1,
227 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
228 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
229 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
230 DENORM_LEVEL = X_DENORM_LEVEL
231 where DENORM_MGR_ID = X_DENORM_MGR_ID;
232
233 if (sql%notfound) then
234 raise no_data_found;
235 end if;
236 end UPDATE_ROW;
237
238 procedure DELETE_ROW (
239 X_DENORM_MGR_ID in NUMBER
240 ) is
241 begin
242 delete from JTF_RS_REP_MANAGERS
243 where DENORM_MGR_ID = X_DENORM_MGR_ID;
244
245 if (sql%notfound) then
246 raise no_data_found;
247 end if;
248
249 end DELETE_ROW;
250
251 end JTF_RS_REP_MANAGERS_PKG;