andy/mip
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Correction to postcode deletion.

Browse Source 
Replace '"' in meter codes with 'INCH'

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3840 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2008-03-04 16:41:04 +00:00
parent de1d9d408e
commit ab0dfe04ba
1 changed files with 116 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

207
Modules/mip_bulk_load.pck
View File

@@ -89,8 +89,8 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
(code (code
,description) ,description)
VALUES VALUES
('UNKNOWN' ('OTHER'
,'Unknown Meter Type'); ,'OTHER Meter Type');
EXCEPTION EXCEPTION
WHEN dup_val_on_index THEN WHEN dup_val_on_index THEN
NULL; NULL;
@@ -124,7 +124,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
VALUES VALUES
('OTHER' ('OTHER'
,'OTHER' ,'OTHER'
,'UNKNOWN' ,'OTHER'
,g_other_manufacturer_id ,g_other_manufacturer_id
,SYSDATE); ,SYSDATE);
EXCEPTION EXCEPTION
@@ -138,7 +138,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,description) ,description)
VALUES VALUES
('UNKNOWN' ('UNKNOWN'
,'Unknown Housing Type'); ,'Other Housing Type');
EXCEPTION EXCEPTION
WHEN dup_val_on_index THEN WHEN dup_val_on_index THEN
NULL; NULL;
@@ -150,7 +150,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,description) ,description)
VALUES VALUES
('UNKNOWN' ('UNKNOWN'
,'Unknown Regulator Type'); ,'Other Regulator Type');
EXCEPTION EXCEPTION
WHEN dup_val_on_index THEN WHEN dup_val_on_index THEN
NULL; NULL;
@@ -162,7 +162,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,description) ,description)
VALUES VALUES
('UNKNOWN' ('UNKNOWN'
,'Unknown Filter Type'); ,'Other Filter Type');
EXCEPTION EXCEPTION
WHEN dup_val_on_index THEN WHEN dup_val_on_index THEN
NULL; NULL;
@@ -173,8 +173,8 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
(code (code
,description) ,description)
VALUES VALUES
('UNKNOWN' ('OTHER'
,'Unknown Relief Valve Type'); ,'Other Relief Valve Type');
EXCEPTION EXCEPTION
WHEN dup_val_on_index THEN WHEN dup_val_on_index THEN
NULL; NULL;
@@ -185,8 +185,8 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
(code (code
,rvty_code) ,rvty_code)
VALUES VALUES
('UNKNOWN' ('OTHER'
,'UNKNOWN'); ,'OTHER');
EXCEPTION EXCEPTION
WHEN dup_val_on_index THEN WHEN dup_val_on_index THEN
NULL; NULL;
@@ -197,8 +197,8 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
(code (code
,description) ,description)
VALUES VALUES
('UNKNOWN' ('OTHER'
,'Unknown Slamshut Type '); ,'Other Slamshut Type ');
EXCEPTION EXCEPTION
WHEN dup_val_on_index THEN WHEN dup_val_on_index THEN
NULL; NULL;
@@ -209,8 +209,8 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
(code (code
,slty_code) ,slty_code)
VALUES VALUES
('UNKNOWN' ('OTHER'
,'UNKNOWN'); ,'OTHER');
EXCEPTION EXCEPTION
WHEN dup_val_on_index THEN WHEN dup_val_on_index THEN
NULL; NULL;
@@ -221,8 +221,8 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
(code (code
,description) ,description)
VALUES VALUES
('UNKNOWN' ('OTHER'
,'Unknown Service Pressure Type '); ,'Other Service Pressure Type ');
EXCEPTION EXCEPTION
WHEN dup_val_on_index THEN WHEN dup_val_on_index THEN
NULL; NULL;
@@ -233,8 +233,8 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
(code (code
,description) ,description)
VALUES VALUES
('UNKNOWN' ('OTHER'
,'Unknown Drawing '); ,'Other Drawing ');
EXCEPTION EXCEPTION
WHEN dup_val_on_index THEN WHEN dup_val_on_index THEN
NULL; NULL;
@@ -264,7 +264,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM meter_types)); FROM meter_types));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': meter_types'); ,'FM099G999') || ': meter_types');
-- Meter Sizes -- Meter Sizes
INSERT INTO meter_size_codes INSERT INTO meter_size_codes
(code (code
@@ -286,7 +286,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM meter_size_codes)); FROM meter_size_codes));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': meter_size_codes'); ,'FM099G999') || ': meter_size_codes');
-- Manufacturers -- Manufacturers
INSERT INTO parties INSERT INTO parties
@@ -312,7 +312,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
WHERE prty_type = 'MANU')); WHERE prty_type = 'MANU'));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': manufacturers'); ,'FM099G999') || ': manufacturers');
-- Drawings -- Drawings
INSERT INTO drawings INSERT INTO drawings
@@ -327,10 +327,12 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM drawings)); FROM drawings));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': drawings'); ,'FM099G999') || ': drawings');
MERGE INTO meters metr MERGE INTO meters metr
USING (SELECT upper(TRIM(code)) AS code USING (SELECT upper(REPLACE(TRIM(code)
,'"'
,'inch')) AS code
,upper(TRIM(drwg_code)) AS drwg_code ,upper(TRIM(drwg_code)) AS drwg_code
,upper(TRIM(mety_code)) AS mety_code ,upper(TRIM(mety_code)) AS mety_code
,p.id AS prty_id ,p.id AS prty_id
@@ -415,7 +417,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.mesc_code) log errors reject LIMIT unlimited; ,e.mesc_code) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': meters'); ,'FM099G999') || ': meters');
END load_meters; END load_meters;
PROCEDURE load_modules IS PROCEDURE load_modules IS
@@ -451,7 +453,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM connection_types)); FROM connection_types));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': connection_types'); ,'FM099G999') || ': connection_types');
-- Drawings -- Drawings
INSERT INTO drawings INSERT INTO drawings
(code (code
@@ -466,7 +468,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM drawings)); FROM drawings));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': drawings'); ,'FM099G999') || ': drawings');
-- Manufacturers -- Manufacturers
INSERT INTO parties INSERT INTO parties
@@ -492,7 +494,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
WHERE prty_type = 'MANU')); WHERE prty_type = 'MANU'));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': manufacturers'); ,'FM099G999') || ': manufacturers');
-- Relief valves -- Relief valves
INSERT INTO relief_valves INSERT INTO relief_valves
@@ -501,7 +503,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,relief_valve_size ,relief_valve_size
,relief_valve_setting) ,relief_valve_setting)
(SELECT code (SELECT code
,'UNKNOWN' ,'OTHER'
,999 ,999
,999 ,999
FROM (SELECT DISTINCT upper(TRIM(reva_code)) AS code FROM (SELECT DISTINCT upper(TRIM(reva_code)) AS code
@@ -511,7 +513,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM relief_valves)); FROM relief_valves));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': relief_valves'); ,'FM099G999') || ': relief_valves');
-- Slamshut valves -- Slamshut valves
INSERT INTO slamshut_valves INSERT INTO slamshut_valves
(code (code
@@ -519,7 +521,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,slamshut_size ,slamshut_size
,slamshut_setting) ,slamshut_setting)
(SELECT code (SELECT code
,'UNKNOWN' ,'OTHER'
,999 ,999
,999 ,999
FROM (SELECT DISTINCT upper(TRIM(slva_code)) AS code FROM (SELECT DISTINCT upper(TRIM(slva_code)) AS code
@@ -529,7 +531,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM slamshut_valves)); FROM slamshut_valves));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': slamshut_valves'); ,'FM099G999') || ': slamshut_valves');
-- Service pressures -- Service pressures
INSERT INTO service_pressures INSERT INTO service_pressures
@@ -537,7 +539,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,svcpt_code ,svcpt_code
,description) ,description)
(SELECT code (SELECT code
,'UNKNOWN' ,'OTHER'
,code ,code
FROM (SELECT DISTINCT upper(TRIM(svcp_code)) AS code FROM (SELECT DISTINCT upper(TRIM(svcp_code)) AS code
FROM ext_modules) FROM ext_modules)
@@ -546,7 +548,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM service_pressures)); FROM service_pressures));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': service_pressures'); ,'FM099G999') || ': service_pressures');
-- Bases -- Bases
INSERT INTO bases INSERT INTO bases
@@ -564,7 +566,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,dim_i ,dim_i
,depth) ,depth)
(SELECT code (SELECT code
,'UNKNOWN' ,'OTHER'
,code ,code
,999 ,999
,999 ,999
@@ -583,7 +585,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM bases)); FROM bases));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': bases'); ,'FM099G999') || ': bases');
-- Housings -- Housings
INSERT INTO housings INSERT INTO housings
@@ -597,8 +599,8 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,dim_h ,dim_h
,weight) ,weight)
(SELECT code (SELECT code
,'UNKNOWN' ,'OTHER'
,'UNKNOWN' ,'OTHER'
,g_other_manufacturer_id ,g_other_manufacturer_id
,code ,code
,999 ,999
@@ -612,7 +614,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM housings)); FROM housings));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': housings'); ,'FM099G999') || ': housings');
-- Regulators -- Regulators
INSERT INTO regulators INSERT INTO regulators
@@ -622,7 +624,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,regulator_size ,regulator_size
,lock_up) ,lock_up)
(SELECT code (SELECT code
,'UNKNOWN' ,'OTHER'
,code ,code
,999 ,999
,999 ,999
@@ -633,7 +635,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM regulators)); FROM regulators));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': regulators'); ,'FM099G999') || ': regulators');
-- Filters -- Filters
INSERT INTO filters INSERT INTO filters
@@ -641,7 +643,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,fity_code ,fity_code
,filter_size) ,filter_size)
(SELECT code (SELECT code
,'UNKNOWN' ,'OTHER'
,999 ,999
FROM (SELECT DISTINCT upper(TRIM(fltr_code)) AS code FROM (SELECT DISTINCT upper(TRIM(fltr_code)) AS code
FROM ext_modules) FROM ext_modules)
@@ -650,7 +652,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM filters)); FROM filters));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': filters'); ,'FM099G999') || ': filters');
-- Connection orientations -- Connection orientations
INSERT INTO connection_orientations INSERT INTO connection_orientations
@@ -669,7 +671,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM connection_orientations)); FROM connection_orientations));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': connection_orientations'); ,'FM099G999') || ': connection_orientations');
MERGE INTO modules modu MERGE INTO modules modu
USING (SELECT upper(TRIM(code)) AS code USING (SELECT upper(TRIM(code)) AS code
@@ -826,7 +828,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.qmax) log errors reject LIMIT unlimited; ,e.qmax) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': modules'); ,'FM099G999') || ': modules');
END load_modules; END load_modules;
@@ -973,7 +975,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
WHERE code NOT IN (SELECT code WHERE code NOT IN (SELECT code
FROM drawings)); FROM drawings));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': drawings'); ,'FM099G999') || ': drawings');
MERGE INTO bases bas MERGE INTO bases bas
USING (SELECT upper(TRIM(field_1)) AS field_1 USING (SELECT upper(TRIM(field_1)) AS field_1
,upper(TRIM(field_2)) AS field_2 ,upper(TRIM(field_2)) AS field_2
@@ -1037,7 +1039,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.field_13) log errors reject LIMIT unlimited; ,e.field_13) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': bases'); ,'FM099G999') || ': bases');
END load_bases; END load_bases;
PROCEDURE load_housings IS PROCEDURE load_housings IS
@@ -1073,7 +1075,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM parties FROM parties
WHERE prty_type = 'MANU')); WHERE prty_type = 'MANU'));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': manufacturers'); ,'FM099G999') || ': manufacturers');
-- Drawings -- Drawings
INSERT INTO drawings INSERT INTO drawings
@@ -1087,7 +1089,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
WHERE code NOT IN (SELECT code WHERE code NOT IN (SELECT code
FROM drawings)); FROM drawings));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': drawings'); ,'FM099G999') || ': drawings');
-- Housing Types -- Housing Types
INSERT INTO housing_types INSERT INTO housing_types
@@ -1101,7 +1103,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
WHERE code NOT IN (SELECT code WHERE code NOT IN (SELECT code
FROM housing_types)); FROM housing_types));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': housing_types'); ,'FM099G999') || ': housing_types');
MERGE INTO housings hou MERGE INTO housings hou
USING (SELECT upper(TRIM(field_1)) AS field_1 USING (SELECT upper(TRIM(field_1)) AS field_1
@@ -1153,7 +1155,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.field_9) log errors reject LIMIT unlimited; ,e.field_9) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': housings'); ,'FM099G999') || ': housings');
END load_housings; END load_housings;
@@ -1224,7 +1226,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.adit_code) log errors reject LIMIT unlimited; ,e.adit_code) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': additional_items'); ,'FM099G999') || ': additional_items');
-- --
-- Base costs -- Base costs
-- --
@@ -1277,7 +1279,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.bas_code) log errors reject LIMIT unlimited; ,e.bas_code) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': bases'); ,'FM099G999') || ': bases');
-- --
-- Housing costs -- Housing costs
-- --
@@ -1330,7 +1332,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.hou_code) log errors reject LIMIT unlimited; ,e.hou_code) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': housings'); ,'FM099G999') || ': housings');
-- --
-- Module costs -- Module costs
-- --
@@ -1383,7 +1385,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.modu_code) log errors reject LIMIT unlimited; ,e.modu_code) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': modules'); ,'FM099G999') || ': modules');
-- --
-- Labour costs -- Labour costs
-- --
@@ -1467,7 +1469,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.mety_code) log errors reject LIMIT unlimited; ,e.mety_code) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': ' || l_enty.code || ':NETW0' || ,'FM099G999') || ': ' || l_enty.code || ':NETW0' ||
l_network || ': labour'); l_network || ': labour');
END LOOP; END LOOP;
@@ -1517,7 +1519,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,field_6) log errors reject LIMIT unlimited; ,field_6) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': caveat_texts'); ,'FM099G999') || ': caveat_texts');
END load_caveats; END load_caveats;
PROCEDURE load_postcodes IS PROCEDURE load_postcodes IS
@@ -1543,37 +1545,41 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
FROM regions)); FROM regions));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': regions'); ,'FM099G999') || ': regions');
DELETE FROM postcodes DELETE FROM postcodes pd
WHERE ROWID NOT IN (SELECT p.ROWID WHERE (outcode, nvl(incode
FROM postcodes p ,'#NULL#')) IN
,(SELECT CASE instr(TRIM(field_1) (SELECT outcode
,' ') ,nvl(incode
WHEN 0 THEN ,'#NULL#')
upper(field_1) FROM (SELECT outcode
ELSE ,incode
upper(substr(field_1 FROM postcodes p
,1 MINUS
,instr(field_1 SELECT CASE instr(TRIM(field_1)
,' ') - 1)) ,' ')
END AS outcode WHEN 0 THEN
,CASE instr(TRIM(field_1) upper(TRIM(field_1))
,' ') ELSE
WHEN 0 THEN upper(substr(field_1
NULL ,1
ELSE ,instr(field_1
substr(TRIM(field_1) ,' ') - 1))
,instr(TRIM(field_1) END AS outcode
,' ') + 1) ,CASE instr(TRIM(field_1)
END AS incode ,' ')
FROM ext_postcodes) e WHEN 0 THEN
WHERE p.outcode = e.outcode NULL
AND ((p.incode IS NULL AND e.incode IS NULL) OR ELSE
(p.incode = e.incode))); substr(TRIM(field_1)
,instr(TRIM(field_1)
,' ') + 1)
END AS incode
FROM ext_postcodes));
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': postcodes - delete'); ,'FM099G999') || ': postcodes - delete');
-- --
-- Postcodes -- Postcodes
@@ -1617,7 +1623,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.regi_code) log errors reject LIMIT unlimited; ,e.regi_code) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': postcodes - merge'); ,'FM099G999') || ': postcodes - merge');
END load_postcodes; END load_postcodes;
@@ -1691,7 +1697,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
,e.days) log errors reject LIMIT unlimited; ,e.days) log errors reject LIMIT unlimited;
pl(to_char(SQL%ROWCOUNT pl(to_char(SQL%ROWCOUNT
,'FM099G999G999') || ': leadtimes - merge'); ,'FM099G999') || ': leadtimes - merge');
END load_leadtimes; END load_leadtimes;
@@ -1728,11 +1734,6 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
pl('report_err'); pl('report_err');
FOR l_rec IN (SELECT *
FROM err$_modules) LOOP
pl('modules:' || l_rec.ora_err_mesg$ || ':' || l_rec.ora_err_rowid$ || ':' ||
l_rec.ora_err_optyp$);
END LOOP;
FOR l_rec IN (SELECT * FOR l_rec IN (SELECT *
FROM err$_meters) LOOP FROM err$_meters) LOOP
@@ -1752,6 +1753,18 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
l_rec.ora_err_optyp$); l_rec.ora_err_optyp$);
END LOOP; END LOOP;
FOR l_rec IN (SELECT *
FROM err$_modules) LOOP
pl('modules:' || l_rec.ora_err_mesg$ || ':' || l_rec.ora_err_rowid$ || ':' ||
l_rec.ora_err_optyp$);
END LOOP;
FOR l_rec IN (SELECT *
FROM err$_postcodes) LOOP
pl('postcodes:' || l_rec.ora_err_mesg$ || ':' ||
l_rec.ora_err_rowid$ || ':' || l_rec.ora_err_optyp$);
END LOOP;
FOR l_rec IN (SELECT * FOR l_rec IN (SELECT *
FROM err$_costs) LOOP FROM err$_costs) LOOP
pl('costs:' || l_rec.ora_err_mesg$ || ':' || l_rec.ora_err_rowid$ || ':' || pl('costs:' || l_rec.ora_err_mesg$ || ':' || l_rec.ora_err_rowid$ || ':' ||
@@ -1764,10 +1777,10 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
l_rec.ora_err_optyp$); l_rec.ora_err_optyp$);
END LOOP; END LOOP;
FOR l_rec IN (SELECT * FOR l_rec IN (SELECT *
FROM err$_postcodes) LOOP FROM err$_lead_times) LOOP
pl('postcodes:' || l_rec.ora_err_mesg$ || ':' || pl('lead_times:' || l_rec.ora_err_mesg$ || ':' || l_rec.ora_err_rowid$ || ':' ||
l_rec.ora_err_rowid$ || ':' || l_rec.ora_err_optyp$); l_rec.ora_err_optyp$);
END LOOP; END LOOP;
pl('report_err - complete'); pl('report_err - complete');
@@ -1778,14 +1791,14 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
init; init;
load_modules;
load_meters; load_meters;
load_bases; load_bases;
load_housings; load_housings;
load_drawings; load_drawings;
load_modules;
load_postcodes;
load_costs; load_costs;
load_caveats; load_caveats;
load_postcodes;
load_leadtimes; load_leadtimes;
report_err; report_err;