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