AAA

tất cả màn đơn ạ?Biểu phí có cần kh ạ?

• Procedure :
  create or replace procedure PBH_MA_DKLT_ND(
  b_ma_dvi varchar2,b_nsd varchar2,b_pas varchar2,b_oraIn clob,b_oraOut out clob)
  AS
  b_loi varchar2(100); b_i1 number; b_ma varchar2(10); b_txt clob;
  begin
  -- DUCHQ - Tra noi dung dieu khoan loai tru
  b_loi:=FHT_MA_NSD_KTRA(b_ma_dvi,b_nsd,b_pas,'BH','','');
  if b_loi is not null then raise PROGRAM_ERROR; end if;
  b_ma:=trim(b_oraIn);
  if b_ma is null then
  b_oraOut:='';
  else
  select txt into b_txt from bh_ma_dklt where ma=b_ma;
  select json_object('nd' VALUE FKH_JS_GTRIc(b_txt,'nd')returning clob) into b_oraOut FROM dual;

  --b_oraOut:='{"nd":"'||FKH_JS_GTRIc(b_txt,'nd')||'"}';
  end if;
  exception when others then if b_loi is null then raise PROGRAM_ERROR; else raise_application_error(-20105,b_loi); end if;
  end;