eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.JTF_RS_RESOURCE_SKILLS_PKG

Source


1 package body JTF_RS_RESOURCE_SKILLS_PKG as
2 /* $Header: jtfrshkb.pls 120.0 2005/05/11 08:20:07 appldev ship $ */
3 
4 procedure INSERT_ROW (
5   X_ROWID in out NOCOPY VARCHAR2,
6   X_RESOURCE_SKILL_ID in NUMBER,
7   X_RESOURCE_ID in NUMBER,
8   X_SKILL_LEVEL_ID in NUMBER,
9   X_CATEGORY_ID in NUMBER,
10   X_SUBCATEGORY in VARCHAR2,
11   X_PRODUCT_ID in NUMBER,
12   X_PRODUCT_ORG_ID in NUMBER,
13   X_PLATFORM_ID in NUMBER,
14   X_PLATFORM_ORG_ID in NUMBER,
15   X_PROBLEM_CODE in VARCHAR2,
16   X_COMPONENT_ID in NUMBER,
17   X_SUBCOMPONENT_ID in NUMBER,
18   X_OBJECT_VERSION_NUMBER in NUMBER,
19   X_ATTRIBUTE_CATEGORY in VARCHAR2,
20   X_ATTRIBUTE1 in VARCHAR2,
21   X_ATTRIBUTE2 in VARCHAR2,
22   X_ATTRIBUTE3 in VARCHAR2,
23   X_ATTRIBUTE4 in VARCHAR2,
24   X_ATTRIBUTE5 in VARCHAR2,
25   X_ATTRIBUTE6 in VARCHAR2,
26   X_ATTRIBUTE7 in VARCHAR2,
27   X_ATTRIBUTE8 in VARCHAR2,
28   X_ATTRIBUTE9 in VARCHAR2,
29   X_ATTRIBUTE10 in VARCHAR2,
30   X_ATTRIBUTE11 in VARCHAR2,
31   X_ATTRIBUTE12 in VARCHAR2,
32   X_ATTRIBUTE13 in VARCHAR2,
33   X_ATTRIBUTE14 in VARCHAR2,
34   X_ATTRIBUTE15 in VARCHAR2,
35   X_CREATION_DATE in DATE,
36   X_CREATED_BY in NUMBER,
37   X_LAST_UPDATE_DATE in DATE,
38   X_LAST_UPDATED_BY in NUMBER,
39   X_LAST_UPDATE_LOGIN in NUMBER
40 ) is
41   cursor C is select ROWID from JTF_RS_RESOURCE_SKILLS
42     where RESOURCE_SKILL_ID = X_RESOURCE_SKILL_ID
43     ;
44 begin
45   insert into JTF_RS_RESOURCE_SKILLS (
46     RESOURCE_SKILL_ID,
47     RESOURCE_ID,
48     SKILL_LEVEL_ID,
49     CATEGORY_ID,
50     SUBCATEGORY,
51     PRODUCT_ID,
52     PRODUCT_ORG_ID,
53     PLATFORM_ID,
54     PLATFORM_ORG_ID,
55     PROBLEM_CODE,
56     COMPONENT_ID,
57     SUBCOMPONENT_ID,
58     OBJECT_VERSION_NUMBER,
59     ATTRIBUTE_CATEGORY,
60     ATTRIBUTE1,
61     ATTRIBUTE2,
62     ATTRIBUTE3,
63     ATTRIBUTE4,
64     ATTRIBUTE5,
65     ATTRIBUTE6,
66     ATTRIBUTE7,
67     ATTRIBUTE8,
68     ATTRIBUTE9,
69     ATTRIBUTE10,
70     ATTRIBUTE11,
71     ATTRIBUTE12,
72     ATTRIBUTE13,
73     ATTRIBUTE14,
74     ATTRIBUTE15,
75     CREATION_DATE,
76     CREATED_BY,
77     LAST_UPDATE_DATE,
78     LAST_UPDATED_BY,
79     LAST_UPDATE_LOGIN
80   ) values (
81     X_RESOURCE_SKILL_ID,
82     X_RESOURCE_ID,
83     X_SKILL_LEVEL_ID,
84     X_CATEGORY_ID,
85     X_SUBCATEGORY,
86     X_PRODUCT_ID,
87     X_PRODUCT_ORG_ID,
88     X_PLATFORM_ID,
89     X_PLATFORM_ORG_ID,
90     X_PROBLEM_CODE,
91     X_COMPONENT_ID,
92     X_SUBCOMPONENT_ID,
93     1,
94     X_ATTRIBUTE_CATEGORY,
95     X_ATTRIBUTE1,
96     X_ATTRIBUTE2,
97     X_ATTRIBUTE3,
98     X_ATTRIBUTE4,
99     X_ATTRIBUTE5,
100     X_ATTRIBUTE6,
101     X_ATTRIBUTE7,
102     X_ATTRIBUTE8,
103     X_ATTRIBUTE9,
104     X_ATTRIBUTE10,
105     X_ATTRIBUTE11,
106     X_ATTRIBUTE12,
107     X_ATTRIBUTE13,
108     X_ATTRIBUTE14,
109     X_ATTRIBUTE15,
110     X_CREATION_DATE,
111     X_CREATED_BY,
112     X_LAST_UPDATE_DATE,
113     X_LAST_UPDATED_BY,
114     X_LAST_UPDATE_LOGIN
115   );
116 
117   open c;
118   fetch c into X_ROWID;
119   if (c%notfound) then
120     close c;
121     raise no_data_found;
122   end if;
123   close c;
124 
125 end INSERT_ROW;
126 
127 procedure LOCK_ROW (
128   X_RESOURCE_SKILL_ID in NUMBER,
129   X_OBJECT_VERSION_NUMBER in NUMBER
130 ) is
131   cursor c is select
132          OBJECT_VERSION_NUMBER
133     from JTF_RS_RESOURCE_SKILLS
134     where RESOURCE_SKILL_ID = X_RESOURCE_SKILL_ID
135     and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
136     for update of RESOURCE_SKILL_ID nowait;
137   recinfo c%rowtype;
138 
139 begin
140   open c;
141   fetch c into recinfo;
142   if (c%notfound) then
143     close c;
144     fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
145     app_exception.raise_exception;
146   end if;
147   close c;
148 
149    if recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER then
150     null;
151   else
152     fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
153     app_exception.raise_exception;
154   end if;
155 
156   return;
157 end LOCK_ROW;
158 
159 procedure UPDATE_ROW (
160   X_RESOURCE_SKILL_ID in NUMBER,
161   X_RESOURCE_ID in NUMBER,
162   X_SKILL_LEVEL_ID in NUMBER,
163   X_CATEGORY_ID in NUMBER,
164   X_SUBCATEGORY in VARCHAR2,
165   X_PRODUCT_ID in NUMBER,
166   X_PRODUCT_ORG_ID in NUMBER,
167   X_PLATFORM_ID in NUMBER,
168   X_PLATFORM_ORG_ID in NUMBER,
169   X_PROBLEM_CODE in VARCHAR2,
170   X_COMPONENT_ID in NUMBER,
171   X_SUBCOMPONENT_ID in NUMBER,
172   X_OBJECT_VERSION_NUMBER in NUMBER,
173   X_ATTRIBUTE_CATEGORY in VARCHAR2,
174   X_ATTRIBUTE1 in VARCHAR2,
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_LAST_UPDATE_DATE in DATE,
190   X_LAST_UPDATED_BY in NUMBER,
191   X_LAST_UPDATE_LOGIN in NUMBER
192 ) is
193 begin
194   update JTF_RS_RESOURCE_SKILLS set
195     RESOURCE_ID = X_RESOURCE_ID,
196     SKILL_LEVEL_ID = X_SKILL_LEVEL_ID,
197     CATEGORY_ID = X_CATEGORY_ID,
198     SUBCATEGORY = X_SUBCATEGORY,
199     PRODUCT_ID = X_PRODUCT_ID,
200     PRODUCT_ORG_ID = X_PRODUCT_ORG_ID,
201     PLATFORM_ID = X_PLATFORM_ID,
202     PLATFORM_ORG_ID = X_PLATFORM_ORG_ID,
203     PROBLEM_CODE = X_PROBLEM_CODE,
204     COMPONENT_ID = X_COMPONENT_ID,
205     SUBCOMPONENT_ID = X_SUBCOMPONENT_ID,
206     OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
207     ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
208     ATTRIBUTE1 = X_ATTRIBUTE1,
209     ATTRIBUTE2 = X_ATTRIBUTE2,
210     ATTRIBUTE3 = X_ATTRIBUTE3,
211     ATTRIBUTE4 = X_ATTRIBUTE4,
212     ATTRIBUTE5 = X_ATTRIBUTE5,
213     ATTRIBUTE6 = X_ATTRIBUTE6,
214     ATTRIBUTE7 = X_ATTRIBUTE7,
215     ATTRIBUTE8 = X_ATTRIBUTE8,
216     ATTRIBUTE9 = X_ATTRIBUTE9,
217     ATTRIBUTE10 = X_ATTRIBUTE10,
218     ATTRIBUTE11 = X_ATTRIBUTE11,
219     ATTRIBUTE12 = X_ATTRIBUTE12,
220     ATTRIBUTE13 = X_ATTRIBUTE13,
221     ATTRIBUTE14 = X_ATTRIBUTE14,
222     ATTRIBUTE15 = X_ATTRIBUTE15,
223     LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
224     LAST_UPDATED_BY = X_LAST_UPDATED_BY,
225     LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
226   where RESOURCE_SKILL_ID = X_RESOURCE_SKILL_ID;
227 
228   if (sql%notfound) then
229     raise no_data_found;
230   end if;
231 
232 end UPDATE_ROW;
233 
234 procedure DELETE_ROW (
235   X_RESOURCE_SKILL_ID in NUMBER
236 ) is
237 begin
238 
239   delete from JTF_RS_RESOURCE_SKILLS
240   where RESOURCE_SKILL_ID = X_RESOURCE_SKILL_ID;
241 
242   if (sql%notfound) then
243     raise no_data_found;
244   end if;
245 end DELETE_ROW;
246 
247 end JTF_RS_RESOURCE_SKILLS_PKG;