[Home] [Help]
PACKAGE BODY: APPS.JTF_TASK_DEPENDS_PKG
Source
1 PACKAGE body JTF_TASK_DEPENDS_PKG as
2 /* $Header: jtftkdeb.pls 120.1 2005/07/02 01:23:51 appldev ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out nocopy VARCHAR2,
5 X_DEPENDENCY_ID in NUMBER,
6 X_TASK_ID in NUMBER,
7 X_DEPENDENT_ON_TASK_ID in NUMBER,
8 X_ADJUSTMENT_TIME in NUMBER,
9 X_ADJUSTMENT_TIME_UOM in VARCHAR2,
10 X_TEMPLATE_FLAG in VARCHAR2,
11 X_VALIDATED_FLAG in VARCHAR2,
12 X_ATTRIBUTE1 in VARCHAR2,
13 X_ATTRIBUTE2 in VARCHAR2,
14 X_ATTRIBUTE3 in VARCHAR2,
15 X_ATTRIBUTE4 in VARCHAR2,
16 X_ATTRIBUTE5 in VARCHAR2,
17 X_ATTRIBUTE6 in VARCHAR2,
18 X_ATTRIBUTE7 in VARCHAR2,
19 X_ATTRIBUTE8 in VARCHAR2,
20 X_ATTRIBUTE9 in VARCHAR2,
21 X_ATTRIBUTE10 in VARCHAR2,
22 X_ATTRIBUTE11 in VARCHAR2,
23 X_ATTRIBUTE12 in VARCHAR2,
24 X_ATTRIBUTE13 in VARCHAR2,
25 X_ATTRIBUTE14 in VARCHAR2,
26 X_ATTRIBUTE15 in VARCHAR2,
27 X_ATTRIBUTE_CATEGORY in VARCHAR2,
28 X_DEPENDENCY_TYPE_CODE in VARCHAR2,
29 X_CREATION_DATE in DATE,
30 X_CREATED_BY in NUMBER,
31 X_LAST_UPDATE_DATE in DATE,
32 X_LAST_UPDATED_BY in NUMBER,
33 X_LAST_UPDATE_LOGIN in NUMBER
34 ) is
35 cursor C is select ROWID from JTF_TASK_DEPENDS
36 where DEPENDENCY_ID = X_DEPENDENCY_ID
37 ;
38 begin
39 insert into JTF_TASK_DEPENDS (
40 DEPENDENCY_ID,
41 TASK_ID,
42 DEPENDENT_ON_TASK_ID,
43 CREATED_BY,
44 CREATION_DATE,
45 LAST_UPDATED_BY,
46 LAST_UPDATE_DATE,
47 LAST_UPDATE_LOGIN,
48 DEPENDENCY_TYPE_CODE,
49 ADJUSTMENT_TIME,
50 ADJUSTMENT_TIME_UOM,
51 TEMPLATE_FLAG,
52 ATTRIBUTE1,
53 ATTRIBUTE2,
54 ATTRIBUTE3,
55 ATTRIBUTE4,
56 ATTRIBUTE5,
57 ATTRIBUTE6,
58 ATTRIBUTE7,
59 ATTRIBUTE8,
60 ATTRIBUTE9,
61 ATTRIBUTE10,
62 ATTRIBUTE11,
63 ATTRIBUTE12,
64 ATTRIBUTE13,
65 ATTRIBUTE14,
66 ATTRIBUTE15,
67 ATTRIBUTE_CATEGORY,
68 OBJECT_VERSION_NUMBER,
69 VALIDATED_FLAG
70 ) values (
71 X_DEPENDENCY_ID,
72 X_TASK_ID,
73 X_DEPENDENT_ON_TASK_ID,
74 X_CREATED_BY,
75 X_CREATION_DATE,
76 X_LAST_UPDATED_BY,
77 X_LAST_UPDATE_DATE,
78 X_LAST_UPDATE_LOGIN,
79 X_DEPENDENCY_TYPE_CODE,
80 X_ADJUSTMENT_TIME,
81 X_ADJUSTMENT_TIME_UOM,
82 X_TEMPLATE_FLAG,
83 X_ATTRIBUTE1,
84 X_ATTRIBUTE2,
85 X_ATTRIBUTE3,
86 X_ATTRIBUTE4,
87 X_ATTRIBUTE5,
88 X_ATTRIBUTE6,
89 X_ATTRIBUTE7,
90 X_ATTRIBUTE8,
91 X_ATTRIBUTE9,
92 X_ATTRIBUTE10,
93 X_ATTRIBUTE11,
94 X_ATTRIBUTE12,
95 X_ATTRIBUTE13,
96 X_ATTRIBUTE14,
97 X_ATTRIBUTE15,
98 X_ATTRIBUTE_CATEGORY,
99 1,
100 X_VALIDATED_FLAG) ;
101
102 open c;
103 fetch c into X_ROWID;
104 if (c%notfound) then
105 close c;
106 raise no_data_found;
107 end if;
108 close c;
109
110 end INSERT_ROW;
111
112 procedure LOCK_ROW (
113 X_DEPENDENCY_ID in NUMBER,
114 X_OBJECT_VERSION_NUMBER in NUMBER
115 ) is
116 cursor c1 is select
117 OBJECT_VERSION_NUMBER
118 from JTF_TASK_DEPENDS
119 where DEPENDENCY_ID = X_DEPENDENCY_ID
120 for update of DEPENDENCY_ID nowait;
121 tlinfo c1%rowtype ;
122 begin
123 open c1;
124 fetch c1 into tlinfo;
125 if (c1%notfound) then
126 close c1;
127 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
128 app_exception.raise_exception;
129 end if;
130 close c1;
131
132 if (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
133 then
134 null;
135 else
136 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
137 app_exception.raise_exception;
138 end if;
139
140 end LOCK_ROW;
141
142
143 procedure UPDATE_ROW (
144 X_DEPENDENCY_ID in NUMBER,
145 X_OBJECT_VERSION_NUMBER in NUMBER,
146 X_TASK_ID in NUMBER,
147 X_DEPENDENT_ON_TASK_ID in NUMBER,
148 X_ADJUSTMENT_TIME in NUMBER,
149 X_ADJUSTMENT_TIME_UOM in VARCHAR2,
150 X_TEMPLATE_FLAG in VARCHAR2,
151 X_VALIDATED_FLAG in VARCHAR2,
152 X_ATTRIBUTE1 in VARCHAR2,
153 X_ATTRIBUTE2 in VARCHAR2,
154 X_ATTRIBUTE3 in VARCHAR2,
155 X_ATTRIBUTE4 in VARCHAR2,
156 X_ATTRIBUTE5 in VARCHAR2,
157 X_ATTRIBUTE6 in VARCHAR2,
158 X_ATTRIBUTE7 in VARCHAR2,
159 X_ATTRIBUTE8 in VARCHAR2,
160 X_ATTRIBUTE9 in VARCHAR2,
161 X_ATTRIBUTE10 in VARCHAR2,
162 X_ATTRIBUTE11 in VARCHAR2,
163 X_ATTRIBUTE12 in VARCHAR2,
164 X_ATTRIBUTE13 in VARCHAR2,
165 X_ATTRIBUTE14 in VARCHAR2,
166 X_ATTRIBUTE15 in VARCHAR2,
167 X_ATTRIBUTE_CATEGORY in VARCHAR2,
168 X_DEPENDENCY_TYPE_CODE in VARCHAR2,
169 X_LAST_UPDATE_DATE in DATE,
170 X_LAST_UPDATED_BY in NUMBER,
171 X_LAST_UPDATE_LOGIN in NUMBER
172 ) is
173 begin
174 update JTF_TASK_DEPENDS set
175 TASK_ID = X_TASK_ID,
176 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER ,
177 DEPENDENT_ON_TASK_ID = X_DEPENDENT_ON_TASK_ID,
178 ADJUSTMENT_TIME = X_ADJUSTMENT_TIME,
179 ADJUSTMENT_TIME_UOM = X_ADJUSTMENT_TIME_UOM,
180 TEMPLATE_FLAG = X_TEMPLATE_FLAG,
181 VALIDATED_FLAG = X_VALIDATED_FLAG,
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 DEPENDENCY_TYPE_CODE = X_DEPENDENCY_TYPE_CODE,
199 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
200 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
201 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
202 where DEPENDENCY_ID = X_DEPENDENCY_ID ;
203
204 if (sql%notfound) then
205 raise no_data_found;
206 end if;
207 end UPDATE_ROW;
208
209 procedure DELETE_ROW (
210 X_DEPENDENCY_ID in NUMBER
211 ) is
212 begin
213 delete from JTF_TASK_DEPENDS
214 where DEPENDENCY_ID = X_DEPENDENCY_ID ;
215
216 if (sql%notfound) then
217 raise no_data_found;
218 end if;
219
220 end DELETE_ROW;
221
222 end JTF_TASK_DEPENDS_PKG;