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