[Home] [Help]
PACKAGE BODY: APPS.HZ_ADAPTER_LOGS_PKG
Source
1 PACKAGE BODY HZ_ADAPTER_LOGS_PKG AS
2 /*$Header: ARHADLGB.pls 115.1 2003/08/15 22:23:17 acng noship $ */
3
4 PROCEDURE Insert_Row(
5 x_adapter_log_id IN OUT NOCOPY NUMBER,
6 x_created_by_module IN VARCHAR2,
7 x_created_by_module_id IN NUMBER,
8 x_http_status_code IN VARCHAR2,
9 x_request_id IN NUMBER,
10 --x_out_doc IN XMLTYPE,
11 --x_in_doc IN XMLTYPE,
12 x_object_version_number IN NUMBER
13 ) IS
14
15 l_success VARCHAR2(1) := 'N';
16 l_primary_key_passed BOOLEAN := FALSE;
17
18 BEGIN
19
20
21 IF x_adapter_log_id IS NOT NULL AND
22 x_adapter_log_id <> fnd_api.g_miss_num
23 THEN
24 l_primary_key_passed := TRUE;
25 END IF;
26
27 WHILE l_success = 'N' LOOP
28 BEGIN
29 INSERT INTO HZ_ADAPTER_LOGS (
30 adapter_log_id,
31 created_by_module,
32 created_by_module_id,
33 http_status_code,
34 --out_doc,
35 --in_doc,
36 object_version_number,
37 created_by,
38 creation_date,
39 last_update_login,
40 last_update_date,
41 last_updated_by
42 ) VALUES (
43 DECODE(x_adapter_log_id,
44 fnd_api.g_miss_num, hz_adapter_logs_s.NEXTVAL,
45 NULL, hz_adapter_logs_s.NEXTVAL,
46 x_adapter_log_id),
47 DECODE(x_created_by_module, fnd_api.g_miss_char, NULL, x_created_by_module),
48 DECODE(x_created_by_module_id, fnd_api.g_miss_num, NULL, x_created_by_module_id),
49 DECODE(x_http_status_code, fnd_api.g_miss_char, NULL, x_http_status_code),
50 --x_out_doc,
51 --x_in_doc,
52 DECODE(x_object_version_number, fnd_api.g_miss_num, NULL, x_object_version_number),
53 hz_utility_v2pub.created_by,
54 hz_utility_v2pub.creation_date,
55 hz_utility_v2pub.last_update_login,
56 hz_utility_v2pub.last_update_date,
57 hz_utility_v2pub.last_updated_by
58 ) RETURNING
59 adapter_log_id
60 INTO
61 x_ADAPTER_LOG_ID;
62
63 l_success := 'Y';
64
65 EXCEPTION
66 WHEN DUP_VAL_ON_INDEX THEN
67 IF INSTRB(SQLERRM, 'HZ_ADAPTER_LOGS_U1') <> 0 OR
68 INSTRB(SQLERRM, 'HZ_ADAPTER_LOGS_PK') <> 0
69 THEN
70 IF l_primary_key_passed THEN
71 fnd_message.set_name('AR', 'HZ_API_DUPLICATE_COLUMN');
72 fnd_message.set_token('COLUMN', 'adapter_log_id');
73 fnd_msg_pub.add;
74 RAISE fnd_api.g_exc_error;
75 END IF;
76
77 DECLARE
78 l_temp_adptlog_id NUMBER;
79 l_max_adptlog_id NUMBER;
80 BEGIN
81 l_temp_adptlog_id := 0;
82 SELECT max(ADAPTER_LOG_ID) INTO l_max_adptlog_id
83 FROM HZ_ADAPTER_LOGS;
84 WHILE l_temp_adptlog_id < l_max_adptlog_id LOOP
85 SELECT HZ_ADAPTER_LOGS_S.NEXTVAL
86 INTO l_temp_adptlog_id FROM dual;
87 END LOOP;
88 END;
89 ELSE
90 RAISE;
91 END IF;
92 END;
93 END LOOP;
94 End Insert_Row;
95
96 PROCEDURE Update_Row(
97 x_rowid IN OUT NOCOPY VARCHAR2,
98 x_adapter_log_id IN NUMBER,
99 x_created_by_module IN VARCHAR2,
100 x_created_by_module_id IN NUMBER,
101 x_http_status_code IN VARCHAR2,
102 x_request_id IN NUMBER,
103 --x_out_doc IN XMLTYPE,
104 --x_in_doc IN XMLTYPE,
105 x_object_version_number IN NUMBER
106 ) IS
107 BEGIN
108 UPDATE HZ_ADAPTER_LOGS
109 SET adapter_log_id = DECODE(x_adapter_log_id,
110 NULL, adapter_log_id,
111 fnd_api.g_miss_num, NULL,
112 x_adapter_log_id),
113 created_by_module = DECODE(x_created_by_module,
114 NULL, created_by_module,
115 fnd_api.g_miss_char, NULL,
116 x_created_by_module),
117 created_by_module_id = DECODE(x_created_by_module_id,
118 NULL, created_by_module_id,
119 fnd_api.g_miss_num, NULL,
120 x_created_by_module_id),
121 http_status_code = DECODE(x_http_status_code,
122 NULL, http_status_code,
123 fnd_api.g_miss_char, NULL,
124 x_http_status_code),
125 request_id = DECODE(x_request_id, NULL, request_id,
126 fnd_api.g_miss_num, NULL,
127 x_request_id),
128 --out_doc = DECODE(x_out_doc, NULL, out_doc, x_out_doc),
129 --in_doc = DECODE(x_in_doc, NULL, in_doc, x_in_doc),
130 last_update_date = hz_utility_v2pub.last_update_date,
131 last_updated_by = hz_utility_v2pub.last_updated_by,
132 creation_date = creation_date,
133 created_by = created_by,
134 last_update_login = hz_utility_v2pub.last_update_login,
135 object_version_number = DECODE(x_object_version_number,
136 NULL, object_version_number,
137 fnd_api.g_miss_num, NULL,
138 x_object_version_number)
139 where rowid = x_rowid;
140
141 If (SQL%NOTFOUND) then
142 RAISE NO_DATA_FOUND;
143 End If;
144 END Update_Row;
145
146 PROCEDURE Lock_Row(
147 x_rowid IN OUT NOCOPY VARCHAR2,
148 x_adapter_log_id IN NUMBER,
149 x_created_by_module IN VARCHAR2,
150 x_created_by_module_id IN NUMBER,
151 x_http_status_code IN VARCHAR2,
152 x_request_id IN NUMBER,
153 --x_out_doc IN XMLTYPE,
154 --x_in_doc IN XMLTYPE,
155 x_last_update_date IN DATE,
156 x_last_updated_by IN NUMBER,
157 x_creation_date IN DATE,
158 x_created_by IN NUMBER,
159 x_last_update_login IN NUMBER,
160 x_object_version_number IN NUMBER ) IS
161
162 CURSOR c IS
163 SELECT *
164 FROM hz_adapter_logs
165 WHERE ROWID = x_rowid
166 FOR UPDATE NOWAIT;
167
168 recinfo c%ROWTYPE;
169
170 BEGIN
171
172 OPEN c;
173 FETCH c INTO recinfo;
174 IF (C%NOTFOUND) THEN
175 CLOSE c;
176 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
177 app_exception.raise_exception;
178 END IF;
179 CLOSE c;
180
181 IF (((recinfo.adapter_log_id = x_adapter_log_id)
182 OR ((recinfo.adapter_log_id IS NULL)
183 AND (x_adapter_log_id IS NULL)))
184 AND ((recinfo.created_by_module = x_created_by_module)
185 OR ((recinfo.created_by_module IS NULL)
186 AND (x_created_by_module IS NULL)))
187 AND ((recinfo.created_by_module_id = x_created_by_module_id)
188 OR ((recinfo.created_by_module_id IS NULL)
189 AND (x_created_by_module_id IS NULL)))
190 AND ((recinfo.http_status_code = x_http_status_code)
191 OR ((recinfo.http_status_code IS NULL)
192 AND (x_http_status_code IS NULL)))
193 AND ((recinfo.request_id = x_request_id)
194 OR ((recinfo.request_id IS NULL)
195 AND (x_request_id IS NULL)))
196 AND ((recinfo.last_update_date = x_last_update_date)
197 OR ((recinfo.last_update_date IS NULL)
198 AND (x_last_update_date IS NULL)))
199 AND ((recinfo.last_updated_by = x_last_updated_by)
200 OR ((recinfo.last_updated_by IS NULL)
201 AND (x_last_updated_by IS NULL)))
202 AND ((recinfo.creation_date = x_creation_date)
203 OR ((recinfo.creation_date IS NULL)
204 AND (x_creation_date IS NULL)))
205 AND ((recinfo.created_by = x_created_by)
206 OR ((recinfo.created_by IS NULL)
207 AND (x_created_by IS NULL)))
208 AND ((recinfo.last_update_login = x_last_update_login)
209 OR ((recinfo.last_update_login IS NULL)
210 AND (x_last_update_login IS NULL)))
211 AND ((recinfo.object_version_number = x_object_version_number)
212 OR ((recinfo.object_version_number IS NULL)
213 AND (x_object_version_number IS NULL)))
214 )
215 THEN
216 RETURN;
217 ELSE
218 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
219 app_exception.raise_exception;
220 END IF;
221
222 END Lock_Row;
223
224
225
226 PROCEDURE delete_row (x_adapter_log_id IN NUMBER) IS
227 BEGIN
228
229 DELETE FROM hz_adapter_logs
230 WHERE adapter_log_id = x_adapter_log_id;
231
232 IF (SQL%NOTFOUND) THEN
233 RAISE NO_DATA_FOUND;
234 END IF;
235
236 END delete_row;
237
238
239 END HZ_ADAPTER_LOGS_PKG;