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

mip_quotation.pck addresses #446 (Site Survey Rules) and #465 (Lifting Gear Rules)

Browse Source 
mip_bulk_load.pck moved 'init' to package initialization to allow procedures other than load_all be run in isolation.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4753 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2008-04-09 16:22:28 +00:00
parent ad7a23f54e
commit 1b445a73e1
2 changed files with 142 additions and 252 deletions
Download Patch File Download Diff File Expand all files Collapse all files

112
Modules/mip_bulk_load.pck
View File

@@ -28,12 +28,15 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
g_other_manufacturer_id parties.id%TYPE;
PROCEDURE pl(p_in IN VARCHAR2, p_line IN NUMBER DEFAULT NULL) IS
PROCEDURE pl(p_in IN VARCHAR2
,p_line IN NUMBER DEFAULT NULL) IS
BEGIN
NULL;
--$IF $$DEBUGGING OR mip_debug_constants.debugging OR mip_debug_constants.bulk_load $THEN
mip_debug.pl(p_unit => $$PLSQL_UNIT,p_line => p_line,p_in => p_in);
--$END
NULL;
--$IF $$DEBUGGING OR mip_debug_constants.debugging OR mip_debug_constants.bulk_load $THEN
mip_debug.pl(p_unit => $$PLSQL_UNIT
,p_line => p_line
,p_in => p_in);
--$END
END pl;
PROCEDURE get_dir_list(p_directory IN VARCHAR2) AS
@@ -1390,43 +1393,43 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
-- Labour costs
--
FOR l_enty IN (SELECT code
,CASE code
/* INSTALL */
WHEN 'INSTALL' THEN
'INSTALL'
WHEN 'STD INSTALL' THEN
'INSTALL'
/* REMOVE */
WHEN 'ADVERSARIAL' THEN
'REMOVE'
WHEN 'REMOVE' THEN
'REMOVE'
WHEN 'STD REMOVE' THEN
'REMOVE'
/* CHANGE CAPACITY */
WHEN 'CHANGE CAPACITY' THEN
'CHANGE CAPACITY'
/* ADDON */
WHEN 'ADDON' THEN
'ADDON'
/* EXCHANGE */
WHEN 'EXCHANGE' THEN
'EXCHANGE'
WHEN 'STD EXCHANGE' THEN
'EXCHANGE'
WHEN 'ALTERATION' THEN
'EXCHANGE'
/* OFMAT */
WHEN 'OFMAT' THEN
'OFMAT'
/* OTHER */
WHEN 'OTHER' THEN
'OTHER'
/* ERROR */
ELSE
'ERR:' || code
END gen_enq_type
FROM enquiry_types) LOOP
,CASE code
/* INSTALL */
WHEN 'INSTALL' THEN
'INSTALL'
WHEN 'STD INSTALL' THEN
'INSTALL'
/* REMOVE */
WHEN 'ADVERSARIAL' THEN
'REMOVE'
WHEN 'REMOVE' THEN
'REMOVE'
WHEN 'STD REMOVE' THEN
'REMOVE'
/* CHANGE CAPACITY */
WHEN 'CHANGE CAPACITY' THEN
'CHANGE CAPACITY'
/* ADDON */
WHEN 'ADDON' THEN
'ADDON'
/* EXCHANGE */
WHEN 'EXCHANGE' THEN
'EXCHANGE'
WHEN 'STD EXCHANGE' THEN
'EXCHANGE'
WHEN 'ALTERATION' THEN
'EXCHANGE'
/* OFMAT */
WHEN 'OFMAT' THEN
'OFMAT'
/* OTHER */
WHEN 'OTHER' THEN
'OTHER'
/* ERROR */
ELSE
'ERR:' || code
END gen_enq_type
FROM enquiry_types) LOOP
FOR l_network IN 1 .. 8 LOOP
MERGE INTO costs cos
USING (SELECT *
@@ -1463,7 +1466,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
to_date(valid_to
,'dd/mm/yyyy')
END AS valid_to
,l_enty.code AS enty_code /*,upper(TRIM(enty_code)) AS enty_code */
,l_enty.code AS enty_code /*,upper(TRIM(enty_code)) AS enty_code */
,upper(REPLACE(TRIM(mesc_code)
,'"'
,'inch')) AS mesc_code
@@ -1767,13 +1770,12 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
pl('report_err');
FOR l_rec IN (SELECT *
FROM err$_meters) LOOP
pl('meters:' || l_rec.ora_err_mesg$ || ':' || l_rec.ora_err_rowid$ || ':' ||
l_rec.ora_err_optyp$);
END LOOP;
FOR l_rec IN (SELECT *
FROM err$_bases) LOOP
pl('bases:' || l_rec.ora_err_mesg$ || ':' || l_rec.ora_err_rowid$ || ':' ||
@@ -1785,19 +1787,19 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
pl('housings:' || l_rec.ora_err_mesg$ || ':' || l_rec.ora_err_rowid$ || ':' ||
l_rec.ora_err_optyp$);
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 *
FROM err$_costs) LOOP
pl('costs:' || l_rec.ora_err_mesg$ || ':' || l_rec.ora_err_rowid$ || ':' ||
@@ -1809,21 +1811,19 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
pl('caveats:' || 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$_lead_times) LOOP
pl('lead_times:' || l_rec.ora_err_mesg$ || ':' || l_rec.ora_err_rowid$ || ':' ||
l_rec.ora_err_optyp$);
pl('lead_times:' || l_rec.ora_err_mesg$ || ':' ||
l_rec.ora_err_rowid$ || ':' || l_rec.ora_err_optyp$);
END LOOP;
pl('report_err - complete');
END report_err;
PROCEDURE load_all IS
BEGIN
init;
load_meters;
load_bases;
load_housings;
@@ -1838,5 +1838,7 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
END load_all;
BEGIN
init;
END mip_bulk_load;
/