How to call the client side procedure...with trigger code

Question

hi
i have made a client side procedure with one IN PARAMETER having datatype number. i call this procedure through a button in which i declare a CURSOR
(all_emp)...so in the BEGIN SECTION i make a loop as (FOR e IN all_emp LOOP) and then call the client side procedure as CALC_EMP_PR_ALW_DED(e.emp_id); but here the error show that is statment ignored....
so plz help me that where i am wrong.... here is the trigger code
working in forms 6i...
IF SHOW_LOV('LOV_EMP') THEN
     NULL;
END IF;
DECLARE
     CURSOR all_emp IS
               SELECT DISTINCT e.emp_id
               FROM alw_ded ad,emp_alw_ded ead,emp e
               WHERE NVL(ead.status,'A') = 'A'
               AND NVL(e.stat,'A') = 'A'
               AND ead.ad_id = ad.ad_id
               AND e.emp_id = ead.emp_id
               AND ead.emp_id = :CON_BLK.emp_id;
BEGIN
          FOR e IN all_emp LOOP
               CALC_EMP_PR_ALW_DED(e.emp_id);
          END LOOP;
END;
thankx in advance

Answer 1

yes i did same and i send u the procedure code as... now i wnt to use these
PROCEDURE CALC_EMP_PR_ALW_DED(P_EMP_ID IN NUMBER) IS
v_basic NUMBER; --Basic Pay of employee
v_l_p CHAR(1); -- Percentage or Lump sum
v_amount NUMBER; -- Amount or value of Allow/ded/contr
v_max_limit NUMBER;
v_type NUMBER; -- Allow/ded/cont          
v_b_g CHAR(1); -- Basic or Gross
v_min_limit NUMBER;
v_emp_id NUMBER;
v_user Varchar2(20);
v_gross NUMBER;
v_max_amount NUMBER; -- DEDUCTION ACTUAL AMOUNT NOT MAX
up_limit NUMBER;
new_amt number;
CURSOR all_alw_ded IS
     SELECT ad.abbre,ead.ead_id,e.emp_id,descrip,l_p,ad.amount,nvl(ad.max_limit,0) max_limit,b_g,ad.type,nvl(ad.min_limit,0) min_limit
               FROM alw_ded ad,emp_alw_ded ead,emp e
               WHERE NVL(ead.status,'A') = 'A'
               AND NVL(ad.TYPE,'A') = 'A'
               AND ead.ad_id = ad.ad_id
               AND e.emp_id = ead.emp_id
               AND e.emp_id = P_EMP_ID;
BEGIN
          SELECT USER
          INTO v_user
          FROM
          DUAL;
               FOR e IN all_alw_ded LOOP
                              IF e.type = 'A' THEN
                              new_amt := Trunc(e.amount);
                              ELSE
                                   new_amt := Round(e.amount);
                              END IF;
                         IF e.l_p = 'P' AND e.b_g = 'B' THEN
                              v_basic := nvl(HRPR.EMP_BASIC(e.emp_id),0);
                         END IF;          
                                   SELECT nvl(BASIC_PAY,0) INTO v_basic FROM EMP WHERE EMP_ID=P_EMP_ID;
                                   IF NVL(e.max_limit,0) > 0 THEN
                                        up_limit := nvl(((v_basic * nvl(e.amount,0))/100),0);     
                                        IF up_limit > e.max_limit THEN
                                             v_max_amount := nvl(e.max_limit,0);
                                   --     v_max_amount :=100;
                                        ELSE
                                             v_max_amount := ((nvl(v_basic,0) * nvl(e.amount,0))/100);
                                        END IF;
                                        ELSE
                                             v_max_amount := ((nvl(v_basic,0) * nvl(e.amount,0))/100);
                                             --     v_max_amount :=200;
                                        END IF;
                         IF e.l_p = 'P' AND e.b_g = 'G' THEN -- %AGE AND GROSS... CHECK NOT PRESENT...?? AHSAN 10-09-05
                              v_gross := HRPR.EMP_GROSS(e.emp_id);
                              IF e.type = 'A' THEN
                                   new_amt := Trunc((v_gross * e.amount)/100);
                              ELSE
                                   new_amt := Round((v_gross * e.amount)/100);
                              END IF;
                         END IF;
               END LOOP;
          END;
-- END; ------- PROCEDURE END