497:
498:
499:
500: /*-----------------------------------------------------------------------------*/
501: /* procedure name: csd_ro_service_codes_mig6 */
502: /* description : Migration script for 12.0 Diagnostic Code specific changes. */
503: /*-----------------------------------------------------------------------------*/
504:
505: PROCEDURE csd_ro_service_codes_mig6
501: /* procedure name: csd_ro_service_codes_mig6 */
502: /* description : Migration script for 12.0 Diagnostic Code specific changes. */
503: /*-----------------------------------------------------------------------------*/
504:
505: PROCEDURE csd_ro_service_codes_mig6
506:
507: IS
508:
509: -- Definitions --
507: IS
508:
509: -- Definitions --
510: TYPE REP_LINE_ID_ARRAY_TYPE IS VARRAY (1000)
511: OF CSD.CSD_RO_SERVICE_CODES.REPAIR_LINE_ID%TYPE;
512: TYPE INV_ITEM_ID_ARRAY_TYPE IS VARRAY(1000)
513: OF CSD.CSD_REPAIRS.INVENTORY_ITEM_ID%TYPE;
514:
515: -- Variables --
530: IS
531: SELECT DISTINCT
532: sc.repair_line_id, rep.inventory_item_id
533: FROM
534: CSD_RO_SERVICE_CODES sc,
535: CSD_REPAIRS rep
536: WHERE sc.service_item_id IS NULL
537: AND rep.repair_line_id = sc.repair_line_id;
538:
548: FOR i IN 1..rep_line_id_arr.COUNT
549: LOOP
550:
551: UPDATE
552: CSD_RO_SERVICE_CODES
553: SET
554: service_item_id = inv_item_id_arr(i)
555: WHERE repair_line_id = rep_line_id_arr(i);
556: -- AND service_item_id IS NULL;
566: THEN
567: CLOSE get_rosc_repair_item_cursor;
568: END IF;
569: COMMIT;
570: END csd_ro_service_codes_mig6;
571:
572: END CSD_Migrate_From_115X_PKG6;