[Home] [Help]
PACKAGE BODY: APPS.JTF_RS_TEAM_USAGES_PKG
Source
1 package body JTF_RS_TEAM_USAGES_PKG as
2 /* $Header: jtfrstcb.pls 120.0 2005/05/11 08:22:07 appldev ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_TEAM_USAGE_ID in NUMBER,
6 X_ATTRIBUTE2 in VARCHAR2,
7 X_ATTRIBUTE3 in VARCHAR2,
8 X_ATTRIBUTE4 in VARCHAR2,
9 X_ATTRIBUTE5 in VARCHAR2,
10 X_ATTRIBUTE6 in VARCHAR2,
11 X_ATTRIBUTE7 in VARCHAR2,
12 X_ATTRIBUTE8 in VARCHAR2,
13 X_ATTRIBUTE9 in VARCHAR2,
14 X_ATTRIBUTE10 in VARCHAR2,
15 X_ATTRIBUTE11 in VARCHAR2,
16 X_ATTRIBUTE12 in VARCHAR2,
17 X_ATTRIBUTE13 in VARCHAR2,
18 X_ATTRIBUTE14 in VARCHAR2,
19 X_ATTRIBUTE15 in VARCHAR2,
20 X_ATTRIBUTE_CATEGORY in VARCHAR2,
21 X_TEAM_ID in NUMBER,
22 X_USAGE in VARCHAR2,
23 X_ATTRIBUTE1 in VARCHAR2,
24 X_CREATION_DATE in DATE,
25 X_CREATED_BY in NUMBER,
26 X_LAST_UPDATE_DATE in DATE,
27 X_LAST_UPDATED_BY in NUMBER,
28 X_LAST_UPDATE_LOGIN in NUMBER
29 ) is
30 cursor C is select ROWID from JTF_RS_TEAM_USAGES
31 where TEAM_USAGE_ID = X_TEAM_USAGE_ID
32 ;
33 begin
34 insert into JTF_RS_TEAM_USAGES (
35 LAST_UPDATED_BY,
36 LAST_UPDATE_DATE,
37 LAST_UPDATE_LOGIN,
38 ATTRIBUTE1,
39 ATTRIBUTE2,
40 ATTRIBUTE3,
41 ATTRIBUTE4,
42 ATTRIBUTE5,
43 ATTRIBUTE6,
44 ATTRIBUTE7,
45 ATTRIBUTE8,
46 ATTRIBUTE9,
47 ATTRIBUTE10,
48 ATTRIBUTE11,
49 ATTRIBUTE12,
50 ATTRIBUTE13,
51 ATTRIBUTE14,
52 ATTRIBUTE15,
53 ATTRIBUTE_CATEGORY,
54 TEAM_USAGE_ID,
55 TEAM_ID,
56 USAGE,
57 OBJECT_VERSION_NUMBER,
58 CREATED_BY,
59 CREATION_DATE
60 ) values (
61 X_LAST_UPDATED_BY,
62 X_LAST_UPDATE_DATE,
63 X_LAST_UPDATE_LOGIN,
64 X_ATTRIBUTE1,
65 X_ATTRIBUTE2,
66 X_ATTRIBUTE3,
67 X_ATTRIBUTE4,
68 X_ATTRIBUTE5,
69 X_ATTRIBUTE6,
70 X_ATTRIBUTE7,
71 X_ATTRIBUTE8,
72 X_ATTRIBUTE9,
73 X_ATTRIBUTE10,
74 X_ATTRIBUTE11,
75 X_ATTRIBUTE12,
76 X_ATTRIBUTE13,
77 X_ATTRIBUTE14,
78 X_ATTRIBUTE15,
79 X_ATTRIBUTE_CATEGORY,
80 X_TEAM_USAGE_ID,
81 X_TEAM_ID,
82 X_USAGE,
83 1,
84 X_CREATED_BY,
85 X_CREATION_DATE);
86
87 open c;
88 fetch c into X_ROWID;
89 if (c%notfound) then
90 close c;
91 raise no_data_found;
92 end if;
93 close c;
94
95 end INSERT_ROW;
96
97 procedure LOCK_ROW (
98 X_TEAM_USAGE_ID in NUMBER,
99 X_OBJECT_VERSION_NUMBER in NUMBER
100 ) is
101 cursor c1 is select
102 OBJECT_VERSION_NUMBER
103 from JTF_RS_TEAM_USAGES
104 where TEAM_USAGE_ID = X_TEAM_USAGE_ID
105 for update of TEAM_USAGE_ID nowait;
106 tlinfo c1%rowtype ;
107 begin
108 open c1;
109 fetch c1 into tlinfo;
110 if (c1%notfound) then
111 close c1;
112 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
113 app_exception.raise_exception;
114 end if;
115 close c1;
116
117 if (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
118 then
119 null;
120 else
121 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
122 app_exception.raise_exception;
123 end if;
124
125 end LOCK_ROW;
126
127 procedure UPDATE_ROW (
128 X_TEAM_USAGE_ID in NUMBER,
129 X_ATTRIBUTE2 in VARCHAR2,
130 X_ATTRIBUTE3 in VARCHAR2,
131 X_ATTRIBUTE4 in VARCHAR2,
132 X_ATTRIBUTE5 in VARCHAR2,
133 X_ATTRIBUTE6 in VARCHAR2,
134 X_ATTRIBUTE7 in VARCHAR2,
135 X_ATTRIBUTE8 in VARCHAR2,
136 X_ATTRIBUTE9 in VARCHAR2,
137 X_ATTRIBUTE10 in VARCHAR2,
138 X_ATTRIBUTE11 in VARCHAR2,
139 X_ATTRIBUTE12 in VARCHAR2,
140 X_ATTRIBUTE13 in VARCHAR2,
141 X_ATTRIBUTE14 in VARCHAR2,
142 X_ATTRIBUTE15 in VARCHAR2,
143 X_ATTRIBUTE_CATEGORY in VARCHAR2,
144 X_TEAM_ID in NUMBER,
145 X_USAGE in VARCHAR2,
146 X_OBJECT_VERSION_NUMBER in NUMBER,
147 X_ATTRIBUTE1 in VARCHAR2,
148 X_LAST_UPDATE_DATE in DATE,
149 X_LAST_UPDATED_BY in NUMBER,
150 X_LAST_UPDATE_LOGIN in NUMBER
151 ) is
152 begin
153 update JTF_RS_TEAM_USAGES set
154 ATTRIBUTE2 = X_ATTRIBUTE2,
155 ATTRIBUTE3 = X_ATTRIBUTE3,
156 ATTRIBUTE4 = X_ATTRIBUTE4,
157 ATTRIBUTE5 = X_ATTRIBUTE5,
158 ATTRIBUTE6 = X_ATTRIBUTE6,
159 ATTRIBUTE7 = X_ATTRIBUTE7,
160 ATTRIBUTE8 = X_ATTRIBUTE8,
161 ATTRIBUTE9 = X_ATTRIBUTE9,
162 ATTRIBUTE10 = X_ATTRIBUTE10,
163 ATTRIBUTE11 = X_ATTRIBUTE11,
164 ATTRIBUTE12 = X_ATTRIBUTE12,
165 ATTRIBUTE13 = X_ATTRIBUTE13,
166 ATTRIBUTE14 = X_ATTRIBUTE14,
167 ATTRIBUTE15 = X_ATTRIBUTE15,
168 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
169 TEAM_ID = X_TEAM_ID,
170 USAGE = X_USAGE,
171 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
172 ATTRIBUTE1 = X_ATTRIBUTE1,
173 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
174 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
175 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
176 where TEAM_USAGE_ID = X_TEAM_USAGE_ID;
177
178 if (sql%notfound) then
179 raise no_data_found;
180 end if;
181 end UPDATE_ROW;
182
183 procedure DELETE_ROW (
184 X_TEAM_USAGE_ID in NUMBER
185 ) is
186 begin
187 delete from JTF_RS_TEAM_USAGES
188 where TEAM_USAGE_ID = X_TEAM_USAGE_ID;
189
190 if (sql%notfound) then
191 raise no_data_found;
192 end if;
193
194 end DELETE_ROW;
195
196 end JTF_RS_TEAM_USAGES_PKG;