419: END csd_flex_flow_mig6;
420:
421:
422: /*-----------------------------------------------------------------------------*/
423: /* procedure name: csd_ro_diagnostic_codes_mig6 */
424: /* description : Migration script for 12.0 Diagnostic Code specific changes. */
425: /*-----------------------------------------------------------------------------*/
426:
427: PROCEDURE csd_ro_diagnostic_codes_mig6
423: /* procedure name: csd_ro_diagnostic_codes_mig6 */
424: /* description : Migration script for 12.0 Diagnostic Code specific changes. */
425: /*-----------------------------------------------------------------------------*/
426:
427: PROCEDURE csd_ro_diagnostic_codes_mig6
428:
429: IS
430:
431: -- Definitions --
429: IS
430:
431: -- Definitions --
432: TYPE REP_LINE_ID_ARRAY_TYPE IS VARRAY (1000)
433: OF CSD.CSD_RO_DIAGNOSTIC_CODES.REPAIR_LINE_ID%TYPE;
434: TYPE INV_ITEM_ID_ARRAY_TYPE IS VARRAY(1000)
435: OF CSD.CSD_REPAIRS.inventory_item_id%TYPE;
436:
437: -- Variables --
452: IS
453: SELECT DISTINCT
454: dc.repair_line_id, rep.inventory_item_id
455: FROM
456: CSD_RO_DIAGNOSTIC_CODES dc,
457: CSD_REPAIRS rep
458: WHERE dc.diagnostic_item_id IS NULL
459: AND rep.repair_line_id = dc.repair_line_id;
460:
472: LOOP
473:
474:
475: UPDATE
476: CSD_RO_DIAGNOSTIC_CODES
477: SET
478: diagnostic_item_id = inv_item_id_arr(i)
479: WHERE repair_line_id = rep_line_id_arr(i);
480:
491: END IF;
492:
493: COMMIT;
494:
495: END csd_ro_diagnostic_codes_mig6;
496:
497:
498:
499: