1 PACKAGE BODY CZ_IMP_IM_MAIN AS
2 /* $Header: cziimmnb.pls 120.1.12020000.2 2012/08/17 14:55:36 smanna ship $ */
3
4
5 PROCEDURE CND_ITEM_MASTER ( inRUN_ID IN PLS_INTEGER,
6 COMMIT_SIZE IN PLS_INTEGER,
7 MAX_ERR IN PLS_INTEGER,
8 FAILED IN OUT NOCOPY PLS_INTEGER
9 ) IS
10 BEGIN
11 DECLARE
12 CURSOR c_imp_itemmaster IS
13 SELECT DELETED_FLAG, SRC_APPLICATION_ID, SRC_TYPE_CODE, DECIMAL_QTY_FLAG, ROWID
14 FROM CZ_IMP_ITEM_MASTER
15 WHERE REC_STATUS IS NULL
16 AND RUN_ID = inRUN_ID;
17 /* Internal vars */
18 nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
19 nErrorCount PLS_INTEGER:=0; /*Error index */
20 nDups PLS_INTEGER:=0; /*Dupl records */
21 x_error BOOLEAN:=FALSE;
22
23
24 /*Cursor Var for Import */
25 p_imp_itemmaster c_imp_itemmaster%ROWTYPE;
26 x_imp_itemmaster_f BOOLEAN:=FALSE;
27
28 BEGIN
29
30 OPEN c_imp_itemmaster;
31 LOOP
32 FETCH c_imp_itemmaster INTO p_imp_itemmaster;
33 x_imp_itemmaster_f:=c_imp_itemmaster%FOUND;
34
35 EXIT WHEN NOT x_imp_itemmaster_f;
36 IF (FAILED >= MAX_ERR) THEN
37 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_MAXERR_REACHED'),1,'CZ_IMP_IM_MAIN.CND_ITEM_MASTER:MAX',11276,inRun_Id);
38 RAISE CZ_ADMIN.IMP_MAXERR_REACHED;
39 END IF;
40
41 IF (p_imp_itemmaster.DELETED_FLAG IS NULL) THEN
42 BEGIN
43 UPDATE CZ_IMP_ITEM_MASTER
44 SET DELETED_FLAG=DECODE(DELETED_FLAG,NULL,'0',DELETED_FLAG)
45 WHERE ROWID = p_imp_itemmaster.ROWID;
46 nCOmmitCount:=nCommitCount+1;
47 /* COMMIT if the buffer size is reached */
48 IF (nCommitCount>= COMMIT_SIZE) THEN
49 COMMIT;
50 nCommitCount:=0;
51 END IF;
52 EXCEPTION
53 WHEN OTHERS THEN
54 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_ITEM_MASTER',11276,inRun_ID);
55 FAILED:=FAILED+1;
56 END;
57 END IF;
58
59 IF (p_imp_itemmaster.DECIMAL_QTY_FLAG IS NULL) THEN
60 BEGIN
61 UPDATE CZ_IMP_ITEM_MASTER SET DECIMAL_QTY_FLAG = '0'
62 WHERE ROWID = p_imp_itemmaster.ROWID;
63
64 nCOmmitCount:=nCommitCount+1;
65 /* COMMIT if the buffer size is reached */
66 IF (nCommitCount>= COMMIT_SIZE) THEN
67 COMMIT;
68 nCommitCount:=0;
69 END IF;
70 EXCEPTION
71 WHEN OTHERS THEN
72 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_ITEM_MASTER',11276,inRun_ID);
73 FAILED:=FAILED+1;
74 END;
75 END IF;
76
77 IF (p_imp_itemmaster.SRC_APPLICATION_ID IS NULL AND p_imp_itemmaster.SRC_TYPE_CODE IS NULL) THEN
78 BEGIN
79 UPDATE CZ_IMP_ITEM_MASTER
80 SET DELETED_FLAG=DECODE(DELETED_FLAG,NULL,'0',DELETED_FLAG),
81 SRC_APPLICATION_ID = cnDefSrcAppId,
82 SRC_TYPE_CODE = cnDefSrcTypeCode
83 WHERE ROWID = p_imp_itemmaster.ROWID;
84 nCOmmitCount:=nCommitCount+1;
85 /* COMMIT if the buffer size is reached */
86 IF (nCommitCount>= COMMIT_SIZE) THEN
87 COMMIT;
88 nCommitCount:=0;
89 END IF;
90 EXCEPTION
91 WHEN OTHERS THEN
92 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_ITEM_MASTER',11276,inRun_ID);
93 FAILED:=FAILED+1;
94 END;
95 ELSIF (p_imp_itemmaster.SRC_APPLICATION_ID IS NULL) THEN
96 BEGIN
97 UPDATE CZ_IMP_ITEM_MASTER
98 SET DELETED_FLAG=DECODE(DELETED_FLAG,NULL,'0',DELETED_FLAG),
99 SRC_APPLICATION_ID = cnDefSrcAppId
100 WHERE ROWID = p_imp_itemmaster.ROWID;
101 nCOmmitCount:=nCommitCount+1;
102 /* COMMIT if the buffer size is reached */
103 IF (nCommitCount>= COMMIT_SIZE) THEN
104 COMMIT;
105 nCommitCount:=0;
106 END IF;
107 EXCEPTION
108 WHEN OTHERS THEN
109 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_ITEM_MASTER',11276,inRun_ID);
110 FAILED:=FAILED+1;
111 END;
112 ELSIF (p_imp_itemmaster.SRC_TYPE_CODE IS NULL) THEN
113 BEGIN
114 UPDATE CZ_IMP_ITEM_MASTER
115 SET DELETED_FLAG=DECODE(DELETED_FLAG,NULL,'0',DELETED_FLAG),
116 SRC_TYPE_CODE = cnDefSrcTypeCode
117 WHERE ROWID = p_imp_itemmaster.ROWID;
118 nCOmmitCount:=nCommitCount+1;
119 /* COMMIT if the buffer size is reached */
120 IF (nCommitCount>= COMMIT_SIZE) THEN
121 COMMIT;
122 nCommitCount:=0;
123 END IF;
124 EXCEPTION
125 WHEN OTHERS THEN
126 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_ITEM_MASTER',11276,inRun_ID);
127 FAILED:=FAILED+1;
128 END;
129 END IF;
130
131 END LOOP;
132 CLOSE c_imp_itemmaster;
133
134 EXCEPTION
135 WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
136 RAISE;
137 WHEN OTHERS THEN
138 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_ITEM_MASTER',11276,inRun_ID);
139 END;
140
141 END CND_ITEM_MASTER ;
142
143
144 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
145 PROCEDURE CND_ITEM_PROPERTY_VALUE (inRUN_ID IN PLS_INTEGER,
146 COMMIT_SIZE IN PLS_INTEGER,
147 MAX_ERR IN PLS_INTEGER,
148 FAILED IN OUT NOCOPY PLS_INTEGER
149 ) IS
150 CURSOR c_imp_itempropertyvalue IS
151 SELECT a.DELETED_FLAG,a.PROPERTY_VALUE,a.PROPERTY_NUM_VALUE,
152 a.FSK_PROPERTY_1_1,a.FSK_PROPERTY_1_EXT,a.ORIG_SYS_REF,a.DISPOSITION,a.REC_STATUS,b.data_type
153 FROM CZ_IMP_ITEM_PROPERTY_VALUE a, cz_properties b
154 WHERE a.REC_STATUS IS NULL AND a.RUN_ID = inRUN_ID
155 AND (b.orig_sys_ref = a.fsk_property_1_1 OR b.orig_sys_ref = a.fsk_property_1_ext)
156 AND b.deleted_flag='0';
157
158 /* Internal vars */
159 nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
160 nErrorCount PLS_INTEGER:=0; /*Error index */
161 nDups PLS_INTEGER:=0; /*Dupl records */
162 x_error BOOLEAN:=FALSE;
163 /*Cursor Var for Import */
164 p_imp_itempropertyvalue c_imp_itempropertyvalue%ROWTYPE;
165 x_imp_itempropertyvalue_f BOOLEAN:=FALSE;
166 xERROR BOOLEAN:=FALSE;
167
168 TYPE tPropertyValue IS TABLE OF cz_imp_item_property_value.property_value%TYPE INDEX BY BINARY_INTEGER;
169 TYPE tPropertyNumValue IS TABLE OF cz_imp_item_property_value.property_num_value%TYPE INDEX BY BINARY_INTEGER;
170 TYPE tFskProperty IS TABLE OF cz_imp_item_property_value.fsk_property_1_1%TYPE INDEX BY BINARY_INTEGER;
171 TYPE tFskPropertyExt IS TABLE OF cz_imp_item_property_value.fsk_property_1_ext%TYPE INDEX BY BINARY_INTEGER;
172 TYPE tFskItemMaster IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_1%TYPE INDEX BY BINARY_INTEGER;
173 TYPE tDisposition IS TABLE OF cz_imp_item_property_value.disposition%TYPE INDEX BY BINARY_INTEGER;
174 TYPE tRecStatus IS TABLE OF cz_imp_item_property_value.rec_status%TYPE INDEX BY BINARY_INTEGER;
175 TYPE tDeletedFlag IS TABLE OF cz_imp_item_property_value.deleted_flag%TYPE INDEX BY BINARY_INTEGER;
176 TYPE tOrigSysRef IS TABLE OF cz_imp_item_property_value.orig_sys_ref%TYPE INDEX BY BINARY_INTEGER;
177 TYPE tDataType IS TABLE OF cz_properties.data_type%TYPE INDEX BY BINARY_INTEGER;
178
179 iFskProperty tFskProperty;
180 iFskPropertyExt tFskPropertyExt;
181 iOrigSysRef tOrigSysRef;
182 iPropertyValue tPropertyValue;
183 iPropertyNumValue tPropertyNumValue;
184 iFskItemMaster tFskItemMaster;
185 iDisposition tDisposition;
186 iRecStatus tRecStatus;
187 iDeletedFlag tDeletedFlag;
188 iDataType tDataType;
189
190 st_time NUMBER;
191 end_time NUMBER;
192 loop_end_time NUMBER;
193 insert_end_time NUMBER;
194
195 BEGIN
196 OPEN c_imp_itempropertyvalue;
197 LOOP
198 iDeletedFlag.delete; iFskProperty.delete;
199 iPropertyValue.delete; iRecStatus.delete;
200 iPropertyNumValue.delete; iDisposition.delete;
201 iFskPropertyExt.delete; iDataType.delete;
202
203 FETCH c_imp_itempropertyvalue BULK COLLECT INTO
204 iDeletedFlag,iPropertyValue,iPropertyNumValue,
205 iFskProperty,iFskPropertyExt,iOrigSysRef,iDisposition,iRecStatus,iDataType
206 LIMIT COMMIT_SIZE;
207 EXIT WHEN iDeletedFlag.COUNT = 0 AND c_imp_itempropertyvalue%NOTFOUND;
208
209 IF iDeletedFlag.COUNT > 0 THEN
210
211 IF (FAILED >= MAX_ERR) THEN
212 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_MAXERR_REACHED'),1,
213 'CZ_IMP_IM_MAIN.CND_ITEM_PROPERTY_VALUE:MAX',11276,inRun_Id);
214 RAISE CZ_ADMIN.IMP_MAXERR_REACHED;
215 END IF;
216 FOR i IN iDeletedFlag.FIRST..iDeletedFlag.LAST LOOP
217 IF iDeletedFlag(i) IS NULL THEN
218 iDeletedFlag(i) := '0';
219 END IF;
220
221 IF (iPropertyValue(i) IS NULL AND iPropertyNumValue(i) IS NULL) THEN
222 iDisposition(i) := 'R';
223 iRecStatus(i) := 'FAIL';
224 FAILED := FAILED + 1;
225 xERROR:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_NULL_PROPVAL',
226 'PROPNAME',iFskProperty(i))||iFskPropertyExt(i),
227 1,'EXTR_ITEM_PROPERTY_VALUES',11276,inRun_ID);
228 END IF;
229 BEGIN
230 IF (iDataType(i) = 2 AND iPropertyValue(i) IS NOT NULL AND iPropertyNumValue(i) IS NULL) THEN
231 iPropertyNumValue(i) := TO_NUMBER(iPropertyValue(i));
232 iPropertyValue(i) := NULL;
233 END IF;
234 EXCEPTION
235 WHEN VALUE_ERROR THEN
236 iDisposition(i) := 'R';
237 iRecStatus(i) := 'FAIL';
238 FAILED := FAILED + 1;
239 xERROR:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_INVALID_PROPVAL',
240 'PROPNAME',iFskProperty(i)||iFskPropertyExt(i),
241 'PROPVAL',iPropertyValue(i)),
242 1,'EXTR_ITEM_PROPERTY_VALUES',11276,inRun_ID);
243 END;
244 END LOOP;
245 FORALL i IN iDeletedFlag.FIRST..iDeletedFlag.LAST
246 UPDATE cz_imp_item_property_value
247 SET deleted_flag = iDeletedFlag(i),
248 property_value = iPropertyValue(i),
249 property_num_value = iPropertyNumValue(i),
250 disposition = iDisposition(i),
251 rec_status = iRecStatus(i)
252 WHERE orig_sys_ref = iOrigSysRef(i)
253 AND run_id = inRun_id
254 AND rec_status IS NULL;
255 END IF;
256 END LOOP;
257 CLOSE c_imp_itempropertyvalue;
258 EXCEPTION
259 WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
260 RAISE;
261 WHEN OTHERS THEN
262 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_ITEM_PROPERTY_VALUE',11276,inRun_ID);
263 RAISE CZ_ADMIN.IMP_UNEXP_SQL_ERROR;
264 END CND_ITEM_PROPERTY_VALUE ;
265 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
266
267 PROCEDURE CND_ITEM_TYPE ( inRUN_ID IN PLS_INTEGER,
268 COMMIT_SIZE IN PLS_INTEGER,
269 MAX_ERR IN PLS_INTEGER,
270 FAILED IN OUT NOCOPY PLS_INTEGER
271 ) IS
272 BEGIN
273 DECLARE
274 CURSOR c_imp_itemtype IS
275 SELECT DELETED_FLAG, ROWID FROM CZ_IMP_ITEM_TYPE WHERE REC_STATUS IS NULL AND RUN_ID = inRUN_ID;
276 /* Internal vars */
277 nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
278 nErrorCount PLS_INTEGER:=0; /*Error index */
279 nDups PLS_INTEGER:=0; /*Dupl records */
280 x_error BOOLEAN:=FALSE;
281
282
283 /*Cursor Var for Import */
284 p_imp_itemtype c_imp_itemtype%ROWTYPE;
285 x_imp_itemtype_f BOOLEAN:=FALSE;
286
287 BEGIN
288 OPEN c_imp_itemtype;
289 LOOP
290 FETCH c_imp_itemtype INTO p_imp_itemtype;
291 x_imp_itemtype_f:=c_imp_itemtype%FOUND;
292
293 EXIT WHEN NOT x_imp_itemtype_f;
294 IF (FAILED >= MAX_ERR) THEN
295 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_MAXERR_REACHED'),1,'CZ_IMP_IM_MAIN.CND_ITEM_TYPE:MAX',11276,inRun_Id);
296 RAISE CZ_ADMIN.IMP_MAXERR_REACHED;
297 END IF;
298
299 IF (p_imp_itemtype.DELETED_FLAG IS NULL) THEN
300 BEGIN
301 UPDATE CZ_IMP_ITEM_TYPE SET DELETED_FLAG=DECODE(DELETED_FLAG,NULL,'0',DELETED_FLAG) WHERE ROWID = p_imp_itemtype.ROWID;
302 nCOmmitCount:=nCommitCount+1;
303 /* COMMIT if the buffer size is reached */
304 IF (nCommitCount>= COMMIT_SIZE) THEN
305 COMMIT;
306 nCommitCount:=0;
307 END IF;
308 EXCEPTION
309 WHEN OTHERS THEN
310 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_ITEM_TYPE',11276,inRun_ID);
311 FAILED:=FAILED+1;
312 END;
313 END IF;
314 END LOOP;
315 CLOSE c_imp_itemtype;
316
317 EXCEPTION
318 WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
319 RAISE;
320 WHEN OTHERS THEN
321 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_ITEM_TYPE',11276,inRun_ID);
322 END;
323
324 END CND_ITEM_TYPE;
325
326
327 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
328
329 PROCEDURE CND_ITEM_TYPE_PROPERTY ( inRUN_ID IN PLS_INTEGER,
330 COMMIT_SIZE IN PLS_INTEGER,
331 MAX_ERR IN PLS_INTEGER,
332 FAILED IN OUT NOCOPY PLS_INTEGER
333 ) IS
334 BEGIN
335 DECLARE
336 CURSOR c_imp_itemtypeprop IS
337 SELECT DELETED_FLAG, ROWID FROM CZ_IMP_ITEM_TYPE_PROPERTY WHERE REC_STATUS IS NULL AND RUN_ID = inRUN_ID;
338 /* Internal vars */
339 nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
340 nErrorCount PLS_INTEGER:=0; /*Error index */
341 nDups PLS_INTEGER:=0; /*Dupl records */
342 x_error BOOLEAN:=FALSE;
343
344
345 /*Cursor Var for Import */
346 p_imp_itemtypeprop c_imp_itemtypeprop%ROWTYPE;
347 x_imp_itemtypeprop_f BOOLEAN:=FALSE;
348
349 BEGIN
350
351 OPEN c_imp_itemtypeprop;
352 LOOP
353 FETCH c_imp_itemtypeprop INTO p_imp_itemtypeprop;
354 x_imp_itemtypeprop_f:=c_imp_itemtypeprop%FOUND;
355
356 EXIT WHEN NOT x_imp_itemtypeprop_f;
357 IF (FAILED >= MAX_ERR) THEN
358 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_MAXERR_REACHED'),1,'CZ_IMP_IM_MAIN.CND_ITEM_TYPE_PROPERTY:MAX',11276,inRun_Id);
359 RAISE CZ_ADMIN.IMP_MAXERR_REACHED;
360 END IF;
361
362 IF (p_imp_itemtypeprop.DELETED_FLAG IS NULL) THEN
363 BEGIN
364 UPDATE CZ_IMP_ITEM_TYPE_PROPERTY SET DELETED_FLAG=DECODE(DELETED_FLAG,NULL,'0',DELETED_FLAG) WHERE ROWID = p_imp_itemtypeprop.ROWID;
365 nCOmmitCount:=nCommitCount+1;
366 /* COMMIT if the buffer size is reached */
367 IF (nCommitCount>= COMMIT_SIZE) THEN
368 COMMIT;
369 nCommitCount:=0;
370 END IF;
371 EXCEPTION
372 WHEN OTHERS THEN
373 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_ITEM_TYPE_PROPERTY',11276,inRun_ID);
374 FAILED:=FAILED+1;
375 END;
376 END IF;
377 END LOOP;
378 CLOSE c_imp_itemtypeprop;
379
380 EXCEPTION
381 WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
382 RAISE;
383 WHEN OTHERS THEN
384 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_ITEM_TYPE_PROPERTY',11276,inRun_ID);
385 END;
386
387 END CND_ITEM_TYPE_PROPERTY;
388
389 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
390
391
392
393 PROCEDURE CND_PROPERTY ( inRUN_ID IN PLS_INTEGER,
394 COMMIT_SIZE IN PLS_INTEGER,
395 MAX_ERR IN PLS_INTEGER,
396 FAILED IN OUT NOCOPY PLS_INTEGER
397 ) IS
398 BEGIN
399 DECLARE
400 CURSOR c_imp_property IS
401 SELECT DELETED_FLAG, DATA_TYPE, ROWID
402 FROM CZ_IMP_property WHERE REC_STATUS IS NULL AND RUN_ID = inRUN_ID;
403 /* Internal vars */
404 nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
405 nErrorCount PLS_INTEGER:=0; /*Error index */
406 nDups PLS_INTEGER:=0; /*Dupl records */
407 x_error BOOLEAN:=FALSE;
408
409
410 /*Cursor Var for Import */
411 p_imp_property c_imp_property%ROWTYPE;
412 x_imp_property_f BOOLEAN:=FALSE;
413
414 BEGIN
415
416 OPEN c_imp_property;
417 LOOP
418 FETCH c_imp_property INTO p_imp_property;
419 x_imp_property_f:=c_imp_property%FOUND;
420
421 EXIT WHEN NOT x_imp_property_f;
422 IF (FAILED >= MAX_ERR) THEN
423 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_MAXERR_REACHED'),1,'CZ_IMP_IM_MAIN.CND_PROPERTY:MAX',11276,inRun_Id);
424 RAISE CZ_ADMIN.IMP_MAXERR_REACHED;
425 END IF;
426
427 IF (p_imp_property.DELETED_FLAG IS NULL) THEN
428 BEGIN
429 UPDATE CZ_IMP_property SET DELETED_FLAG=DECODE(DELETED_FLAG,NULL,'0',DELETED_FLAG) WHERE ROWID = p_imp_property.ROWID;
430 nCOmmitCount:=nCommitCount+1;
431 /* COMMIT if the buffer size is reached */
432 IF (nCommitCount>= COMMIT_SIZE) THEN
433 COMMIT;
434 nCommitCount:=0;
435 END IF;
436 EXCEPTION
437 WHEN OTHERS THEN
438 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_PROPERTY',11276,inRun_ID);
439 FAILED:=FAILED+1;
440 END;
441 END IF;
442
443 IF (p_imp_property.DATA_TYPE IS NULL) THEN
444 BEGIN
445
446 UPDATE CZ_IMP_property SET DATA_TYPE = 4 WHERE ROWID = p_imp_property.ROWID;
447
448 nCOmmitCount:=nCommitCount+1;
449 /* COMMIT if the buffer size is reached */
450 IF (nCommitCount>= COMMIT_SIZE) THEN
451 COMMIT;
452 nCommitCount:=0;
453 END IF;
454 EXCEPTION
455 WHEN OTHERS THEN
456 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_PROPERTY',11276,inRun_ID);
457 FAILED:=FAILED+1;
458 END;
459 END IF;
460 END LOOP;
461 CLOSE c_imp_property;
462
463 EXCEPTION
464 WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
465 RAISE;
466 WHEN OTHERS THEN
467 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.CND_PROPERTY',11276,inRun_ID);
468 END;
469
470 END CND_PROPERTY;
471
472 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
473 PROCEDURE MAIN_ITEM_MASTER ( inRUN_ID IN PLS_INTEGER,
474 COMMIT_SIZE IN PLS_INTEGER,
475 MAX_ERR IN PLS_INTEGER,
476 INSERTS IN OUT NOCOPY PLS_INTEGER,
477 UPDATES IN OUT NOCOPY PLS_INTEGER,
478 FAILED IN OUT NOCOPY PLS_INTEGER,
479 DUPS IN OUT NOCOPY PLS_INTEGER,
480 NOCHANGE IN OUT NOCOPY PLS_INTEGER,
481 inXFR_GROUP IN VARCHAR2
482 ) IS
483 BEGIN
484 DECLARE
485 /* Internal vars */
486 nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
487 nErrorCount PLS_INTEGER:=0; /*Error index */
488 nXfrInsertCount PLS_INTEGER:=0; /*Inserts */
489 nXfrUpdateCount PLS_INTEGER:=0; /*Updates */
490 nDups PLS_INTEGER:=0; /*Dupl records */
491 nNoChangeCount PLS_INTEGER:=0; /*NoChangeCount */
492 x_error BOOLEAN:=FALSE;
493 dummy CHAR(1);
494
495 st_time number;
496 end_time number;
497 loop_end_time number;
498 insert_end_time number;
499 d_str varchar2(255);
500
501 BEGIN
502
503 BEGIN
504 SELECT 'X' INTO dummy FROM CZ_XFR_RUN_INFOS WHERE RUN_ID=inRUN_ID;
505
506 UPDATE CZ_XFR_RUN_INFOS SET
507 STARTED=SYSDATE,
508 LAST_ACTIVITY=SYSDATE
509 WHERE RUN_ID=inRUN_ID;
510
511 EXCEPTION
512 WHEN NO_DATA_FOUND THEN
513 INSERT INTO CZ_XFR_RUN_INFOS (RUN_ID,STARTED,LAST_ACTIVITY)
514 VALUES(inRUN_ID,SYSDATE,SYSDATE);
515
516 WHEN OTHERS THEN
517 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.MAIN_ITEM_MASTER',11276,inRun_ID);
518 END;
519
520 if (CZ_IMP_ALL.get_time) then
521 st_time := dbms_utility.get_time();
522 end if;
523
524 CZ_IMP_IM_MAIN.CND_ITEM_MASTER (inRun_ID,COMMIT_SIZE,MAX_ERR,FAILED);
525
526 if (CZ_IMP_ALL.get_time) then
527 end_time := dbms_utility.get_time();
528 d_str := inRun_id || ' CND item master :' || (end_time-st_time)/100.00;
529 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'CND',11299);
530 end if;
531
532 if (CZ_IMP_ALL.get_time) then
533 st_time := dbms_utility.get_time();
534 end if;
535
536 CZ_IMP_IM_KRS.KRS_ITEM_MASTER (inRUN_ID,COMMIT_SIZE,MAX_ERR,INSERTS,UPDATES,FAILED,DUPS,NOCHANGE,inXFR_GROUP);
537
538 if (CZ_IMP_ALL.get_time) then
539 end_time := dbms_utility.get_time();
540 d_str := inRun_id || ' KRS item master :' || (end_time-st_time)/100.00;
541 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'KRS',11299);
542 end if;
543
544 if (CZ_IMP_ALL.get_time) then
545 st_time := dbms_utility.get_time();
546 end if;
547
548 CZ_IMP_IM_XFR.XFR_ITEM_MASTER (inRUN_ID,COMMIT_SIZE,MAX_ERR,nXfrInsertCount,nXfrUpdateCount,FAILED,nNoChangeCount,inXFR_GROUP);
549
550 if (CZ_IMP_ALL.get_time) then
551 end_time := dbms_utility.get_time();
552 d_str := inRun_id || ' XFR item master :' || (end_time-st_time)/100.00;
553 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'XFR',11299);
554 end if;
555
556 /* Report Insert Errors */
557 IF (nXfrInsertCount<> INSERTS) THEN
558 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_INSERTERRORS','RESOLVED',to_char(INSERTS),'ACTUAL',to_char(nXfrInsertCount)),1,'IMP_IM.MAIN_ITEM_MASTER ',11276,inRun_ID);
559 END IF;
560
561 /* Report Update Errors */
562 IF (nXfrUpdateCount<> UPDATES) THEN
563 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_UPDATEERRORS','RESOLVED',to_char(UPDATES),'ACTUAL',to_char(nXfrUpdateCount)),1,'IMP_IM.MAIN_ITEM_MASTER ',11276,inRun_ID);
564 END IF;
565
566 /* Return the transferred number of rows and not the number of rows with keys resolved*/
567 INSERTS:=nXfrInsertCount;
568 UPDATES:=nXfrUpdateCount;
569 NOCHANGE:=nNoChangeCount;
570
571 CZ_IMP_IM_MAIN.RPT_ITEM_MASTER (inRUN_ID);
572 END;
573 END MAIN_ITEM_MASTER ;
574
575 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
576
577 PROCEDURE MAIN_ITEM_PROPERTY_VALUE( inRUN_ID IN PLS_INTEGER,
578 COMMIT_SIZE IN PLS_INTEGER,
579 MAX_ERR IN PLS_INTEGER,
580 INSERTS IN OUT NOCOPY PLS_INTEGER,
581 UPDATES IN OUT NOCOPY PLS_INTEGER,
582 FAILED IN OUT NOCOPY PLS_INTEGER,
583 DUPS IN OUT NOCOPY PLS_INTEGER,
584 NOCHANGE IN OUT NOCOPY PLS_INTEGER,
585 inXFR_GROUP IN VARCHAR2
586 ) IS
587 BEGIN
588 DECLARE
589 /* Internal vars */
590 nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
591 nErrorCount PLS_INTEGER:=0; /*Error index */
592 nXfrInsertCount PLS_INTEGER:=0; /*Inserts */
593 nXfrUpdateCount PLS_INTEGER:=0; /*Updates */
594 nDups PLS_INTEGER:=0; /*Dupl records */
595 nNoChangeCount PLS_INTEGER:=0; /*NoChangeCount */
596 x_error BOOLEAN:=FALSE;
597 dummy CHAR(1);
598
599 st_time number;
600 end_time number;
601 loop_end_time number;
602 insert_end_time number;
603 d_str varchar2(255);
604
605 BEGIN
606
607 BEGIN
608 SELECT 'X' INTO dummy FROM CZ_XFR_RUN_INFOS WHERE RUN_ID=inRUN_ID;
609
610 UPDATE CZ_XFR_RUN_INFOS SET
611 STARTED=SYSDATE,
612 LAST_ACTIVITY=SYSDATE
613 WHERE RUN_ID=inRUN_ID;
614
615 EXCEPTION
616 WHEN NO_DATA_FOUND THEN
617 INSERT INTO CZ_XFR_RUN_INFOS (RUN_ID,STARTED,LAST_ACTIVITY)
618 VALUES(inRUN_ID,SYSDATE,SYSDATE);
619
620 WHEN OTHERS THEN
621 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.MAIN_ITEM_PROPERTY_VALUE',11276,inRun_ID);
622 END;
623
624 if (CZ_IMP_ALL.get_time) then
625 st_time := dbms_utility.get_time();
626 end if;
627
628 CZ_IMP_IM_MAIN.CND_ITEM_PROPERTY_VALUE (inRun_ID,COMMIT_SIZE,MAX_ERR,FAILED);
629
630 if (CZ_IMP_ALL.get_time) then
631 end_time := dbms_utility.get_time();
632 d_str := inRun_id || ' CND item prop val :' || (end_time-st_time)/100.00;
633 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'CND',11299);
634 end if;
635
636
637 if (CZ_IMP_ALL.get_time) then
638 st_time := dbms_utility.get_time();
639 end if;
640
641 CZ_IMP_IM_KRS.KRS_ITEM_PROPERTY_VALUE (inRUN_ID,COMMIT_SIZE,MAX_ERR,INSERTS,UPDATES,FAILED,DUPS,nNoChangeCount,inXFR_GROUP);
642
643 if (CZ_IMP_ALL.get_time) then
644 end_time := dbms_utility.get_time();
645 d_str := inRun_id || ' KRS item prop val :' || (end_time-st_time)/100.00;
646 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'KRS',11299);
647 end if;
648
649 if (CZ_IMP_ALL.get_time) then
650 st_time := dbms_utility.get_time();
651 end if;
652
653 CZ_IMP_IM_XFR.XFR_ITEM_PROPERTY_VALUE(inRUN_ID,COMMIT_SIZE,MAX_ERR,nXfrInsertCount,nXfrUpdateCount,FAILED,nNoChangeCount,inXFR_GROUP);
654
655 if (CZ_IMP_ALL.get_time) then
656 end_time := dbms_utility.get_time();
657 d_str := inRun_id || ' XFR item prop val :' || (end_time-st_time)/100.00;
658 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'XFR',11299);
659 end if;
660
661 /* Report Insert Errors */
662 IF (nXfrInsertCount<> INSERTS) THEN
663 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_INSERTERRORS','RESOLVED',to_char(INSERTS),'ACTUAL',to_char(nXfrInsertCount)),1,'CZ_IM_MAIN.MAIN_ITEM_PROPERTY_VALUE',11276,inRun_ID);
664 END IF;
665
666 /* Report Update Errors */
667 IF (nXfrUpdateCount<> UPDATES) THEN
668 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_UPDATEERRORS','RESOLVED',to_char(UPDATES),'ACTUAL',to_char(nXfrUpdateCount)),1,'CZ_IM_MAIN.MAIN_ITEM_PROPERTY_VALUE',11276,inRun_ID);
669 END IF;
670
671 /* Return the transferred number of rows and not the number of rows with keys resolved*/
672 INSERTS:=nXfrInsertCount;
673 UPDATES:=nXfrUpdateCount;
674
675 CZ_IMP_IM_MAIN.RPT_ITEM_PROPERTY_VALUE(inRUN_ID);
676 END;
677 END MAIN_ITEM_PROPERTY_VALUE ;
678
679 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
680
681 PROCEDURE MAIN_ITEM_TYPE ( inRUN_ID IN PLS_INTEGER,
682 COMMIT_SIZE IN PLS_INTEGER,
683 MAX_ERR IN PLS_INTEGER,
684 INSERTS IN OUT NOCOPY PLS_INTEGER,
685 UPDATES IN OUT NOCOPY PLS_INTEGER,
686 FAILED IN OUT NOCOPY PLS_INTEGER,
687 DUPS IN OUT NOCOPY PLS_INTEGER,
688 NOCHANGE IN OUT NOCOPY PLS_INTEGER,
689 inXFR_GROUP IN VARCHAR2
690 ) IS
691 BEGIN
692 DECLARE
693 /* Internal vars */
694 nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
695 nErrorCount PLS_INTEGER:=0; /*Error index */
696 nXfrInsertCount PLS_INTEGER:=0; /*Inserts */
697 nXfrUpdateCount PLS_INTEGER:=0; /*Updates */
698 nDups PLS_INTEGER:=0; /*Dupl records */
699 nNoChangeCount PLS_INTEGER:=0; /*NoChange in Records */
700 x_error BOOLEAN:=FALSE;
701 dummy CHAR(1);
702
703 st_time number;
704 end_time number;
705 loop_end_time number;
706 insert_end_time number;
707 d_str varchar2(255);
708
709 BEGIN
710
711 BEGIN
712 SELECT 'X' INTO dummy FROM CZ_XFR_RUN_INFOS WHERE RUN_ID=inRUN_ID;
713
714 UPDATE CZ_XFR_RUN_INFOS SET
715 STARTED=SYSDATE,
716 LAST_ACTIVITY=SYSDATE
717 WHERE RUN_ID=inRUN_ID;
718
719 EXCEPTION
720 WHEN NO_DATA_FOUND THEN
721 INSERT INTO CZ_XFR_RUN_INFOS (RUN_ID,STARTED,LAST_ACTIVITY)
722 VALUES(inRUN_ID,SYSDATE,SYSDATE);
723
724 WHEN OTHERS THEN
725 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.MAIN_ITEM_TYPE',11276,inRun_ID);
726 END;
727
728 if (CZ_IMP_ALL.get_time) then
729 st_time := dbms_utility.get_time();
730 end if;
731 CZ_IMP_IM_MAIN.CND_ITEM_TYPE (inRun_ID,COMMIT_SIZE,MAX_ERR,FAILED);
732 if (CZ_IMP_ALL.get_time) then
733 end_time := dbms_utility.get_time();
734 d_str := inRun_id || ' CND item type :' || (end_time-st_time)/100.00;
735 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'CND',11299);
736 end if;
737
738 if (CZ_IMP_ALL.get_time) then
739 st_time := dbms_utility.get_time();
740 end if;
741
742 CZ_IMP_IM_KRS.KRS_ITEM_TYPE (inRUN_ID,COMMIT_SIZE,MAX_ERR,INSERTS,UPDATES,FAILED,DUPS,NOCHANGE,inXFR_GROUP);
743
744 if (CZ_IMP_ALL.get_time) then
745 end_time := dbms_utility.get_time();
746 d_str := inRun_id || ' KRS item type :' || (end_time-st_time)/100.00;
747 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'KRS',11299);
748 end if;
749
750 if (CZ_IMP_ALL.get_time) then
751 st_time := dbms_utility.get_time();
752 end if;
753
754 CZ_IMP_IM_XFR.XFR_ITEM_TYPE (inRUN_ID,COMMIT_SIZE,MAX_ERR,nXfrInsertCount,nXfrUpdateCount,FAILED,nNoChangeCount,inXFR_GROUP);
755
756 if (CZ_IMP_ALL.get_time) then
757 end_time := dbms_utility.get_time();
758 d_str := inRun_id || ' XFR item type :' || (end_time-st_time)/100.00;
759 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'XFR',11299);
760 end if;
761
762 /* Report Insert Errors */
763 IF (nXfrInsertCount<> INSERTS) THEN
764 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_INSERTERRORS','RESOLVED',to_char(INSERTS),'ACTUAL',to_char(nXfrInsertCount)),1,'CZ_IM_MAIN.MAIN_ITEM_TYPE',11276,inRun_ID);
765 END IF;
766
767 /* Report Update Errors */
768 IF (nXfrUpdateCount<> UPDATES) THEN
769 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_UPDATEERRORS','RESOLVED',to_char(UPDATES),'ACTUAL',to_char(nXfrUpdateCount)),1,'CZ_IM_MAIN.MAIN_ITEM_TYPE',11276,inRun_ID);
770 END IF;
771
772 /* Return the transferred number of rows and not the number of rows with keys resolved*/
773 INSERTS:=nXfrInsertCount;
774 UPDATES:=nXfrUpdateCount;
775 NOCHANGE:=nNoChangeCount;
776
777 CZ_IMP_IM_MAIN.RPT_ITEM_TYPE(inRUN_ID);
778 END;
779 END MAIN_ITEM_TYPE ;
780
781 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
782
783 PROCEDURE MAIN_ITEM_TYPE_PROPERTY ( inRUN_ID IN PLS_INTEGER,
784 COMMIT_SIZE IN PLS_INTEGER,
785 MAX_ERR IN PLS_INTEGER,
786 INSERTS IN OUT NOCOPY PLS_INTEGER,
787 UPDATES IN OUT NOCOPY PLS_INTEGER,
788 FAILED IN OUT NOCOPY PLS_INTEGER,
789 DUPS IN OUT NOCOPY PLS_INTEGER,
790 inXFR_GROUP IN VARCHAR2
791 ) IS
792 BEGIN
793 DECLARE
794 /* Internal vars */
795 nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
796 nErrorCount PLS_INTEGER:=0; /*Error index */
797 nXfrInsertCount PLS_INTEGER:=0; /*Inserts */
798 nXfrUpdateCount PLS_INTEGER:=0; /*Updates */
799 nDups PLS_INTEGER:=0; /*Dupl records */
800 x_error BOOLEAN:=FALSE;
801 dummy CHAR(1);
802
803 st_time number;
804 end_time number;
805 loop_end_time number;
806 insert_end_time number;
807 d_str varchar2(255);
808
809 BEGIN
810
811 BEGIN
812 SELECT 'X' INTO dummy FROM CZ_XFR_RUN_INFOS WHERE RUN_ID=inRUN_ID;
813
814 UPDATE CZ_XFR_RUN_INFOS SET
815 STARTED=SYSDATE,
816 LAST_ACTIVITY=SYSDATE
817 WHERE RUN_ID=inRUN_ID;
818
819 EXCEPTION
820 WHEN NO_DATA_FOUND THEN
821 INSERT INTO CZ_XFR_RUN_INFOS (RUN_ID,STARTED,LAST_ACTIVITY)
822 VALUES(inRUN_ID,SYSDATE,SYSDATE);
823
824 WHEN OTHERS THEN
825 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.MAIN_ITEM_TYPE_PROPERTY',11276,inRun_ID);
826 END;
827
828 if (CZ_IMP_ALL.get_time) then
829 st_time := dbms_utility.get_time();
830 end if;
831
832 CZ_IMP_IM_MAIN.CND_ITEM_TYPE_PROPERTY (inRun_ID,COMMIT_SIZE,MAX_ERR,FAILED);
833
834 if (CZ_IMP_ALL.get_time) then
835 end_time := dbms_utility.get_time();
836 d_str := inRun_id || ' CND item type prop :' || (end_time-st_time)/100.00;
837 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'CND',11299);
838 end if;
839
840 if (CZ_IMP_ALL.get_time) then
841 st_time := dbms_utility.get_time();
842 end if;
843
844 CZ_IMP_IM_KRS.KRS_ITEM_TYPE_PROPERTY (inRUN_ID,COMMIT_SIZE,MAX_ERR,INSERTS,UPDATES,FAILED,DUPS,inXFR_GROUP);
845
846 if (CZ_IMP_ALL.get_time) then
847 end_time := dbms_utility.get_time();
848 d_str := inRun_id || ' KRS item type prop :' || (end_time-st_time)/100.00;
849 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'KRS',11299);
850 end if;
851
852 if (CZ_IMP_ALL.get_time) then
853 st_time := dbms_utility.get_time();
854 end if;
855
856 CZ_IMP_IM_XFR.XFR_ITEM_TYPE_PROPERTY (inRUN_ID,COMMIT_SIZE,MAX_ERR,nXfrInsertCount,nXfrUpdateCount,FAILED,inXFR_GROUP);
857
858 if (CZ_IMP_ALL.get_time) then
859 end_time := dbms_utility.get_time();
860 d_str := inRun_id || ' XFR item type prop :' || (end_time-st_time)/100.00;
861 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'XFR',11299);
862 end if;
863
864 /* Report Insert Errors */
865 IF (nXfrInsertCount<> INSERTS) THEN
866 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_INSERTERRORS','RESOLVED',to_char(INSERTS),'ACTUAL',to_char(nXfrInsertCount)),1,'CZ_IM_MAIN.MAIN_ITEM_TYPE_PROPERTY',11276,inRun_ID);
867 END IF;
868
869 /* Report Update Errors */
870 IF (nXfrUpdateCount<> UPDATES) THEN
871 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_UPDATEERRORS','RESOLVED',to_char(UPDATES),'ACTUAL',to_char(nXfrUpdateCount)),1,'CZ_IM_MAIN.MAIN_ITEM_TYPE_PROPERTY',11276,inRun_ID);
872 END IF;
873
874 /* Return the transferred number of rows and not the number of rows with keys resolved*/
875 INSERTS:=nXfrInsertCount;
876 UPDATES:=nXfrUpdateCount;
877
878 CZ_IMP_IM_MAIN.RPT_ITEM_TYPE_PROPERTY(inRUN_ID);
879 END;
880 END MAIN_ITEM_TYPE_PROPERTY ;
881
882
883
884 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
885
886 PROCEDURE MAIN_PROPERTY ( inRUN_ID IN PLS_INTEGER,
887 COMMIT_SIZE IN PLS_INTEGER,
888 MAX_ERR IN PLS_INTEGER,
889 INSERTS IN OUT NOCOPY PLS_INTEGER,
890 UPDATES IN OUT NOCOPY PLS_INTEGER,
891 FAILED IN OUT NOCOPY PLS_INTEGER,
892 DUPS IN OUT NOCOPY PLS_INTEGER,
893 NOCHANGE IN OUT NOCOPY PLS_INTEGER,
894 inXFR_GROUP IN VARCHAR2,
895 p_rp_folder_id IN NUMBER
896 ) IS
897 BEGIN
898 DECLARE
899 /* Interal vars */
900 nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
901 nErrorCount PLS_INTEGER:=0; /*Error index */
902 nXfrInsertCount PLS_INTEGER:=0; /*Inserts */
903 nXfrUpdateCount PLS_INTEGER:=0; /*Updates */
904 nDups PLS_INTEGER:=0; /*Dupl records */
905 nNoChangeCount PLS_INTEGER:=0; /*No Change in Records */
906 x_error BOOLEAN:=FALSE;
907 dummy CHAR(1);
908
909 st_time number;
910 end_time number;
911 loop_end_time number;
912 insert_end_time number;
913 d_str varchar2(255);
914
915 BEGIN
916
917 BEGIN
918 SELECT 'X' INTO dummy FROM CZ_XFR_RUN_INFOS WHERE RUN_ID=inRUN_ID;
919
920 UPDATE CZ_XFR_RUN_INFOS SET
921 STARTED=SYSDATE,
922 LAST_ACTIVITY=SYSDATE
923 WHERE RUN_ID=inRUN_ID;
924
925 EXCEPTION
926 WHEN NO_DATA_FOUND THEN
927 INSERT INTO CZ_XFR_RUN_INFOS (RUN_ID,STARTED,LAST_ACTIVITY)
928 VALUES(inRUN_ID,SYSDATE,SYSDATE);
929
930 WHEN OTHERS THEN
931 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.MAIN_PROPERTY',11276,inRun_ID);
932 END;
933
934 if (CZ_IMP_ALL.get_time) then
935 st_time := dbms_utility.get_time();
936 end if;
937
938 CZ_IMP_IM_MAIN.CND_PROPERTY (inRun_ID,COMMIT_SIZE,MAX_ERR,FAILED);
939
940 if (CZ_IMP_ALL.get_time) then
941 end_time := dbms_utility.get_time();
942 d_str := inRun_id || ' CND property :' || (end_time-st_time)/100.00;
943 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'CND',11299);
944 end if;
945
946 if (CZ_IMP_ALL.get_time) then
947 st_time := dbms_utility.get_time();
948 end if;
949
950 CZ_IMP_IM_KRS.KRS_PROPERTY (inRUN_ID,COMMIT_SIZE,MAX_ERR,INSERTS,UPDATES,FAILED,DUPS,NOCHANGE,inXFR_GROUP);
951
952 if (CZ_IMP_ALL.get_time) then
953 end_time := dbms_utility.get_time();
954 d_str := inRun_id || ' KRS property :' || (end_time-st_time)/100.00;
955 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'KRS',11299);
956 end if;
957
958 if (CZ_IMP_ALL.get_time) then
959 st_time := dbms_utility.get_time();
960 end if;
961
962 CZ_IMP_IM_XFR.XFR_PROPERTY (inRUN_ID,COMMIT_SIZE,MAX_ERR,nXfrInsertCount,nXfrUpdateCount,FAILED,nNoChangeCount,inXFR_GROUP, p_rp_folder_id);
963
964 if (CZ_IMP_ALL.get_time) then
965 end_time := dbms_utility.get_time();
966 d_str := inRun_id || ' XFR property :' || (end_time-st_time)/100.00;
967 x_ERROR:=CZ_UTILS.LOG_REPORT(d_str,1,'XFR',11299);
968 end if;
969
970 /* Report Insert Errors */
971 IF (nXfrInsertCount<> INSERTS) THEN
972 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_INSERTERRORS','RESOLVED',to_char(INSERTS),'ACTUAL',to_char(nXfrInsertCount)),1,'CZ_IM_MAIN.MAIN_PROPERTY',11276,inRun_ID);
973 END IF;
974
975 /* Report Update Errors */
976 IF (nXfrUpdateCount<> UPDATES) THEN
977 x_error:=CZ_UTILS.LOG_REPORT(CZ_UTILS.GET_TEXT('CZ_IMP_UPDATEERRORS','RESOLVED',to_char(UPDATES),'ACTUAL',to_char(nXfrUpdateCount)),1,'CZ_IM_MAIN.MAIN_PROPERTY',11276,inRun_ID);
978 END IF;
979
980 /* Return the transferred number of rows and not the number of rows with keys resolved*/
981 INSERTS:=nXfrInsertCount;
982 UPDATES:=nXfrUpdateCount;
983 NOCHANGE:=nNoChangeCount;
984
985 CZ_IMP_IM_MAIN.RPT_PROPERTY(inRUN_ID);
986 END ;
987
988 END MAIN_PROPERTY ;
989
990 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
991 PROCEDURE RPT_ITEM_MASTER ( inRUN_ID IN PLS_INTEGER ) AS
992 x_error BOOLEAN:=FALSE;
993 v_table_name VARCHAR2(30) := 'CZ_ITEM_MASTERS';
994 v_ok VARCHAR2(4) := 'OK';
995 v_completed VARCHAR2(1) := '1';
996 BEGIN
997 BEGIN
998 DELETE FROM CZ_XFR_RUN_RESULTS WHERE RUN_ID=inRUN_ID AND IMP_TABLE=v_table_name;
999
1000 EXCEPTION
1001 WHEN NO_DATA_FOUND THEN NULL;
1002 END;
1003
1004 DECLARE
1005 CURSOR c_xfr_run_result IS
1006 SELECT DISPOSITION,REC_STATUS,COUNT(*)
1007 FROM CZ_IMP_item_master
1008 WHERE RUN_ID = inRUN_ID
1009 GROUP BY DISPOSITION,REC_STATUS;
1010
1011 ins_disposition CZ_XFR_RUN_RESULTS.disposition%TYPE;
1012 ins_rec_status CZ_XFR_RUN_RESULTS.rec_status%TYPE ;
1013 ins_rec_count CZ_XFR_RUN_RESULTS.records%TYPE ;
1014
1015 BEGIN
1016
1017 OPEN c_xfr_run_result;
1018 LOOP
1019 FETCH c_xfr_run_result INTO ins_disposition,ins_rec_status,ins_rec_count;
1020 EXIT WHEN c_xfr_run_result%NOTFOUND;
1021
1022 INSERT INTO CZ_XFR_RUN_RESULTS(RUN_ID,IMP_TABLE,DISPOSITION,REC_STATUS,RECORDS)
1023 VALUES(inRUN_ID,v_table_name,ins_disposition,ins_rec_status,ins_rec_count);
1024
1025 END LOOP;
1026 CLOSE c_xfr_run_result;
1027 COMMIT;
1028
1029 EXCEPTION
1030 WHEN OTHERS THEN
1031 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_MASTER',11276,inRun_ID);
1032 END;
1033
1034 DECLARE
1035 nErrors PLS_INTEGER;
1036 CURSOR c_get_nErrors IS
1037 SELECT SUM(NVL(RECORDS,0)) FROM CZ_XFR_RUN_RESULTS
1038 WHERE REC_STATUS<>v_ok AND RUN_ID=inRUN_ID
1039 AND IMP_TABLE=v_table_name;
1040 BEGIN
1041 OPEN c_get_nErrors;
1042 FETCH c_get_nErrors INTO nErrors;
1043 CLOSE c_get_nErrors;
1044 UPDATE CZ_XFR_RUN_INFOS
1045 SET TOTAL_ERRORS=NVL(TOTAL_ERRORS,0)+NVL(nErrors,0),
1046 COMPLETED=v_completed
1047 WHERE RUN_ID=inRUN_ID;
1048 COMMIT;
1049 EXCEPTION
1050 WHEN OTHERS THEN
1051 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_MASTER',11276,inRun_ID);
1052 END;
1053 EXCEPTION
1054 WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
1055 RAISE;
1056 WHEN OTHERS THEN
1057 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_MASTER',11276,inRun_ID);
1058 END;
1059
1060 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
1061
1062 PROCEDURE RPT_ITEM_PROPERTY_VALUE ( inRUN_ID IN PLS_INTEGER ) AS
1063 x_error BOOLEAN:=FALSE;
1064 v_table_name VARCHAR2(30) := 'CZ_ITEM_PROPERTY_VALUES';
1065 v_ok VARCHAR2(4) := 'OK';
1066 v_completed VARCHAR2(1) := '1';
1067 BEGIN
1068 BEGIN
1069 DELETE FROM CZ_XFR_RUN_RESULTS WHERE RUN_ID=inRUN_ID AND IMP_TABLE=v_table_name;
1070
1071 EXCEPTION
1072 WHEN NO_DATA_FOUND THEN NULL;
1073 END;
1074
1075 DECLARE
1076 CURSOR c_xfr_run_result IS
1077 SELECT DISPOSITION,REC_STATUS,COUNT(*)
1078 FROM CZ_IMP_item_property_value
1079 WHERE RUN_ID = inRUN_ID
1080 GROUP BY DISPOSITION,REC_STATUS;
1081
1082 ins_disposition CZ_XFR_RUN_RESULTS.disposition%TYPE;
1083 ins_rec_status CZ_XFR_RUN_RESULTS.rec_status%TYPE ;
1084 ins_rec_count CZ_XFR_RUN_RESULTS.records%TYPE ;
1085
1086 BEGIN
1087
1088 OPEN c_xfr_run_result;
1089 LOOP
1090 FETCH c_xfr_run_result INTO ins_disposition,ins_rec_status,ins_rec_count;
1091 EXIT WHEN c_xfr_run_result%NOTFOUND;
1092
1093 INSERT INTO CZ_XFR_RUN_RESULTS(RUN_ID,IMP_TABLE,DISPOSITION,REC_STATUS,RECORDS)
1094 VALUES(inRUN_ID,v_table_name,ins_disposition,ins_rec_status,ins_rec_count);
1095
1096 END LOOP;
1097 CLOSE c_xfr_run_result;
1098 COMMIT;
1099
1100 EXCEPTION
1101 WHEN OTHERS THEN
1102 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_PROPERTY_VALUE',11276,inRun_ID);
1103 END;
1104
1105 DECLARE
1106 nErrors PLS_INTEGER;
1107 CURSOR c_get_nErrors IS
1108 SELECT SUM(NVL(RECORDS,0)) FROM CZ_XFR_RUN_RESULTS
1109 WHERE REC_STATUS<>v_ok AND RUN_ID=inRUN_ID
1110 AND IMP_TABLE=v_table_name;
1111 BEGIN
1112 OPEN c_get_nErrors;
1113 FETCH c_get_nErrors INTO nErrors;
1114 CLOSE c_get_nErrors;
1115 UPDATE CZ_XFR_RUN_INFOS
1116 SET TOTAL_ERRORS=NVL(TOTAL_ERRORS,0)+NVL(nErrors,0),
1117 COMPLETED=v_completed
1118 WHERE RUN_ID=inRUN_ID;
1119 COMMIT;
1120 EXCEPTION
1121 WHEN OTHERS THEN
1122 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_PROPERTY_VALUE',11276,inRun_ID);
1123 END;
1124 EXCEPTION
1125 WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
1126 RAISE;
1127 WHEN OTHERS THEN
1128 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_PROPERTY_VALUE',11276,inRun_ID);
1129 END;
1130 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
1131
1132 PROCEDURE RPT_ITEM_TYPE ( inRUN_ID IN PLS_INTEGER ) AS
1133 x_error BOOLEAN:=FALSE;
1134 v_table_name VARCHAR2(30) := 'CZ_ITEM_TYPES';
1135 v_ok VARCHAR2(4) := 'OK';
1136 v_completed VARCHAR2(1) := '1';
1137 BEGIN
1138 BEGIN
1139 DELETE FROM CZ_XFR_RUN_RESULTS WHERE RUN_ID=inRUN_ID AND IMP_TABLE=v_table_name;
1140
1141 EXCEPTION
1142 WHEN NO_DATA_FOUND THEN NULL;
1143 END;
1144
1145 DECLARE
1146 CURSOR c_xfr_run_result IS
1147 SELECT DISPOSITION,REC_STATUS,COUNT(*)
1148 FROM CZ_IMP_item_type
1149 WHERE RUN_ID = inRUN_ID
1150 GROUP BY DISPOSITION,REC_STATUS;
1151
1152 ins_disposition CZ_XFR_RUN_RESULTS.disposition%TYPE;
1153 ins_rec_status CZ_XFR_RUN_RESULTS.rec_status%TYPE ;
1154 ins_rec_count CZ_XFR_RUN_RESULTS.records%TYPE ;
1155
1156 BEGIN
1157
1158 OPEN c_xfr_run_result;
1159 LOOP
1160 FETCH c_xfr_run_result INTO ins_disposition,ins_rec_status,ins_rec_count;
1161 EXIT WHEN c_xfr_run_result%NOTFOUND;
1162
1163 INSERT INTO CZ_XFR_RUN_RESULTS(RUN_ID,IMP_TABLE,DISPOSITION,REC_STATUS,RECORDS)
1164 VALUES(inRUN_ID,v_table_name,ins_disposition,ins_rec_status,ins_rec_count);
1165
1166 END LOOP;
1167 CLOSE c_xfr_run_result;
1168 COMMIT;
1169
1170 EXCEPTION
1171 WHEN OTHERS THEN
1172 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_TYPE',11276,inRun_ID);
1173 END;
1174
1175 DECLARE
1176 nErrors PLS_INTEGER;
1177 CURSOR c_get_nErrors IS
1178 SELECT SUM(NVL(RECORDS,0)) FROM CZ_XFR_RUN_RESULTS
1179 WHERE REC_STATUS<>v_ok AND RUN_ID=inRUN_ID
1180 AND IMP_TABLE=v_table_name;
1181 BEGIN
1182 OPEN c_get_nErrors;
1183 FETCH c_get_nErrors INTO nErrors;
1184 CLOSE c_get_nErrors;
1185 UPDATE CZ_XFR_RUN_INFOS
1186 SET TOTAL_ERRORS=NVL(TOTAL_ERRORS,0)+NVL(nErrors,0),
1187 COMPLETED=v_completed
1188 WHERE RUN_ID=inRUN_ID;
1189 COMMIT;
1190 EXCEPTION
1191 WHEN OTHERS THEN
1192 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_TYPE',11276,inRun_ID);
1193 END;
1194 EXCEPTION
1195 WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
1196 RAISE;
1197 WHEN OTHERS THEN
1198 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_TYPE',11276,inRun_ID);
1199 END;
1200
1201 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
1202
1203 PROCEDURE RPT_ITEM_TYPE_PROPERTY ( inRUN_ID IN PLS_INTEGER ) AS
1204 x_error BOOLEAN:=FALSE;
1205 v_table_name VARCHAR2(30) := 'CZ_ITEM_TYPE_PROPERTIES';
1206 v_ok VARCHAR2(4) := 'OK';
1207 v_completed VARCHAR2(1) := '1';
1208 BEGIN
1209 BEGIN
1210 DELETE FROM CZ_XFR_RUN_RESULTS WHERE RUN_ID=inRUN_ID AND IMP_TABLE=v_table_name;
1211
1212 EXCEPTION
1213 WHEN NO_DATA_FOUND THEN NULL;
1214 END;
1215
1216 DECLARE
1217 CURSOR c_xfr_run_result IS
1218 SELECT DISPOSITION,REC_STATUS,COUNT(*)
1219 FROM CZ_IMP_item_type_property
1220 WHERE RUN_ID = inRUN_ID
1221 GROUP BY DISPOSITION,REC_STATUS;
1222
1223 ins_disposition CZ_XFR_RUN_RESULTS.disposition%TYPE;
1224 ins_rec_status CZ_XFR_RUN_RESULTS.rec_status%TYPE ;
1225 ins_rec_count CZ_XFR_RUN_RESULTS.records%TYPE ;
1226
1227 BEGIN
1228
1229 OPEN c_xfr_run_result;
1230 LOOP
1231 FETCH c_xfr_run_result INTO ins_disposition,ins_rec_status,ins_rec_count;
1232 EXIT WHEN c_xfr_run_result%NOTFOUND;
1233
1234 INSERT INTO CZ_XFR_RUN_RESULTS(RUN_ID,IMP_TABLE,DISPOSITION,REC_STATUS,RECORDS)
1235 VALUES(inRUN_ID,v_table_name,ins_disposition,ins_rec_status,ins_rec_count);
1236
1237 END LOOP;
1238 CLOSE c_xfr_run_result;
1239 COMMIT;
1240
1241 EXCEPTION
1242 WHEN OTHERS THEN
1243 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_TYPE_PROPERTY',11276,inRun_ID);
1244 END;
1245
1246 DECLARE
1247 nErrors PLS_INTEGER;
1248 CURSOR c_get_nErrors IS
1249 SELECT SUM(NVL(RECORDS,0)) FROM CZ_XFR_RUN_RESULTS
1250 WHERE REC_STATUS<>v_ok AND RUN_ID=inRUN_ID
1251 AND IMP_TABLE=v_table_name;
1252 BEGIN
1253 OPEN c_get_nErrors;
1254 FETCH c_get_nErrors INTO nErrors;
1255 CLOSE c_get_nErrors;
1256 UPDATE CZ_XFR_RUN_INFOS
1257 SET TOTAL_ERRORS=NVL(TOTAL_ERRORS,0)+NVL(nErrors,0),
1258 COMPLETED=v_completed
1259 WHERE RUN_ID=inRUN_ID;
1260 COMMIT;
1261 EXCEPTION
1262 WHEN OTHERS THEN
1263 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_TYPE_PROPERTY',11276,inRun_ID);
1264 END;
1265 EXCEPTION
1266 WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
1267 RAISE;
1268 WHEN OTHERS THEN
1269 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_ITEM_TYPE_PROPERTY',11276,inRun_ID);
1270 END;
1271
1272 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
1273 PROCEDURE RPT_PROPERTY ( inRUN_ID IN PLS_INTEGER ) AS
1274 x_error BOOLEAN:=FALSE;
1275 v_table_name VARCHAR2(30) := 'CZ_PROPERTIES';
1276 v_ok VARCHAR2(4) := 'OK';
1277 v_completed VARCHAR2(1) := '1';
1278 BEGIN
1279 BEGIN
1280 DELETE FROM CZ_XFR_RUN_RESULTS WHERE RUN_ID=inRUN_ID AND IMP_TABLE=v_table_name;
1281
1282 EXCEPTION
1283 WHEN NO_DATA_FOUND THEN NULL;
1284 END;
1285
1286 DECLARE
1287 CURSOR c_xfr_run_result IS
1288 SELECT DISPOSITION,REC_STATUS,COUNT(*)
1289 FROM CZ_IMP_property
1290 WHERE RUN_ID = inRUN_ID
1291 GROUP BY DISPOSITION,REC_STATUS;
1292
1293 ins_disposition CZ_XFR_RUN_RESULTS.disposition%TYPE;
1294 ins_rec_status CZ_XFR_RUN_RESULTS.rec_status%TYPE ;
1295 ins_rec_count CZ_XFR_RUN_RESULTS.records%TYPE ;
1296
1297 BEGIN
1298
1299 OPEN c_xfr_run_result;
1300 LOOP
1301 FETCH c_xfr_run_result INTO ins_disposition,ins_rec_status,ins_rec_count;
1302 EXIT WHEN c_xfr_run_result%NOTFOUND;
1303
1304 INSERT INTO CZ_XFR_RUN_RESULTS(RUN_ID,IMP_TABLE,DISPOSITION,REC_STATUS,RECORDS)
1305 VALUES(inRUN_ID,v_table_name,ins_disposition,ins_rec_status,ins_rec_count);
1306
1307 END LOOP;
1308 CLOSE c_xfr_run_result;
1309 COMMIT;
1310
1311 EXCEPTION
1312 WHEN OTHERS THEN
1313 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_PROPERTY',11276,inRun_ID);
1314 END;
1315
1316 DECLARE
1317 nErrors PLS_INTEGER;
1318 CURSOR c_get_nErrors IS
1319 SELECT SUM(NVL(RECORDS,0)) FROM CZ_XFR_RUN_RESULTS
1320 WHERE REC_STATUS<>v_ok AND RUN_ID=inRUN_ID
1321 AND IMP_TABLE=v_table_name;
1322 BEGIN
1323 OPEN c_get_nErrors;
1324 FETCH c_get_nErrors INTO nErrors;
1325 CLOSE c_get_nErrors;
1326 UPDATE CZ_XFR_RUN_INFOS
1327 SET TOTAL_ERRORS=NVL(TOTAL_ERRORS,0)+NVL(nErrors,0),
1328 COMPLETED=v_completed
1329 WHERE RUN_ID=inRUN_ID;
1330 COMMIT;
1331 EXCEPTION
1332 WHEN OTHERS THEN
1333 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_PROPERTY',11276,inRun_ID);
1334 END;
1335 EXCEPTION
1336 WHEN CZ_ADMIN.IMP_MAXERR_REACHED THEN
1337 RAISE;
1338 WHEN OTHERS THEN
1339 x_error:=CZ_UTILS.LOG_REPORT(SQLERRM,1,'CZ_IM_MAIN.RPT_PROPERTY',11276,inRun_ID);
1340 END;
1341
1342 /*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<0>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>*/
1343
1344 END CZ_IMP_IM_MAIN;
[Home] [Help]