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