AAA

create or replace EDITIONABLE procedure PBH_DTAC_MAx
(b_ma_dvi varchar2,b_nsd varchar2,b_pas varchar2,b_oraIn clob,b_oraOut out clob)
AS
b_loi varchar2(100); b_ma varchar2(20):=FKH_JS_GTRIs(b_oraIn,'ma'); dt_ct clob;
begin
-- Dan - Tra ttin ma
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;
select json_object(ma,ten,dchi,cmt,mobi,email,gioi,ng_sinh,loai) into dt_ct from bh_dtac_ma where ma=b_ma;
select json_object('dt_ct' value dt_ct) into b_oraOut from dual;
exception when others then if b_loi is null then raise PROGRAM_ERROR; else raise_application_error(-20105,b_loi); end if;
end;