286: NOCHANGE IN OUT NOCOPY PLS_INTEGER,
287: inXFR_GROUP IN VARCHAR2
288: ) IS
289:
290: TYPE tFskItemMaster21 IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_1%TYPE INDEX BY BINARY_INTEGER;
291: TYPE tFskItemMaster2Ext IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_EXT%TYPE INDEX BY BINARY_INTEGER;
292: TYPE tFskProperty11 IS TABLE OF cz_imp_item_property_value.fsk_property_1_1%TYPE INDEX BY BINARY_INTEGER;
293: TYPE tFskProperty1Ext IS TABLE OF cz_imp_item_property_value.fsk_property_1_EXT%TYPE INDEX BY BINARY_INTEGER;
294: TYPE tOrigSysRef IS TABLE OF cz_imp_item_property_value.orig_sys_ref%TYPE INDEX BY BINARY_INTEGER;
287: inXFR_GROUP IN VARCHAR2
288: ) IS
289:
290: TYPE tFskItemMaster21 IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_1%TYPE INDEX BY BINARY_INTEGER;
291: TYPE tFskItemMaster2Ext IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_EXT%TYPE INDEX BY BINARY_INTEGER;
292: TYPE tFskProperty11 IS TABLE OF cz_imp_item_property_value.fsk_property_1_1%TYPE INDEX BY BINARY_INTEGER;
293: TYPE tFskProperty1Ext IS TABLE OF cz_imp_item_property_value.fsk_property_1_EXT%TYPE INDEX BY BINARY_INTEGER;
294: TYPE tOrigSysRef IS TABLE OF cz_imp_item_property_value.orig_sys_ref%TYPE INDEX BY BINARY_INTEGER;
295: TYPE tItemId IS TABLE OF cz_imp_item_property_value.item_id%TYPE INDEX BY BINARY_INTEGER;
288: ) IS
289:
290: TYPE tFskItemMaster21 IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_1%TYPE INDEX BY BINARY_INTEGER;
291: TYPE tFskItemMaster2Ext IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_EXT%TYPE INDEX BY BINARY_INTEGER;
292: TYPE tFskProperty11 IS TABLE OF cz_imp_item_property_value.fsk_property_1_1%TYPE INDEX BY BINARY_INTEGER;
293: TYPE tFskProperty1Ext IS TABLE OF cz_imp_item_property_value.fsk_property_1_EXT%TYPE INDEX BY BINARY_INTEGER;
294: TYPE tOrigSysRef IS TABLE OF cz_imp_item_property_value.orig_sys_ref%TYPE INDEX BY BINARY_INTEGER;
295: TYPE tItemId IS TABLE OF cz_imp_item_property_value.item_id%TYPE INDEX BY BINARY_INTEGER;
296: TYPE tPropertyId IS TABLE OF cz_imp_item_property_value.property_id%TYPE INDEX BY BINARY_INTEGER;
289:
290: TYPE tFskItemMaster21 IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_1%TYPE INDEX BY BINARY_INTEGER;
291: TYPE tFskItemMaster2Ext IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_EXT%TYPE INDEX BY BINARY_INTEGER;
292: TYPE tFskProperty11 IS TABLE OF cz_imp_item_property_value.fsk_property_1_1%TYPE INDEX BY BINARY_INTEGER;
293: TYPE tFskProperty1Ext IS TABLE OF cz_imp_item_property_value.fsk_property_1_EXT%TYPE INDEX BY BINARY_INTEGER;
294: TYPE tOrigSysRef IS TABLE OF cz_imp_item_property_value.orig_sys_ref%TYPE INDEX BY BINARY_INTEGER;
295: TYPE tItemId IS TABLE OF cz_imp_item_property_value.item_id%TYPE INDEX BY BINARY_INTEGER;
296: TYPE tPropertyId IS TABLE OF cz_imp_item_property_value.property_id%TYPE INDEX BY BINARY_INTEGER;
297:
290: TYPE tFskItemMaster21 IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_1%TYPE INDEX BY BINARY_INTEGER;
291: TYPE tFskItemMaster2Ext IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_EXT%TYPE INDEX BY BINARY_INTEGER;
292: TYPE tFskProperty11 IS TABLE OF cz_imp_item_property_value.fsk_property_1_1%TYPE INDEX BY BINARY_INTEGER;
293: TYPE tFskProperty1Ext IS TABLE OF cz_imp_item_property_value.fsk_property_1_EXT%TYPE INDEX BY BINARY_INTEGER;
294: TYPE tOrigSysRef IS TABLE OF cz_imp_item_property_value.orig_sys_ref%TYPE INDEX BY BINARY_INTEGER;
295: TYPE tItemId IS TABLE OF cz_imp_item_property_value.item_id%TYPE INDEX BY BINARY_INTEGER;
296: TYPE tPropertyId IS TABLE OF cz_imp_item_property_value.property_id%TYPE INDEX BY BINARY_INTEGER;
297:
298: iFskItemMaster21 tFskItemMaster21;
291: TYPE tFskItemMaster2Ext IS TABLE OF cz_imp_item_property_value.fsk_itemmaster_2_EXT%TYPE INDEX BY BINARY_INTEGER;
292: TYPE tFskProperty11 IS TABLE OF cz_imp_item_property_value.fsk_property_1_1%TYPE INDEX BY BINARY_INTEGER;
293: TYPE tFskProperty1Ext IS TABLE OF cz_imp_item_property_value.fsk_property_1_EXT%TYPE INDEX BY BINARY_INTEGER;
294: TYPE tOrigSysRef IS TABLE OF cz_imp_item_property_value.orig_sys_ref%TYPE INDEX BY BINARY_INTEGER;
295: TYPE tItemId IS TABLE OF cz_imp_item_property_value.item_id%TYPE INDEX BY BINARY_INTEGER;
296: TYPE tPropertyId IS TABLE OF cz_imp_item_property_value.property_id%TYPE INDEX BY BINARY_INTEGER;
297:
298: iFskItemMaster21 tFskItemMaster21;
299: iFskItemMaster2Ext tFskItemMaster2Ext;
292: TYPE tFskProperty11 IS TABLE OF cz_imp_item_property_value.fsk_property_1_1%TYPE INDEX BY BINARY_INTEGER;
293: TYPE tFskProperty1Ext IS TABLE OF cz_imp_item_property_value.fsk_property_1_EXT%TYPE INDEX BY BINARY_INTEGER;
294: TYPE tOrigSysRef IS TABLE OF cz_imp_item_property_value.orig_sys_ref%TYPE INDEX BY BINARY_INTEGER;
295: TYPE tItemId IS TABLE OF cz_imp_item_property_value.item_id%TYPE INDEX BY BINARY_INTEGER;
296: TYPE tPropertyId IS TABLE OF cz_imp_item_property_value.property_id%TYPE INDEX BY BINARY_INTEGER;
297:
298: iFskItemMaster21 tFskItemMaster21;
299: iFskItemMaster2Ext tFskItemMaster2Ext;
300: iFskProperty11 tFskProperty11;
311: -- passing records
312: CURSOR C1 (x_usersurr_itemmaster PLS_INTEGER, x_usesurr_property PLS_INTEGER) IS
313: SELECT a.fsk_itemmaster_2_1,a.fsk_itemmaster_2_ext, a.fsk_property_1_1, a.fsk_property_1_ext,
314: b.item_id, c.property_id, a.orig_sys_ref
315: FROM cz_imp_item_property_value a, cz_item_masters b, cz_properties c
316: WHERE b.orig_sys_ref=DECODE(x_usesurr_itemmaster,1,a.fsk_itemmaster_2_ext,a.fsk_itemmaster_2_1)
317: AND c.orig_sys_ref=DECODE(x_usesurr_property,1,a.fsk_property_1_ext,a.fsk_property_1_1)
318: AND b.deleted_flag = '0'
319: AND c.deleted_flag = '0'
324: -- invalid fsk_property
325: CURSOR C2 (x_usersurr_itemmaster PLS_INTEGER, x_usesurr_property PLS_INTEGER) IS
326: SELECT a.fsk_itemmaster_2_1,a.fsk_itemmaster_2_ext, a.fsk_property_1_1, a.fsk_property_1_ext,
327: a.orig_sys_ref, b.item_id
328: FROM cz_imp_item_property_value a, cz_item_masters b
329: WHERE b.orig_sys_ref=DECODE(x_usesurr_itemmaster,1,a.fsk_itemmaster_2_ext,a.fsk_itemmaster_2_1)
330: AND b.deleted_flag = '0'
331: AND NOT EXISTS (SELECT NULL FROM cz_properties
332: WHERE orig_sys_ref = DECODE(x_usesurr_property,1,a.fsk_property_1_ext,a.fsk_property_1_1)
337: -- invalid fsk_itemmaster
338: CURSOR C3 (x_usersurr_itemmaster PLS_INTEGER, x_usesurr_property PLS_INTEGER) IS
339: SELECT a.fsk_itemmaster_2_1,a.fsk_itemmaster_2_ext, a.fsk_property_1_1, a.fsk_property_1_ext,
340: a.orig_sys_ref, b.property_id
341: FROM cz_imp_item_property_value a, cz_properties b
342: WHERE b.orig_sys_ref=DECODE(x_usesurr_property,1,a.fsk_property_1_ext,a.fsk_property_1_1)
343: AND b.deleted_flag = '0'
344: AND NOT EXISTS (SELECT NULL FROM cz_item_masters
345: WHERE orig_sys_ref = DECODE(x_usesurr_itemmaster,1,a.fsk_itemmaster_2_ext,a.fsk_itemmaster_2_1)
349:
350: -- invalid fsk_property and fsk_itemmaster
351: CURSOR C4 (x_usersurr_itemmaster PLS_INTEGER, x_usesurr_property PLS_INTEGER) IS
352: SELECT a.fsk_itemmaster_2_1,a.fsk_itemmaster_2_ext, a.fsk_property_1_1, a.fsk_property_1_ext, a.orig_sys_ref
353: FROM cz_imp_item_property_value a
354: WHERE NOT EXISTS (SELECT NULL FROM cz_item_masters
355: WHERE orig_sys_ref = DECODE(x_usesurr_itemmaster,1,a.fsk_itemmaster_2_ext,a.fsk_itemmaster_2_1)
356: AND deleted_flag = '0')
357: AND NOT EXISTS (SELECT NULL FROM cz_properties
361: AND a.run_id=inRUN_ID;
362:
363: -- invalid fsk_localizedtext_3_1
364: CURSOR C5(x_usesurr_itempropertyvalue PLS_INTEGER) IS
365: SELECT orig_sys_ref FROM cz_imp_item_property_value a
366: WHERE run_id=inRUN_ID AND EXISTS(SELECT NULL FROM cz_imp_property
367: WHERE run_id=inRUN_ID AND property_id=a.property_id AND
368: data_type=8 AND deleted_flag='0')
369: AND NOT EXISTS (SELECT NULL FROM cz_imp_localized_texts
393:
394: IF iOrigSysRef.COUNT > 0 THEN
395:
396: FORALL i IN iOrigSysRef.FIRST..iOrigSysRef.LAST
397: UPDATE cz_imp_item_property_value a
398: SET item_id=iItemId(i),
399: property_id=iPropertyId(i),
400: disposition='M',
401: rec_status='PASS'
409:
410: --------------------- New code ------------------------------------
411:
412: FORALL i IN iOrigSysRef.FIRST..iOrigSysRef.LAST
413: UPDATE cz_imp_item_property_value a
414: SET property_num_value=(SELECT DISTINCT intl_text_id FROM cz_imp_localized_texts
415: WHERE run_id=inRUN_ID AND orig_sys_ref = a.FSK_LOCALIZEDTEXT_3_1
416: AND deleted_flag='0'),
417: disposition='M',
427:
428: COMMIT;
429:
430: FORALL i IN iOrigSysRef.FIRST..iOrigSysRef.LAST/*VIGRAMAK EDIT */
431: UPDATE cz_imp_item_property_value a
432: SET disposition='N',
433: rec_status='PASS' /*VIGRAMAK EDIT*/
434: WHERE run_id=inRUN_ID
435: AND disposition = 'M'
445:
446: --------------------- End of new code ------------------------------
447:
448: FORALL i IN iOrigSysRef.FIRST..iOrigSysRef.LAST
449: UPDATE cz_imp_item_property_value a
450: SET item_id=iItemId(i),
451: property_id=iPropertyId(i),
452: disposition='I',
453: rec_status='PASS'
472:
473: IF iOrigSysRef.COUNT > 0 THEN
474:
475: FORALL i IN iOrigSysRef.FIRST..iOrigSysRef.LAST
476: UPDATE cz_imp_item_property_value
477: SET item_id=iItemId(i),
478: disposition='R',
479: rec_status='I0P1'
480: WHERE run_id=inRUN_ID
495: EXIT WHEN C3%NOTFOUND AND iOrigSysRef.COUNT = 0;
496: IF iOrigSysRef.COUNT > 0 THEN
497:
498: FORALL i IN iOrigSysRef.FIRST..iOrigSysRef.LAST
499: UPDATE cz_imp_item_property_value
500: SET property_id=iPropertyId(i),
501: disposition='R',
502: rec_status='I1P0'
503: WHERE run_id=inRUN_ID
518: EXIT WHEN C4%NOTFOUND AND iOrigSysRef.COUNT = 0;
519: IF iOrigSysRef.COUNT > 0 THEN
520:
521: FORALL i IN iOrigSysRef.FIRST..iOrigSysRef.LAST
522: UPDATE cz_imp_item_property_value
523: SET disposition='R',
524: rec_status='I1P1'
525: WHERE run_id=inRUN_ID
526: AND orig_sys_ref=iOrigSysRef(i);
539: EXIT WHEN C5%NOTFOUND AND iOrigSysRef.COUNT = 0;
540: IF iOrigSysRef.COUNT > 0 THEN
541:
542: FORALL i IN iOrigSysRef.FIRST..iOrigSysRef.LAST
543: UPDATE cz_imp_item_property_value
544: SET disposition='R',
545: rec_status='I1P2'
546: WHERE run_id=inRUN_ID
547: AND orig_sys_ref=iOrigSysRef(i);
558: UPDATE cz_item_property_values iv
559: SET deleted_flag = '1'
560: WHERE deleted_flag = '0'
561: AND NOT EXISTS
562: (SELECT NULL FROM cz_imp_item_property_value
563: WHERE run_id = inRUN_ID AND deleted_flag = '0'
564: AND item_id = iv.item_id
565: AND property_id = iv.property_id)
566: AND EXISTS