Returning the control out of the procedure

Question

Gurus,
Please see my code
BEGIN
     BEGIN                                    -- To check whether the user(Record) exists in the table
            SELECT a.code, a.code_desc                                     
          INTO L_code, L_code_desc
            FROM CODE_DETAIL a, USER_ROLE_PRIVS b
            WHERE a.code_desc = b.granted_role
            AND a.code_type like '%CATR%'
            AND b.username = I_U_ID;
     EXCEPTION
          WHEN NO_DATA_FOUND THEN
          O_ERR_MSG := 'N';
     END;
  IF L_CODE <> '1' AND L_CODE <> '2' AND L_CODE <> '3' THEN     -- To check whether there is any other role associated other than 1, 2 or 3
     O_ERR_MSG := 'Y';
  END IF;This is a piece of code which is a part of procedure .. Now whenever I have O_ERR_MSG initialized to Y or N .. it should come out of the procedure... What's happenning now is, variable is getting initialized and executing the rest of the code, which shouldnt happen ..
Can you please tell me how to pass the control back to the procedure without executing the other lines ?
Regards

Answer 1

Ok... posting the entire code
CREATE OR REPLACE PROCEDURE AFE_CHECK_SUBMIT (I_u_id in varchar2, I_ord_num in number, O_rol out VARCHAR2, O_app_check OUT Varchar2, O_v_app_check out number, O_v_otb_check out number, O_AMT OUT NUMBER, O_ERR_MSG OUT VARCHAR2, O_error_message IN OUT varchar2 ) IS
L_role                  varchar2(30); 
L_approval_limit        number;         L_otb_limit             number;                
L_approval_level        varchar2(5);           
L_tolerance_limit       varchar2(40);            L_program VARCHAR2(60)  := 'AFE_CHECK_SUBMIT';
L_code                  VARCHAR2(10);
L_code_desc             VARCHAR2(30);
L_app_check             NUMBER;
L_otb_check             NUMBER;
L_amt                   NUMBER;
L_otb_amt1              NUMBER;
L_order_no           NUMBER;
L_status           VARCHAR2(1);
CURSOR C_PO_AMT IS SELECT i.dept, i.class, h.order_type, to_CHAR(h.otb_eow_date, 'MONYYYY') po_month, sum(o.qty_ordered * o.unit_cost) po_amt
FROM ITEM_MASTER i, ORDLOC o, ORDHEAD h
WHERE i.item = o.item
AND o.order_no = h.order_no
AND o.order_no = I_ord_num
GROUP BY i.dept, i.class, h.order_type, to_CHAR(h.otb_eow_date, 'MONYYYY');
CURSOR C_OTB_CALCULATE(order_type VARCHAR2, order_eow_date date, dep number, clas number ) IS
SELECT sum(decode(order_type, 'ARB', a_budget_amt-a_approved_amt,
                                         'BRB', b_budget_amt-b_approved_amt,
                                         'N/B', n_budget_amt-n_approved_amt,
                                             0)) otb_amt1
  FROM OTB
  WHERE to_char(EOW_DATE,'MONYYYY') = to_char(order_eow_date,'MONYYYY')
  AND DEPT = dep
  AND CLASS = clas
      GROUP BY to_CHAR(ORDER_EOW_DATE,'MONYYYY'),DEPT,CLASS;
      C2 C_OTB_CALCULATE%rowtype;
      c3 C_PO_AMT%rowtype;
CURSOR C_ROLE_CHECK IS
  SELECT a.code, a.code_desc                                      -- checking the role of the user who has logged in
  FROM CODE_DETAIL a, USER_ROLE_PRIVS b
  WHERE a.code_desc = b.granted_role
  AND a.code_type like '%CATR%'
  AND b.username = I_U_ID;
  L_ROLE_CHECK C_ROLE_CHECK%ROWTYPE;
BEGIN
   dbms_output.put_line('User id is :' || I_u_id);
   dbms_output.put_line('Selecting the role');
   BEGIN     
     OPEN C_ROLE_CHECK;
     LOOP
          FETCH C_ROLE_CHECK INTO L_ROLE_CHECK;
          EXIT WHEN C_ROLE_CHECK%NOTFOUND;
          L_code := L_ROLE_CHECK.code;
     END LOOP;
   EXCEPTION
          WHEN NO_DATA_FOUND THEN
             dbms_output.put_line('No Record in table');
          O_ERR_MSG := 'N';  
END;
  dbms_output.put_line('Role is :' || L_code);
  IF L_CODE <> '1' OR L_CODE <> '2' OR L_CODE <> '3' THEN
     O_ERR_MSG := 'Y';
     dbms_output.put_line('Unidentified user');
  END IF;
  IF L_code = '1' THEN                                       -- If user id is planner
       O_rol := '1';
     dbms_output.put_line('User is PLANNER (ROLE 1)');
        SELECT r.ORD_APPR_AMT                                   -- will be checking the approval limit of that role
        INTO L_approval_limit          
        FROM  RTK_ROLE_PRIVS r, CODE_DETAIL c
        WHERE r.ROLE = c.CODE_DESC
        AND c.CODE = L_code;
     dbms_output.put_line('Approval limit is :' || L_approval_limit);
        OPEN C_PO_AMT;                                          -- OTB check based on dept,class
        LOOP
          FETCH C_PO_AMT into c3;
                EXIT when c_PO_AMT%notfound;
          dbms_output.put_line('Entered 1st loop');
                OPEN C_OTB_CALCULATE(c3.order_type, TO_DATE(c3.po_month,'MONYYYY'), c3.dept, c3.class);
                LOOP
               dbms_output.put_line('Entered 2nd loop');
                     FETCH C_OTB_CALCULATE into c2;
                        EXIT WHEN C_OTB_CALCULATE%notfound;
                        L_amt := c3.PO_AMT;
               dbms_output.put_line('PO AMT IS:' || L_amt);
               IF c3.PO_AMT > L_approval_limit THEN    -- Checking whether amount greater than approval lim
                    dbms_output.put_line('Approval limit exceeded');
                             L_app_check := 1;
                                O_app_check := 'T';
                                O_v_app_check := 1;
                    O_amt := L_amt;
                    dbms_output.put_line('Approval check is:' || L_app_check);
                    dbms_output.put_line('Approval check exceeded? :' || O_app_check);
                    dbms_output.put_line('Parameter for Approval check is:' || O_v_app_check);
                        ELSIF C3.PO_AMT <= L_approval_limit then
                    dbms_output.put_line('Approval limit not exceeded');
                    dbms_output.put_line('Approval check is:' || L_app_check);
                    dbms_output.put_line('Parameter for Approval check is:' || O_v_app_check);
                                L_app_check := 0;
                                O_v_app_check := 0;
                        END IF;
               IF c3.PO_AMT > c2.OTB_AMT1 THEN         -- Checking whether amount greater than OTB amount
                    dbms_output.put_line('OTB AMT is :' || c2.otb_amt1);
                    dbms_output.put_line('OTB limit Exceeded');
                             L_otb_check := 1;
                                O_app_check := 'T';
                                O_v_otb_check := 1;
                    O_amt := L_amt;
                    dbms_output.put_line('OTB check is:' || L_otb_check);
                    dbms_output.put_line('OTB check exceeded? :' || O_app_check);
                    dbms_output.put_line('Parameter for OTB check is:' || O_v_otb_check);
                        ELSIF C3.PO_AMT <= C2.OTB_AMT1 THEN
                    dbms_output.put_line('OTB limit not exceeded');
                                L_otb_check := 0;
                                O_v_otb_check := 0;
                    dbms_output.put_line('OTB check is:' || L_otb_check);
                    dbms_output.put_line('Parameter for OTB check is:' || O_v_otb_check);
                        END IF;
                END LOOP;
                CLOSE C_OTB_CALCULATE;
        END LOOP;
        CLOSE c_PO_AMT;
     IF L_app_check = 0 and L_otb_check = 0 then            
          SELECT ORDER_NO, STATUS                     -- Checking whether there is a duplicate order number
          INTO L_order_no, L_status                    
          FROM AFE_POAPPROVAL
          WHERE ORDER_NO = I_ord_num;
          IF L_status = 'O' then                         -- If found and its stauts is open, update the record by changing the status column to "C"
               UPDATE AFE_POAPPROVAL
               SET STATUS = 'C'
               WHERE ORDER_NO = I_ord_num;
               COMMIT;
          END IF;
          INSERT INTO AFE_POAPPROVAL                    -- Inserting the record into AFE_POAPPROVAL when OTB and approval limit is below the PO amt
                VALUES (I_ord_num, 1,'O',I_u_id,'ROLE1','N','N', SYSDATE,'S', L_amt);
          dbms_output.put_line('Inserted Record into AFE_POAPPROVAL');
                COMMIT;                
        END IF;
      ELSIF L_code = '2' THEN                            -- If user id is category manager
     dbms_output.put_line('User is Category manager (ROLE 2)');          
           O_rol := '2';
              SELECT r.ORD_APPR_AMT                                        -- will be checking the approval limit of that role
              INTO L_approval_limit          
              FROM  RTK_ROLE_PRIVS r, CODE_DETAIL c
              WHERE r.role = c.CODE_DESC
              AND c.CODE = L_code;
           dbms_output.put_line('Approval limit is :' || L_approval_limit);
              OPEN c_PO_AMT;                                          -- OTB check based on dept,class
              LOOP
                   FETCH c_PO_AMT into c3;
                EXIT when c_PO_AMT%notfound;
          dbms_output.put_line('Entered 1st loop');
                OPEN C_otb_CALCULATE(c3.order_type, TO_DATE(c3.po_month,'MONYYYY'), c3.dept, c3.class);
                LOOP
                     FETCH C_OTB_CALCULATE into c2;
                        EXIT WHEN C_OTB_CALCULATE%notfound;
               dbms_output.put_line('Entered 2nd loop');
                        L_amt := c3.PO_AMT;
               dbms_output.put_line('PO AMT is:' || L_amt);
                        IF c3.PO_AMT > L_approval_limit THEN    -- Checking whether amount greater than approval limit
                    dbms_output.put_line('Approval limit exceeded');
                             L_app_check := 1;
                                O_app_check := 'T';
                                O_v_app_check := 1;
                    O_amt := L_amt;
                    dbms_output.put_line('Approval check is:' || L_app_check);
                    dbms_output.put_line('Approval check exceeded? :' || O_app_check);
                    dbms_output.put_line('Parameter for Approval check is:' || O_v_app_check);
                        ELSE
                    dbms_output.put_line('Approval limit not exceeded');
                                L_app_check := 0;
                                O_v_app_check := 0;
                    dbms_output.put_line('Approval check is:' || L_app_check);
                    dbms_output.put_line('Parameter for Approval check is:' || O_v_app_check);
                        END IF;
                        L_otb_amt1 := c2.OTB_AMT1;
               dbms_output.put_line('Selecting tolerance limit');
                        SELECT cd.code_desc                                     -- will be chekcing the tolerance limit
                        INTO L_tolerance_limit
                        FROM CODE_DETAIL cd, CODE_HEAD ch
                        WHERE ch.CODE_TYPE = cd.code_type
                        AND ch.CODE_TYPE = 'OTBT';
                        L_tolerance_limit := to_number(L_tolerance_limit);
               dbms_output.put_line('Tolerance limit is:' || L_tolerance_limit);
                        L_otb_limit := c2.OTB_AMT1-(c2.OTB_AMT1 * (1- (L_tolerance_limit/100))); -- Will be calculating the tolerance limit
               dbms_output.put_line('OTB AMT is :' || L_otb_amt);
                        IF c3.PO_AMT > L_otb_limit THEN         -- Checking whether amount greater than OTB amount
                    dbms_output.put_line('OTB limit exceeded');
                             L_otb_check := 1;
                                O_app_check := 'T';
                                O_v_otb_check := 1;
                    O_amt := L_amt;
                    dbms_output.put_line('OTB check is:' || L_otb_check);
                    dbms_output.put_line('OTB check exceeded? :' || O_app_check);
                    dbms_output.put_line('Parameter for OTB check is:' || O_v_otb_check);
                        ELSE
                    dbms_out.put_line('OTB Limit not exceeded');
                                L_otb_check := 0;
                                O_v_otb_check := 0;
                    dbms_output.put_line('OTB check is:' || L_otb_check);
                    dbms_output.put_line('Parameter for OTB check is:' || O_v_otb_check);
                        END IF;
                END LOOP;
                CLOSE C_OTB_CALCULATE;
              END LOOP;
              CLOSE c_PO_AMT;
              IF L_app_check = 0 and L_otb_check = 0 THEN            
                SELECT ORDER_NO, STATUS                     -- Checking whether there is a duplicate order number
          INTO L_order_no, L_status
          FROM AFE_POAPPROVAL
          WHERE ORDER_NO = I_ord_num;
          IF L_status = 'O' then                         -- If found and its stauts is open, update the record by changing the status column to C
               UPDATE AFE_POAPPROVAL
               SET STATUS = 'C'
               WHERE ORDER_NO = I_ord_num;
               COMMIT;
          END IF;
                INSERT INTO AFE_POAPPROVAL                    -- Inserting the record into AFE_POAPPROVAL when OTB and approval limit is below the PO amt
                VALUES (I_ord_num, 1,'O',I_u_id,'ROLE2','N','N', SYSDATE, 'S', L_amt);                 
                COMMIT;
          dbms_output.put_line('Inserted Record into AFE_POAPPROVAL');
              END IF;
       ELSIF L_code = '3' THEN                                         -- If user id is category head
     dbms_output.put_line('User is Category Head (ROLE3)');
            O_rol := 3;
        OPEN c_PO_AMT;                                          -- OTB check based on dept,class
        LOOP
             FETCH c_PO_AMT into c3;
                EXIT when c_PO_AMT%notfound;
          dbms_output.put_line('Entered 1st loop');
                OPEN C_OTB_CALCULATE(c3.order_type, to_date(c3.po_month,'MONYYYY'), c3.dept, c3.class);
                LOOP
                     FETCH C_OTB_CALCULATE into c2;
                        EXIT WHEN C_OTB_CALCULATE%notfound;
               dbms_output.put_line('Entered 2nd loop');     
                        L_amt := c3.PO_AMT;
               dbms_output.put_line('PO AMT is :' || L_amt);     
                        IF c3.PO_AMT > c2.OTB_AMT1 THEN         -- Checking whether amount greater than OTB amount
                    dbms_output.put_line('OTB AMT is :' || c2.otb_amt1);
                    dbms_output.put_line('OTB Limit exceeded');
                             L_otb_check := 1;
                                O_app_check := 'T';
                                O_v_otb_check := 1;                                        
                    O_amt := L_amt;
                    dbms_output.put_line('OTB check is:' || L_otb_check);
                    dbms_output.put_line('OTB check exceeded? :' || O_otb_check);
                    dbms_output.put_line('Parameter for OTB check is:' || O_v_otb_check);
                        ELSE
                    dbms_output.put_line('OTB limit not exceeded');
                                L_otb_check := 0;
                                O_v_otb_check := 0;
                    dbms_output.put_line('OTB check is:' || L_otb_check);
                    dbms_output.put_line('Parameter for OTB check is:' || O_v_otb_check);
                        END IF;
                END LOOP;
                CLOSE C_OTB_CALCULATE;
        END LOOP;
        CLOSE c_PO_AMT;
        IF L_otb_check = 0 THEN                                
IF L_otb_check = 0 THEN                                
          OPEN C_RECORD_CHECK;
          LOOP
               FETCH C_RECORD_CHECK INTO L_RECORD_CHECK;
               EXIT WHEN C_RECORD_CHECK%notfound;
               IF C_RECORD_CHECK%FOUND THEN
                    UPDATE AFE_POAPPROVAL
                    SET STATUS = 'C'
                    WHERE ORDER_NO = I_ord_num;
                    COMMIT;
               END IF;
          END LOOP;
          INSERT INTO AFE_POAPPROVAL                    -- Inserting the record into AFE_POAPPROVAL when otb and approval limit is below the po amount
                 VALUES (I_ord_num, 1,'O',I_u_id,'ROLE3','Y','N', SYSDATE,'S', L_amt);
                 COMMIT;
          dbms_output.put_line('Inserted Record into AFE_POAPPROVAL');
        END IF;
     END IF;
  EXCEPTION
     WHEN OTHERS THEN
        O_error_message := SQL_LIB.CREATE_MSG('PACKAGE_ERROR',
                                               SQLERRM,
                                               L_program,
                                               TO_CHAR(SQLCODE));
  END AFE_CHECK_SUBMIT;
/Now i am executing the procedure ...
SQL>SQL> @OUT_SUBMIT;
Enter value for user: RMS12DEV
old 12: o_user :='&user';
new 12: o_user :='RMS12DEV';
Enter value for order: 6139
old 13: o_order :=&order;
new 13: o_order :=6139;
User id is :RMS12DEV
Selecting the role
No Record in table
Role is :
o_rol:
O_app_check:
O_v_app_check:
O_v_otb_check:
O_amt:
O_ERR_MSG: N
O_error_message:
PL/SQL procedure successfully completed.
If you have looked at the output .. after the variable is intialized to 'N', still I am getting msgs displayed .. Hope this is clear .. Now can you suggest the solution...
Regards
Message was edited by:
Seshu
Message was edited by:
Seshu