dbo.MG_MS_CMB_PURPOSE

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
create procedure dbo.MG_MS_CMB_PURPOSE
@PARAMETER xml='' 
---XencX---with encryption
as
SET NOCOUNT ON 
declare @xStsnoheader varchar(2),
  @xStsno varchar(2),
  @xStsdes varchar(100)
  
set @xStsnoheader='05'
set @xStsno='00';
set @xStsdes='sukses'

  
declare @XmlSts xml
declare @raw xml 
declare @rowJSON nvarchar(max) 

declare  @bc_prefix varchar(255)

 SELECT
  @bc_prefix=ltrim(rtrim(isnull(tempTable.item.value('bc_prefix[1]', 'varchar(255)'),''))) 
   FROM @PARAMETER.nodes('param/field')  tempTable(item)
 -- CHECK supp_code_old

set @rowJSON=('[' + isnull(STUFF(( 
 SELECT  ',{"rID":"' + dbo.JSONEscaped(rID)
 + '","r1":"' + dbo.JSONEscaped(r1)
+ '"}'
 FROM( 
  SELECT        
  KODE_TUJUAN as rID
  , URAIAN_TUJUAN as r1
  ,KODE_DOKUMEN
  FROM            enum_ms_tpb_tujuan
  WHERE        (KODE_DOKUMEN = @bc_prefix) OR
         (KODE_DOKUMEN = '00')
)xdata  
 ORDER BY KODE_DOKUMEN, rID
for xml  PATH(''), type
).value('.', 'varchar(max)'), 1, 1, ''),'') + ']')


SET NOCOUNT OFF
f:

set @XmlSts=(select @xStsnoheader + @xStsno as 'no', @xStsdes as 'des' for xml path('sts'))
   select  CAST( (select @XmlSts,@raw , @rowJSON as jsondata     for xml path ('result')
)  as XML)  as dt
 

GO