From 54a29871774a7a4204b9a905f271c0f79d128d87 Mon Sep 17 00:00:00 2001
From: hardya <hardya@248e525c-4dfb-0310-94bc-949c084e9493>
Date: Mon, 17 Mar 2008 14:10:40 +0000
Subject: [PATCH] Addressed #351 by adding existing_prty_id to calc_meter_reqs
 (similar change to screen 32).

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4022 248e525c-4dfb-0310-94bc-949c084e9493
---
 Modules/MIP_ENQUIRY.pck | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/Modules/MIP_ENQUIRY.pck b/Modules/MIP_ENQUIRY.pck
index 4bd5ccb..d4c9cf2 100644
--- a/Modules/MIP_ENQUIRY.pck
+++ b/Modules/MIP_ENQUIRY.pck
@@ -12,8 +12,7 @@ CREATE OR REPLACE PACKAGE mip_enquiry IS
     ,existing_mesc_code meters.mesc_code%TYPE
     ,existing_mety_code meters.mety_code%TYPE
     ,existing_prty_id   meters.prty_id%TYPE
-    ,required_mesc_code meters.mesc_code%TYPE
-    );
+    ,required_mesc_code meters.mesc_code%TYPE);
 
   -- Public function and procedure declarations
   FUNCTION delete_enquiry(p_enquiryid IN NUMBER) RETURN BOOLEAN;
@@ -64,6 +63,7 @@ CREATE OR REPLACE PACKAGE mip_enquiry IS
                           ,p_required_mesc_code meters.mesc_code%TYPE
                           ,p_existing_metr_code meters.code%TYPE
                           ,p_existing_mety_code meters.mety_code%TYPE
+                          ,p_existing_prty_id   meters.prty_id%TYPE
                           ,p_qmax               meters.qmax%TYPE)
     RETURN t_rec_meter_reqs;
 
@@ -426,6 +426,7 @@ CREATE OR REPLACE PACKAGE BODY mip_enquiry IS
                           ,p_required_mesc_code meters.mesc_code%TYPE
                           ,p_existing_metr_code meters.code%TYPE
                           ,p_existing_mety_code meters.mety_code%TYPE
+                          ,p_existing_prty_id   meters.prty_id%TYPE
                           ,p_qmax               meters.qmax%TYPE)
     RETURN t_rec_meter_reqs IS
     l_dummy                  NUMBER;
@@ -495,12 +496,13 @@ CREATE OR REPLACE PACKAGE BODY mip_enquiry IS
       ELSE
         -- we don't have real model details, chose the 'OTHER' meter
         SELECT prty_id
-        INTO l_rec_meter_reqs.existing_prty_id
-        FROM meters
-        WHERE code = 'OTHER';
+          INTO l_rec_meter_reqs.existing_prty_id
+          FROM meters
+         WHERE code = 'OTHER';
         l_rec_meter_reqs.existing_metr_code := 'OTHER';
         l_rec_meter_reqs.existing_mety_code := p_existing_mety_code;
         l_rec_meter_reqs.existing_mesc_code := p_existing_mesc_code;
+        l_rec_meter_reqs.existing_prty_id   := p_existing_prty_id;
       END IF;
     END IF;
   
@@ -520,7 +522,7 @@ CREATE OR REPLACE PACKAGE BODY mip_enquiry IS
         l_rec_meter_reqs.qmax               := p_qmax;
       END IF;
     END IF;
-    
+  
     pl('calc_meter_reqs:exit:' || l_rec_meter_reqs.existing_mesc_code || ':' ||
        l_rec_meter_reqs.required_mesc_code || ':' ||
        l_rec_meter_reqs.existing_metr_code || ':' || l_rec_meter_reqs.qmax);