DECLARE
  M_QTY         NUMBER;
  M_QTY_LS      NUMBER;
  M_BUOM_CODE   VARCHAR2(12);
  M_MAX_LOOSE_1 NUMBER;
  M_COST        NUMBER;
  CURSOR C1
  IS
     SELECT M_UOM_CODE,
      CGBCV_COST_1    ,
      IU_MAX_LOOSE_1
       FROM OM_ITEM,
      OM_ITEM_UOM  ,
      OM_LOCATION  ,
      OS_COST_GROUP_BATCH_CURR_VAL
      WHERE CGBCV_COST_GROUP_CODE=LOCN_COSTING_GROUP
    AND CGBCV_ITEM_CODE          =:DETAIL.TEXT_ITEM137
    AND ITEM_CODE                =:DETAIL.TEXT_ITEM137
    AND LOCN_CODE                =:DETAIL.TEXT_ITEM181
    AND CGBCV_BATCH_NO           = :DETAIL.TEXT_ITEM179
    AND ITEM_CODE                =IU_ITEM_CODE
    AND ITEM_UOM_CODE            =IU_UOM_CODE;
  
  M_DUMMY NUMBER;
  CURSOR C2
  IS
     SELECT ADJI_QTY
       FROM OT_ADJ_ITEM,
      OT_ADJ_HEAD
      WHERE ADJH_SYS_ID = ADJI_ADJH_SYS_ID
    AND ADJI_ITEM_CODE  =:DETAIL.TEXT_ITEM137
    AND ADJH_TXN_CODE   = :IP_REP_INFO.TEXT_ITEM170
    AND ADJH_NO         = :IP_REP_INFO.TEXT_ITEM108;
BEGIN
  --FUNCTION TO CONVERT VALUES
  O_DCONV_PL_TO_BU (:DETAIL.TEXT_ITEM137 , :DETAIL.TEXT_ITEM183 , :DETAIL.TEXT_ITEM184 , :DETAIL.TEXT_ITEM185 , :DETAIL.TEXT_ITEM186 , NULL);
  OPEN C1 ;
  FETCH C1 INTO M_BUOM_cODE,M_COST,M_MAX_LOOSE_1;
  
  CLOSE C1;
  OPEN C2 ;
  FETCH C2 INTO M_DUMMY;
  
  CLOSE C1;
  IF M_DUMMY <= :DETAIL.TEXT_ITEM184 AND NVL(M_COST,0) <> 0 THEN
    O_DCONV_BU_TO_PL (:DETAIL.TEXT_ITEM137, M_BUOM_CODE , :DETAIL.TEXT_ITEM186 , M_QTY , M_QTY_LS , NULL );
    :DETAIL.TEXT_ITEM140:= :DETAIL.TEXT_ITEM186/M_MAX_LOOSE_1)*M_COST;
ELSE
  MESSAGE('YOU CANNOT INCREASE THE QTY');
  display_error;
  RAISE FORM_TRIGGER_FAILURE;
END IF;
END;