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