存储过程5

SELECT COUNT(*)
        INTO V_INFOCOUNT
        FROM INT_ERP_PO_INFO
       WHERE PROC_STATUS = 0
         AND ERP_PO_STATUS = 0
         AND REFERENCE_NUM = V_REFERENCE_NUM;
      IF (V_INFOCOUNT <> 0) THEN
        --put data in detail table to v_P_REQ_LINES_TBL
        V_SQL := 'select SOURCE_LINE_ID,QUANTITY,ITEM_ID,UNIT_PRICE/100 UNIT_PRICE,PACKAGE_TYPE,RICA_ADDRESS,LINE_NUMBER
            from INT_ERP_PO_DETAIL where reference_num = :PO_NUM ';
        EXECUTE IMMEDIATE V_SQL BULK COLLECT
          INTO V_P_REQ_LINES_TBL
          USING V_REFERENCE_NUM;

        --invoke ERP's procedure
        BEGIN
          INT_POS_SR.INT_POS_SR@ERP(V_SOURCE_TYPE_CODE,
                                    V_PO_TYPE,
                                    V_GROUP_CODE,
                                    V_HEADER_DESCRIPTION,
                                    V_NOTE_TO_BUYER,
                                    V_NOTE_TO_RECEIVER,
                                    V_REFERENCE_NUM,
                                    V_SOURCE_ORGANIZATION_ID,