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